Текущее время: Пт дек 13, 2019 4:21 am   
 
* Вход   * Регистрация * FAQ    * Поиск
 

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 17 ]  На страницу 1, 2  След.
Автор Сообщение
 Заголовок сообщения: Матмоделирование развития экономики. Начало.
СообщениеДобавлено: Пн сен 04, 2006 10:45 pm 
Программа «Развитие»

На форуме по экономике следует давать идей в строгом виде, например как программы. Для примера и перелома ситуации.
В посте Можно ли разбогатеть, прочитав "Капитал"
http://www.cprf.ru/forum/viewtopic.php?t=14546&highlight= я предложил модель производства: вершина графа, в которой происходит преобразование некоторого множества ресурсов в другое множество. Для изучения этого процесса написана программа в DELPHI. Предназначена для изучения экономических законов на упрощенной модели.

Ниже - краткое описание программы и листинг. Найдете ошибки – сообщите.
Описание программы.
I. Исходные данные.
Задано:
1) Множество из 10 ресурсов. Количество ресурсов выбирается случайным образом по исходному числу, вводимому на форме, –x1.
2) Массив развития, 8 строк, 10 столбцов. Каждая строка соответствует одному типу производства.
Величины всех элемента выбираются случайным образом по исходному числу, вводимому на форме, – x2.
Каждому числу массива присваивается случайным образом (p=0,5) величина «–» или «+».
Плюс – в процессе производства получается продукция (увеличивается ресурс), минус – ресурс расходуется.

II. Действия:
3) Рассмотрена последовательная переработка ресурсов на «к+1» производств. Число «к» вводится на форме. Для унификации терминологии производства ниже называются шагами. На каждом шаге реализуется или отвергается по критерию, приводимому ниже, один тип производства из массива развития.
4) Последовательность типов производств выбирается случайным образом.
5) На каждом шаге решается, будет ли использован выбранный случайным образом тип производство по критерию:
Величина затрачиваемого ресурса не должна превосходить величину ресурса, полученного на предыдущем шаге.
III. Итоги – вывод на форме.
6) Массив ресурсов после развития G[0..d].
7) Сумма исходных ресурсов – x8.
8) Сумма ресурсов после развития – x6.
9) Коэффициент развития: x9 = x6: x8 .

IV Для отладки предусмотрено:
10.) Ввод переменной - x10.
При соотношении X9>X10 вывод текущей величины X9 и номер шага
11) Вывод величины x9 на шагах заданных соответствующих переменным x13, x14 и х15.
Величины x13, x14 и х15 подлежат вводу на форме.

Пример расчёта:

Ввод:
X1=100
X2=40
K=10000
X10=1,3
X13=2500
X14=5000
X15=7500

Вывод
X6= 452
X8= 536
X9= 1,18
при X13=2500 текущее X9= 1,18
при X14=5000 текущее X9= 1,18
при X15=7500 текущее X9= 1,18
X16=9991
X17=10
при x10=1,3 v=20 X9=1,32

Листинг программы «Развитие»

procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

const
d=9; // число ресурсов - 10
x=7; // число строк в массиве развития (модель производства) -8


