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

Эта модель просвещается Джонатан Гей. Она построена на возможности реализовать программу Макромедия Флеш средствами BASIC 1990

Исходные данные : код движения точки по окружности написанный на языке BASIC


Разработано Алисой-Роботом:

**4  варианта «банковских систем»** на базе вашего кода. Каждая имитирует упрощённую экономическую модель: точка движется по спирали/окружности, где:

- **Ось;X** — вложения пользователей в фонды (приток капитала). 
- **Ось;Y** — инвестиции системы в развитие экономики (отток/реинвестирование). 

**Цель:** обеспечить *устойчивый рост* (точка уходит в «плюс» по Y) при разных правилах динамики радиуса и скорости.

---

### Вариант;1. Линейный рост (консервативная система)

**Правило:** 
- Радиус растёт линейно: `R = R; + k·t`. 
- Скорость вращения постоянна. 
- Система постепенно увеличивает обороты, не рискуя.

```basic
10 SCREEN 12
20 CONST BASE_RADIUS = 50     ' начальный радиус
30 CONST GROWTH_RATE = 0.3    ' прирост радиуса за шаг
40 CONST SPEED = 0.04
50 CONST POINT_COLOR = 10       ' зелёный (рост)
60 CONST BACKGROUND_COLOR = 0
70 centerX = 320: centerY = 240
80 angle = 0: time = 0
90 DO
100  RADIUS = BASE_RADIUS + GROWTH_RATE * time
110  PSET (centerX + RADIUS * COS(angle), centerY + RADIUS * SIN(angle)), BACKGROUND_COLOR
120  angle = angle + SPEED
130  time = time + 1
140  PSET (centerX + RADIUS * COS(angle), centerY + RADIUS * SIN(angle)), POINT_COLOR
150  SLEEP 0.04
160  IF INKEY$ <> "" THEN EXIT DO
170 LOOP
180 END
```

**Как расширяется:** 
- Траектория — раскручивающаяся спираль. 
- `Y` (инвестиции) растут пропорционально `R` ; система реинвестирует больше. 
- Риски низкие: нет резких скачков.

---

### Вариант;2. Экспоненциальный рост (агрессивная система)

**Правило:** 
- Радиус растёт экспоненциально: `R = R; · e^(k·t)`. 
- Скорость увеличивается с радиусом. 
- Высокий потенциал, но и риски выше.

```basic
10 SCREEN 12
20 CONST BASE_RADIUS = 30
21 CONST GROWTH_FACTOR = 0.02  ' коэффициент экспоненты
30 CONST BASE_SPEED = 0.03
40 CONST POINT_COLOR = 12        ' красный (высокий риск/доход)
50 CONST BACKGROUND_COLOR = 0
60 centerX = 320: centerY = 240
70 angle = 0: time = 0
80 DO
90  RADIUS = BASE_RADIUS * EXP(GROWTH_FACTOR * time)
100 SPEED = BASE_SPEED * (1 + 0.01 * RADIUS)  ' скорость растёт с радиусом
110 PSET (centerX + RADIUS * COS(angle), centerY + RADIUS * SIN(angle)), BACKGROUND_COLOR
120 angle = angle + SPEED
130 time = time + 1
140 PSET (centerX + RADIUS * COS(angle), centerY + RADIUS * SIN(angle)), POINT_COLOR
150 SLEEP 0.03
160 IF INKEY$ <> "" THEN EXIT DO
170 LOOP
180 END
```

**Как расширяется:** 
- Спираль быстро раскручивается. 
- `Y` растёт ускоренно ; высокие реинвестиции. 
- Риск: перегрев, если рост не подкреплён реальными активами.

---

### Вариант;3. Циклическая система (сбалансированная)

**Правило:** 
- Радиус колеблется по синусоиде: `R = R; + A·sin(;·t)`. 
- Скорость постоянна. 
- Имитирует экономические циклы (подъём/спад).

```basic
10 SCREEN 12
20 CONST BASE_RADIUS = 80
21 CONST AMPLITUDE = 30        ' амплитуда колебаний
22 CONST FREQUENCY = 0.05    ' частота цикла
30 CONST SPEED = 0.04
40 CONST POINT_COLOR = 11       ' бирюзовый (баланс)
50 CONST BACKGROUND_COLOR = 0
60 centerX = 320: centerY = 240
70 angle = 0: time = 0
80 DO
90  RADIUS = BASE_RADIUS + AMPLITUDE * SIN(FREQUENCY * time)
100 PSET (centerX + RADIUS * COS(angle), centerY + RADIUS * SIN(angle)), BACKGROUND_COLOR
110 angle = angle + SPEED
120 time = time + 1
130 PSET (centerX + RADIUS * COS(angle), centerY + RADIUS * SIN(angle)), POINT_COLOR
140 SLEEP 0.05
150 IF INKEY$ <> "" THEN EXIT DO
160 LOOP
180 END
```

**Как расширяется:** 
- Траектория — «волнистая» спираль. 
- `Y` колеблется, но средний тренд — вверх. 
- Система адаптируется к циклам, избегая перегрева.

---

### Вариант;4. Адаптивная система (с обратной связью)

**Правило:** 
- Радиус растёт, если `Y > X` (реинвестиции превышают приток), иначе снижается. 
- Скорость зависит от разницы `Y ; X`. 
- Имитирует саморегулирование.

