Модель стабильной экономики плюс

Вторая часть программы :

Единая программа которая одновременно запускает **4 банковские системы** (по одной точке на каждую). Каждая точка движется по своей траектории согласно своей стратегии (из предыдущих вариантов), а их суммарная координата по Y всегда остаётся положительной («в плюсе»).


### Принцип работы
- **4 точки** — 4 системы с разными правилами роста. 
- **Центр каждой окружности** может смещаться по X и Y (имитация изменения «центра тяжести» бизнеса). 
- **Сумма Y;координат всех точек** контролируется: если падает ниже порога, включается «аварийный реинвестиционный механизм» (ускорение роста Y). 
- Визуально: 4 точки крутятся по спиралям/окружностям, их общий «центр масс» дрейфует вверх.

---

### Код
```basic
10 SCREEN 12
20 CONST N = 4                ' число систем
30 DIM x(N), y(N), r(N), a(N), v(N), cx(N), cy(N)
40 DIM color(N)
50 DATA 100, 80, 60, 40           ' начальные радиусы (RADIUS)
60 DATA 0.04, 0.03, 0.05, 0.06 ' скорости вращения (SPEED)
70 DATA 320, 240, 300, 260, 340, 220, 280, 280 ' начальные центры (cx, cy)
80 DATA 14, 10, 12, 11             ' цвета точек (жёлтый, зелёный, красный, бирюзовый)


90 ' Инициализация
100 FOR i = 1 TO N
110   READ r(i)
120 NEXT i
130 FOR i = 1 TO N
140   READ v(i)
150 NEXT i
160 FOR i = 1 TO N
170   READ cx(i), cy(i)
180 NEXT i
190 FOR i = 1 TO N
200   READ color(i)
210 NEXT i
220 FOR i = 1 TO N: a(i) = 0: NEXT i ' углы


230 ' Основной цикл
240 DO
250   ' 1. Стираем все точки
260   FOR i = 1 TO N
270     PSET (x(i), y(i)), 0
280   NEXT i

290   ' 2. Вычисляем новые координаты для каждой системы
300   FOR i = 1 TO N
310     SELECT CASE i
320       CASE 1: ' Линейный рост (система 1)
330         r(i) = r(i) + 0.2
340         x(i) = cx(i) + r(i) * COS(a(i))
350         y(i) = cy(i) + r(i) * SIN(a(i))
360       CASE 2: ' Экспоненциальный рост (система 2)
370         r(i) = r(i) * 1.01
380         x(i) = cx(i) + r(i) * COS(a(i))
390         y(i) = cy(i) + r(i) * SIN(a(i))
400       CASE 3: ' Циклическая система (система 3)
410         r(i) = 60 + 20 * SIN(0.1 * a(i))
420         x(i) = cx(i) + r(i) * COS(a(i))
430         y(i) = cy(i) + r(i) * SIN(a(i))
440       CASE 4: ' Адаптивная система (система 4)
450         IF y(i) > x(i) - cx(i) THEN
460           r(i) = r(i) * 1.02
470         ELSE
480           r(i) = r(i) * 0.98
490         END IF
500         x(i) = cx(i) + r(i) * COS(a(i))
510         y(i) = cy(i) + r(i) * SIN(a(i))
520     END SELECT
530     a(i) = a(i) + v(i) ' увеличиваем угол
540   NEXT i

550   ' 3. Контролируем сумму Y (чтобы быть «в плюсе»)
560   sumY = 0
570   FOR i = 1 TO N: sumY = sumY + y(i): NEXT i
580   IF sumY < 800 THEN ' если сумма Y падает ниже порога
590     FOR i = 1 TO N ' ускоряем рост Y для всех систем
600       r(i) = r(i) * 1.1
610     NEXT i
620   END IF

630   ' 4. Рисуем все точки
640   FOR i = 1 TO N
650     PSET (x(i), y(i)), color(i)
660   NEXT i

670   ' 5. Задержка и выход
680   SLEEP 0.05
690   IF INKEY$ <> "" THEN EXIT DO
700 LOOP
710 END
```


---

### Описание стратегий каждой системы

1. **Система;1 (жёлтая, линейная)** 
   - Радиус растёт линейно: `r = r + 0.2`. 
   - Центр фиксирован (`cx=320`, `cy=240`). 
   - Плавный рост Y ; надёжная реинвестиция.


2. **Система;2 (зелёная, экспоненциальная)** 
   - Радиус растёт экспоненциально: `r = r * 1.01`. 
   - Центр смещён (`cx=300`, `cy=260`). 
   - Быстрый рост Y ; высокий риск/доход.


3. **Система;3 (красная, циклическая)** 
   - Радиус колеблется: `r = 60 + 20·sin(0.1·a)`. 
   - Центр (`cx=340`, `cy=220`). 
   - Циклы роста/спада ; балансировка.


4. **Система;4 (бирюзовая, адаптивная)** 
   - Радиус меняется в зависимости от `y > x;cx`: 
     - Если Y > X (относительно центра) ; рост радиуса (`*1.02`). 
     - Иначе ; сжатие (`*0.98`). 
   - Центр (`cx=280`, `cy=280`). 
   - Саморегуляция ; устойчивость.


---

### Как обеспечивается «всегда в плюсе»


1. **Сумма Y** 
   - На шаге;560–580 программа вычисляет `sumY = y(1)+y(2)+y(3)+y(4)`. 
   - Если `sumY < 800` (условный порог), включается **аварийный механизм**: 
     - Все радиусы умножаются на `1.1` (шаг;600), ускоряя рост Y.


2. **Визуальный эффект** 
   - Точки крутятся по своим траекториям. 
   - Их общий «центр тяжести» (сумма Y) дрейфует **вверх**. 
   - Даже если одна система «проседает», другие компенсируют, а при критическом падении — срабатывает ускорение.

---

### Что видит пользователь

- **На экране:** 4 цветные точки, движущиеся по спиралям/окружностям. 
- **Динамика:** 
  - Сначала точки разбегаются по своим траекториям. 
  - Затем их суммарный Y;сдвиг становится положительным и продолжает расти. 
  - Если сумма Y падает, все точки резко ускоряют рост (спирали расширяются). 
- **Итог:** система в целом **не опускается ниже уровня «800»** по Y ; «всегда в плюсе».


---

### Как модифицировать


- **Изменить начальные радиусы/скорости:** подкорректируйте данные в строках;50–80. 
- **Сдвинуть центры систем:** измените значения в строке