var
Form1: TForm1;
N: array [0..d] of integer;// массив исходных ресурсов, после рандомизации
R: array [0..x, 0..d] of integer;// массив развития, после рандомизации
P: array [0..d] of integer; // резервный массив, пока не использован
G: array [0..d] of integer; // массив вывода, объемы ресурсов после расчётов
var
h: integer; // переменная при рандомизации ресурсрв
i: integer; // резерв, пока не использован
e: integer; // переменная при расчёте массива развития
a: integer; // переменная при расчёте массива развития
y: integer; // переменная при расчёте элементов массива развития
q: integer; // переменная при расчёте элементов массива развития
v: integer; // отсчёт строк массива развития
w: integer;// рандом строки массива развития
l: integer; // переменная для присвоения исходных величин массива G
x4: integer; //резерв
k: integer; //число шагов, имитации производства (массив G)
s: integer; // переменная в цикле проверки условия выбора строки из G
t: integer; // в цикле вычисления элементов массива G
x1: integer; // исходная величина ресурса в N до рандомизации - ввод
x2: integer;// исходная величина ресурса в G до рандомизации- ввод
x5: integer;// суммирование в G по строкам
x6: integer;// сумма ресурсов в конце расчёта - вывод
x7: integer;// переменная для расчёта суммы исходных ресурсрсов
x8: integer;// сумма исходных ресурсов - вывод
x9: real; // ВВП, коэффициент развития - вывод
x10: real; //порог для вывода величины x9 - ввод
x11: real;// фактическая величина при превышении порога - вывод
X12: integer; //метка первого превышения x9>x10
x13 : integer; // номер шага, контроль – ввод
x14 : integer; // номер шага, контроль – ввод
x15 : integer; // номер шага, контроль – ввод
x16 : integer; // число обращений к массиву развития без изменений элементов
x17 : integer; // число обращений к массиву развития с изменениями элементов
x18 : integer; // переменная для проверки рандом
Tick: Cardinal;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
label AB ;
begin
begin
{К0. Ввод данных}
k:=StrToInt(Edit1.Text);
X10:=StrToFloat(Edit51.Text);
x1:=StrToInt(Edit46.Text);
x2:=StrToInt(Edit47.Text);
x12 :=3;
x13:=StrToInt(Edit54.Text);
x14:=StrToInt(Edit56.Text);
x15:=StrToInt(Edit58.Text);
{К1. Рандомизация исходных ресурсов}
begin
for h:=0 to d do
N[h]:= random (X1)+1;
{К2. Вывод для отладки}
Edit2.Text:=IntToStr(N[0]);
Edit3.Text:=IntToStr(N[1]); Edit4.Text:=IntToStr(N[2]);
Edit4.Text:=IntToStr(N[2]);
Edit5.Text:=IntToStr(N[3]); Edit6.Text:=IntToStr(N[4]);
Edit7.Text:= IntToStr(N[5]); Edit8.Text:=IntToStr(N[6]);
Edit9.Text:=IntToStr(N[7]);
Edit10.Text:= IntToStr(N[8]);
Edit11.Text:= IntToStr(N[9]);
{К3. Расчёт исходной суммы ресурсов}

for X7:=0 to d
do X8:= N[x7]+ X8;
{К4. Вывод для отладки}
Edit49.Text:=IntToStr(X8);
end;
begin
{К5. Рандомизация ресурсов в массиве развития}
begin
for e:=0 to x do
for a:=0 to d do

begin
y:= random (x2)+1; //величина ресурса
q:= random (2); //знак ресурса
begin
if q = 1 then R[e][a]:= y;
if q = 0 then R[e][a]:= -y;
{К6. проверка генератора рандом}
if (q = 0) or (q = 1) then x18:=22
else x18:=33;
end;
{К7. Вывод для отладки}
Edit13.Text:=IntToStr(R[0][0]);
Edit14.Text:=IntToStr(R[0][1]);
Edit15.Text:=IntToStr(R[0][2]);
Edit16.Text:=IntToStr(R[0][3]);
Edit17.Text:=IntToStr(R[0][4]);
Edit18.Text:=IntToStr(R[0][5]);
Edit19.Text:=IntToStr(R[0][6]);
Edit20.Text:=IntToStr(R[0][7]);
Edit21.Text:=IntToStr(R[0][8]);
Edit22.Text:=IntToStr(R[0][9]);
Edit12.Text:=IntToStr(x18);
end;
end;
end;
end ;
{К8. Присвоение начальных величин G}
begin
for l:=0 to d do
G[l] := N[l];
{К8. Вывод для отладки}
Edit24.Text:=IntToStr(N[0]);
Edit25.Text:=IntToStr(R[0][0]);
Edit26.Text:=IntToStr(R[1][0]);
Edit27.Text:=IntToStr(R[2][0]);
Edit28.Text:=IntToStr(R[3][0]);
Edit29.Text:=IntToStr(R[0][1]);
Edit30.Text:=IntToStr(R[1][1]);
Edit31.Text:=IntToStr(R[2][1]);
Edit32.Text:=IntToStr(R[3][1]);
Edit33.Text:=IntToStr(G[0])
end;

{К9. Шаги развития}
Tick := GetTickCount;
begin
for v:= 0 to k do
begin