```basic
10 SCREEN 12
20 CONST BASE_RADIUS = 60
30 CONST SENSITIVITY = 0.01   ' чувствительность к дисбалансу
40 CONST MIN_RADIUS = 20
50 CONST POINT_COLOR = 14       ' жёлтый (адаптивность)
60 CONST BACKGROUND_COLOR = 0
70 centerX = 320: centerY = 240
80 angle = 0: time = 0
90 RADIUS = BASE_RADIUS
100 DO
110  ' Вычисляем X и Y (проекции точки)
120  X = RADIUS * COS(angle)
130  Y = RADIUS * SIN(angle)
140  ' Корректируем радиус по правилу: если Y > X ; рост, иначе снижение
150  IF Y > X THEN
160      RADIUS = RADIUS * (1 + SENSITIVITY)
170  ELSE
180      RADIUS = RADIUS * (1 - SENSITIVITY)
190  END IF
200  RADIUS = MAX(RADIUS, MIN_RADIUS)  ' не ниже минимума
210  ' Скорость зависит от дисбаланса
220  SPEED = 0.02 + 0.005 * ABS(Y - X)
230  PSET (centerX + X, centerY + Y), BACKGROUND_COLOR
240  angle = angle + SPEED
250  time = time + 1
260  PSET (centerX + X, centerY + Y), POINT_COLOR
270  SLEEP 0.06
280  IF INKEY$ <> "" THEN EXIT DO
290 LOOP
300 END
```

**Как расширяется:** 
- Спираль то сжимается, то раскручивается. 
- Система «чувствует» дисбаланс и подстраивается. 
- Цель: удержать `Y > X` в долгосрочной перспективе.

---

### Общий принцип расширения системы

1. **Фаза 1 (старт):** 
   - Маленький радиус, низкая скорость. 
   - `X` (вклады пользователей) превышают `Y` (реинвестиции). 

2. **Фаза 2 (рост):** 
   - Радиус увеличивается ; `Y` растёт. 
   - Система начинает возвращать больше в экономику. 

3. **Фаза 3 (устойчивость):** 
   - Баланс `X` и `Y`: приток покрывает реинвестиции. 
   - Спираль стабилизируется или медленно растёт. 

4. **Фаза;4 (устойчивый рост / плато)


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


---


## Как выглядит расширение системы (итоговая динамика)


1. **Начальная точка** 
   - Маленький радиус ; низкие X и Y. 
   - Система только набирает капитал. 


2. **Фаза ускоренного роста** 
   - Радиус быстро растёт ; Y растёт быстрее X. 
   - Точка уходит вверх и вправо: система начинает активно реинвестировать. 

3. **Фаза стабилизации** 
   - Радиус растёт медленнее или стабилизируется. 
   - X и Y балансируются: приток покрывает реинвестиции, но остаётся профицит.
 
4. **Фаза устойчивого развития** 
   - Траектория — почти окружность с небольшим смещением вверх. 
   - Система генерирует стабильный профицит по Y (реинвестиции превышают приток). 


---

## Визуальная интерпретация (что видит пользователь)


- **Вариант;1 (линейный рост)** 
  - Спираль равномерно раскручивается вверх и вправо. 
  - Каждый виток выше предыдущего — система наращивает реинвестиции. 

- **Вариант;2 (экспоненциальный рост)** 
  - Спираль быстро уходит вверх, затем резко расширяется. 
  - Риск: если рост не подкреплён реальными активами, траектория может «сорваться» (точка уходит слишком далеко от центра). 
- **Вариант;3 (циклическая система)** 
  - Спираль с волнообразными колебаниями: то расширяется, то сжимается. 
  - Средний тренд — вверх: система адаптируется к циклам, сохраняя рост. 
- **Вариант;4 (адаптивная система)** 
  - Траектория пульсирует: радиус меняется в зависимости от баланса X и Y. 
  - Если Y > X — спираль расширяется; если X > Y — сжимается. 
  - Цель: удержать точку в зоне «устойчивого профицита» (выше оси X). 


---

## Ключевые метрики для контроля


Чтобы система всегда оставалась «в плюсе», отслеживайте:


1. **Соотношение Y;/;X** 
   - Если Y;/;X;>;1 ; система реинвестирует больше, чем получает (хорошо). 
   - Если Y;/;X;<;1 ; нужно снизить радиус или увеличить приток. 
2. **Скорость изменения радиуса** 
   - Слишком быстрый рост ; риск перегрева. 
   - Слишком медленный ; застой. 
3. **Дрейф по оси;Y** 
   - Должен быть положительным (точка уходит вверх). 
   - Отрицательный дрейф ; система теряет капитал. 
4. **Стабильность траектории** 
   - Резкие скачки ; высокая волатильность (риск). 
   - Плавный рост ; устойчивая модель. 


---

## Итог

Каждый из 4 вариантов моделирует **разные стратегии управления капиталом**:


- **Линейный** — консервативный рост (минимум риска). 
- **Экспоненциальный** — агрессивный рост (максимум прибыли, но и риск высок). 
- **Циклический** — адаптация к рыночным циклам (баланс риска и доходности). 
- **Адаптивный** — саморегулирование (оптимальный баланс в долгосрочной перспективе). 


Все модели **визуализируют экономику как движение точки**: 
- вправо (X) — приток капитала, 
- вверх (Y) — реинвестиции в развитие. 


**Цель достигнута**, если точка: 
- постоянно движется вверх (Y растёт), 
- не уходит слишком далеко вправо (X не превышает Y), 
- траектория стабильна (без резких скачков).