ВВЕДЕНИЕ.
Программа – 3- ROST .
Исправлены ошибки в программе 1- ROST.
Исходник
https://yadi.sk/d/SWzxW1R-3HLymM

Ввод исходных данных непосредственно в программе.
Форма только для вывода.
Дельфи 7.

I. РАСЧЁТЫ

1. Общее
Экономика не строгая математическая наука.
Много теорий, иногда предсказания сбываются, иногда нет.
Почти случайно.
Как создать совершенную теорию?
В математике обычно используется следующий прием.
Дается математическая теория какого-либо объекта только в некоторых чертах, совпадающих со свойствами реального объекта.
Например, вводится понятие идеального газа, идеальной жидкости.
Или создаются абстрактные математические модели.
Например, пространство более трех измерений.
Для таких объектов создаются математические теории, которые после соответствующей адаптации уже применяются к реальным объектам.
Можно вести и понятие идеальной экономики.
2. Алгоритм
Что входит в это понятие.
1) Ресурсы.
Ресурсам могут придаваться самые различные параметры.
Пока  один параметр: величина.
Каждому ресурсу ставится в соответствие одно положительное число.
В программе задается число ресурсов: d.
В данной программе величины ресурсов выбираются случайным образом.
Массив ввода N: array [1..d] of integer.
Исходная сумма ресурсов – x8.
2) Производство.
Набор положительных и отрицательных чисел по числу ресурсов, заданных по п.1.
Величина положительного числа соответствует производству ресурса, то есть увеличению ресурса.
Отрицательное число соответствует – потреблению ресурса при производстве, то есть уменьшению величины ресурса.
Показатели производства: набор положительных и отрицательных чисел, формируются случайным образом.
Всего x производств.
Производство задаются массивом развития
R: array [1..x, 1..d] of integer;
3) В ходе выполнения программы выбирается случайным образом конкретное производство. Производится проверка: суммирование ресурсов на данной итерации с одноименными величинами массива производств.
Положительные величины суммируются.
Отрицательные величины массива развития вычитаются из величин ресурсов.
Если все величины  ресурсов после итерации будут больше заданной величины z6, происходит суммирование и переход к следующей итерации.
В противном случае суммирование не производится и осуществляется переход к следующей итерации.
Текущий массив ресурсов - G: array   [1..d] of integer
4) Число итераций задается –K.
После К итераций определяется величина ресурсов - X6.
Далее вычисляется величина коэффициента развития: отношение x9 = x6/x8.
Это аналог роста ВВП.
Вычисления по п. 1-4 названы основным циклом.
4) Вычисление по п.1-4 повторяется z4 итераций.
Эти вычисления названы суперциклом.
5) Во время каждой итерации суперцикла заполняется массив:
U1 array   [1..z4] of variant;
Каждый элемент  данного массива равен величине x9 по основному циклу.
Далее элементы массива U1[1..z4] суммируются, находится величина Z6.
И находится среднее Z7 по всем итерациям в цикле z4
Z7= z6/z4;
Суперцикл введен по следующим соображениям:
Результаты расчета по основному циклу носят вероятностный характер.
Поэтому требуется получить усредненный результат для расчётов по отдельным основным циклам.

II. МАССИВЫ ВВОДА

Const
d = 20; //число ресурсов d+1
         x=10;  // число массивов развития
x1=150; // исходная величина ресурса до рандомизации
x2=50;  // объем исходного ресурса для массивов развития
  z4=100;// число циклов по отдельным расчётам x9
  z6=7;   // критерий при переходе в цикле v
  K=1000;//  число циклов по расчёту  x9
  uu = 1; // номер цикла z1 для вывода результатов счёта
  //в основном цикле

III. ВЫВОД
Результат расчетов переменная z8.
Остальные переменные выводятся для понимания порядка расчётов.
Переменные выводятся в таблице Grid и в окнах Edit.
Grid:
Массив u1[1..z4]: результаты расчётов по отдельным итерациям суперцикла.
Итог: результаты расчётов - переменные z7 (сумма) и z8 (=ср.).
Часть десятичных знаков отброшена.
Вывод:
Строка 7
Выводится массив n[1..d] для суперцикла № uu.
Строка 8
Выводится массив R[1, 1..d]
для суперцикла № uu.

Ниже:
Вывод матрицы P[1..k,1..d], которая содержит величины ресурсов
в ходе основного цикла для суперцикла № uu.
Вывод матрицы R[1..x,1..d], которая содержит величины изменений ресурсов в отдельных производствах.
ресурсов

IV. РЕЗУЛЬТАТЫ СЧЁТА

Отредактировано ABC (2021-12-07 23:55:49)