w:= random(x+1); // выбор строки в массиве R
begin
Form1.Caption:=IntToStr(GetTickCount-Tick);
for s:=0 to d do
{К10. Проверка условия задействования строки}
if
((G[s]+R[w,s])<1)
then
begin
x16:= x16+1; goto AB;
end;
end;
begin
x17:=x17+1;
for t:=0 to d do
G [t]:= R [w,t] + G [t];
end;

AB:
begin
{К11. Результат}
Edit35.Text:=IntToStr(G[0]);
Edit36.Text:=IntToStr(G[1]);
Edit37.Text:=IntToStr(G[2]);
Edit38.Text:=IntToStr(G[3]);
Edit39.Text:=IntToStr(G[4]);
Edit40.Text:=IntToStr(G[5]);
Edit41.Text:=IntToStr(G[6]);
Edit42.Text:=IntToStr(G[7]);
Edit43.Text:=IntToStr(G[8]);
Edit44.Text:=IntToStr(G[9]);
x6:=0;
{Расчёт суммы ресурсов}
for x5:=0 to d do
begin
X6:= G[x5]+x6;
{К12. Вывод суммы ресурсов - конечный}
Edit48.Text:=IntToStr(X6);
{К13. Расчёт коэффициента развития}
x9:= (X6/x8);
end;
{К14. Проверка на превышение коэффициентом развития заданной величины}
if (X9>X10) and (x12 =3) then
begin
X11:=X9 ; x12:=4;
Edit52.Text:=IntToStr(v);
Edit53.Text:=FloatToStr(X11);
end;
{К15. вывод контрольных точек}
if x13=v then
Edit55.Text:=FloatToStr(X9);
if x14=v then
Edit57.Text:=FloatToStr(X9);
if x15=v then
Edit59.Text:=FloatToStr(X9);
end;

{Вывод коэффициента развития}
Edit50.Text:=FloatToStr(X9);
end;

end;

Edit60.Text:=IntToStr(x16);
Edit61.Text:=IntToStr(x17);

end;
initialization
randomize;

end.


Вернуться к началу
  
 
 Заголовок сообщения: Для Яров
СообщениеДобавлено: Вт сен 05, 2006 7:54 pm 
Не в сети
Участник

Зарегистрирован: Вс янв 16, 2005 2:04 am
Сообщения: 2271
Откуда: Россия, Ю. З. Сибирь
Как жаль, что я и тут ни в зуб ногой, ни в Красную армию.

_________________
«Хотя всякая прибавочная стоимость представлена в каком-нибудь прибавочном продукте, прибавочный продукт сам по себе, напротив, не представляет прибавочной стоимости» (Маркс К., там же, т. 26, ч. 3, с. 383).


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Яров
СообщениеДобавлено: Ср сен 06, 2006 6:49 pm 
Не в сети
Сторонник КПРФ

Зарегистрирован: Вт фев 17, 2004 8:07 pm
Сообщения: 874
А могли бы Вы написать программу для рыночного самоуправления производителей расчетной ценой?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Яров
СообщениеДобавлено: Ср сен 06, 2006 10:29 pm 
OLGA писал(а):
А могли бы Вы написать программу для рыночного самоуправления производителей расчетной ценой?


OLGA!

Я не знаю такую задачу. Опишите подробней.


Вернуться к началу
  
 
 Заголовок сообщения: Яров
СообщениеДобавлено: Чт сен 07, 2006 7:10 am 
Яров пишет:
Цитата:
Описание программы.
I. Исходные данные.
Задано:
1) Множество из 10 ресурсов
.
Яров, а если 25000000 ресурсов и даже больше?

Бойко Сергей Иванович, красный комиссар


Вернуться к началу
  
 
 Заголовок сообщения: Яров
СообщениеДобавлено: Чт сен 07, 2006 11:56 am 
Не в сети
Сторонник КПРФ

Зарегистрирован: Вт фев 17, 2004 8:07 pm
Сообщения: 874
Цитата:
Цитата:
OLGA писал(а):
А могли бы Вы написать программу для рыночного самоуправления производителей расчетной ценой?


OLGA!

Я не знаю такую задачу. Опишите подробней.


Рынок можно рассмотреть как механизм товарно - денежных отношений разделения труда производителей. Режим работы механизма задается доминирующими политическими субъектами.
Задача состоит в том, чтобы субъективное политическое управление заменить объективным экономическим самоуправлением.
Критерием оптимальности рынка должно быть равенство спроса и предложения по всем товарам на основе закона стоимости и закона эквивалентного обмена. Отклонение цены от расчетной цены равновесия увеличивает или уменьшает прибыль производителя (при прочих неизменных условиях). Причем для расчета полной цены товара (цена прошлого труда + цена живого труда) достаточно расчета только цены живого труда, овеществленного в товаре.
Переменные:
П - предложение (производство) и t - структурная живая трудоемкость производства точно определяемы сферой производства.
С - спрос (платежеспособная потребность) вариативна. Определяется научным прогнозом по входным в производство и в потребление товарам.
Вот вкратце задача.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт сен 07, 2006 10:58 pm 
Не в сети
Интернет Первичка
Аватара пользователя

Зарегистрирован: Ср янв 14, 2004 8:38 pm
Сообщения: 3586
Откуда: Москва
Яров- Воистину круто. У меня тоже давно была идея создать программу, моделирующую похожие вещи, но руки не доходили. Обязательно откомпилирую прогу.

_________________
В Борьбе обретёшь ты право своё!


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Рулин
СообщениеДобавлено: Пт сен 08, 2006 12:13 am 
Рулин, а Вы прочли мою опубликованную статью "Прошу суд наказать академиков-мошенников", которые прописывают подобные программы, которые никак не учитывают механизм действия закона стоимости Маркса?

Бойко Сергей Иванович, красный комиссар


Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт сен 15, 2006 3:18 pm 
Не в сети
Интернет Первичка
Аватара пользователя

Зарегистрирован: Ср янв 14, 2004 8:38 pm
Сообщения: 3586
Откуда: Москва
serboyko - Они не учитывают не закон стоимости Маркса, а закон стоимости Маркса в вашей интерпретации, которую поддерживаете только вы с вашими студентами.

Яров - Запустил программу. В приципе , её можно назвать правильной , но только если принять следующие допущения.

1. Все указанные вами "ресурсы" в массиве N на деле НЕ ресурсы , а средства производства или же необходимые для производства вещи ( еда для работников и т.д.) . Ресурсами можно признать только то, что нельзя воспроизвести, т.е. то, что может только тратиться , а не производиться. Т.е. конечно у вас ресурсы есть , но их меньшество. Так как у вас может выпасть ситуация , что ВСЕ "ресурсы" увеличиваются, то это значит, что на деле в процессе производства у вас используются какие-то ЕЩЁ ИНСТИННЫЕ ресурсы, не указанные не в массиве N ни где либо ещё , которых, причём неограниченное количество.

2. Все указанные вами "ресурсы" В, как истинные, так неистиные являются одновременно ПРЕДМЕТАМИ ПОТРЕБЛЕНИЯ. Только в этом случае можно напрямую сравнивать их ценность , сравнивая их потребительные стоимости. В противном случае надо вести сравнение по трудовым стоимостям, которое в данной программе будет НЕВЕРНО ПРИ ЛЮБЫХ ДОПУЩЕНИЯХ.

3. Потребительные стоимости всех ресурсов , указанных в массиве N РАВНЫ.
В противном случае следовало бы умножать количество ресурсов на их потребительную стоимость и только тогда сравнивать ВВП, иначе бриллиант в 20 граммов приравнивается к булавке. В вашей программе все "ресурсы" имеют равную ценность для человека.

Только помня эти допущения можно делать сколько -нибудь серьёзные выводы из запуска данной программы.

Кроме того, у данной программы иногда получается, что ВВП после её запуска меньше ВВП до запуска. Необходимо поработать над алгоритмом, чтобы так не было. Рекомендую ввести цену "ресурса", которая бы зависила от его редкости. Тогда можно будет переходить от одного типа производства к другому, когда кончаются "ресурсы".
Плюс советую всё-же ввести принудительно , без рандома истиные ресурсы + средства производсва, которые предметами потребления не являются, и тогда выводить не ВВП, а СПС - сумму потребительных стоимостей. Плюс ввести без рандома предметы потребления, с помощью которых ничего произвести нельзя.

Если будете изменять программу, то выкладываете исходники полностью, с dfm и pas, и dpr - а то, вручную строить форуму с 60-ю edit , и потом их группировать , занятие прямо скажем не здоровое.

_________________
В Борьбе обретёшь ты право своё!


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Модернизируйте КПРФ!
СообщениеДобавлено: Сб сен 16, 2006 12:58 pm 
Рулин спасибо!
Со временем всё учту.

Остальным.
Писать по экономике не зная программирования, дальше Гайдара не уйти.
Надо. Информация.
1) Самый простой язык DELHI.
2) На бытовом уровне достаточно 1-2 месяца.
3) Советую для изучения книги для школьников. Например, Ю. Жуков «Изучаем Delpi»
4) Английский необязательно.
5) Для начала ставьте простые версии, например образца 2002г. Современные больно много возможностей. Для бытовых целей не нужно. Примета, программа на одном диске.
6) Если все члены КПРФ и сочувствующие выучат программирование – победа обеспечена.
7) Для радикальных борцов за светлое будущее. Один программист эффективней 10 бомбистов – террористов.


Вернуться к началу
  
 
 Заголовок сообщения: Яров
СообщениеДобавлено: Сб сен 16, 2006 1:23 pm 
Цитата:
Остальным.
Писать по экономике не зная программирования, дальше Гайдара не уйти.
Надо.

Любая программа - это всего лишь облегчение рутинной (механической) части интеллектуального труда. Маркс и Энгельст "писАли по экономике", не зная ни одного программного символа, кода или оператора.
А Гайдар и со знанием программирования не уйдет дальше монетаристских предствавлений об экономике.
Программирование - это всего лишь жернова, которые способны перемолоть всё: и зерна и плевела.


Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт сен 19, 2006 10:36 pm 
Не в сети
Интернет Первичка
Аватара пользователя

Зарегистрирован: Ср янв 14, 2004 8:38 pm
Сообщения: 3586
Откуда: Москва
Тут соглашусь с тов. экономист .

_________________
В Борьбе обретёшь ты право своё!


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Ярову по модели
СообщениеДобавлено: Ср сен 27, 2006 12:58 am 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн фев 21, 2005 11:40 am
Сообщения: 1622
Откуда: Магадан
Уважаемый Яров!

Не могли бы Вы пояснить, каким образом Вами в модели учтен человек, как участвует, в каком аспекте, явно/не явно ....?


____________________________________________
Vale

_________________
Vale


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Ярову по модели
СообщениеДобавлено: Ср сен 27, 2006 6:55 am 
Александр Грек писал(а):
Уважаемый Яров!

Не могли бы Вы пояснить, каким образом Вами в модели учтен человек, как участвует, в каком аспекте, явно/не явно ....?


____________________________________________
Vale


Александр Грек!
Пока никак. Очень сложная задача учесть в строгой математической модели живого человека.
Конечно, требуются модели, имитирующие действия народных масс и отдельных людей в разных ситуациях. Такими предсказаниями занято множество людей (от политиков до жуликов, часто впрочем, разница невелика), но исключительно на уровне интуиции.
Попробуйте создать модель, которая предскажет, что половина депутатов Тверской городской Думы оказались взяточниками. И почему только в Твери их привлекут к суду, хотя вероятней всего это творится во всех Думах, законодательных собраниях.
Или ещё задача - провести строгий математический расчёт, а есть ли какая реальная польза от Совета Федерации.
Один за другим уходят депутаты этого Совета по обвинениям в коррупции.
Востребована математическая: какой вариант выборов депутатов, создаёт наиболее коррумпированное сообщество. Пока все рассуждения на основе интуиции, а не на основе строгих математических моделей. Хотя бы простейших и приближенных.
Или создать математическую модель преступного сговора с целью повышения цен на квартиры. Почему цены выросли в 4 раза, а не в 3 или 5.


Вернуться к началу
  
 
 Заголовок сообщения: Ярову
СообщениеДобавлено: Ср сен 27, 2006 7:46 am 
Не в сети
Участник
Аватара пользователя

Зарегистрирован: Пн фев 21, 2005 11:40 am
Сообщения: 1622
Откуда: Магадан
Отриньте требуху - только человек экономический: производит/потребляет, схематично-рассудочно, условно.
Только "экономические диполи", уровень - выживание в минимальной сфере 2(3,4) потребности.

Без человека моделью чего будет Ваша программа?


_____________________________________________
Vale

_________________
Vale


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 17 ]  На страницу 1, 2  След.

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Rambler's Top100