Лабораторные работы по экономике

[kucherywy]

Здравствуйте!

Ефремов

Факт то, что на мировом рынке все цены равны
Нет. иначе невозможна была спекуляция, ну купил за рубль в месте А и продал за 10 в месте Б.

влияние трудоемкости на стоимость мы хотим узнать ну если сравнивать сопоставимые вещи, Китай с Китаем и програмистов с програмистами, то понятное дело, чем выше трудоёмкость - тем выше и стоимость. Что тут узнавать?
Хотя, всё же не всегда стоимость пропорциональна трудоёмкости, например, програмист написал прогу маленькую за 1 неделю и получил за неё 1000 долларов, и написал прогу побольше за 2 месяца и получил за неё 4000 долларов, т.е. 500 долларов в неделю... но, с другой стороны можно сказать, что в 1 случае получилась больше прибыль что ли.

Какие цели лабораторной работы?
Узнать, что чем выше трудоёмкость тем выше и себестоимость? - так это и ежу понятно.

[Ефремов]

Здравствуйте.

Enemy of the People

«То, график чего Вы мне показали, есть произведение цены до итерации на объем после итерации. Физический смысл этого произведения я выяснить затрудняюсь.»
Еще раз повторю: в программе такого вычисления не делается.

«Вычислите произведение цены после итерации на объем после итерации (это, как я полагаю, есть цена произведенного отраслью товара). Эта величина будет, как мне кажется, константой, для всех отраслей одинаковой и равной общей сумме денег, деленной на число отраслей.
Что непонятно?»
Я тоже думаю: чего Вам не понятно? График изменения от итерации к итерации привел...
И произведения такого я не вычисляю…
Можете сами в функции: fnTimer(), в строках ***:
for(i = 0; i < 10; i++)
sArray[nCicle] = sArray[nCicle] + fnRound(nPrice[i]) + ";";
заменить nPrice[i] на любую иную переменную из списка:
nPeople[i] - Всего занято в отрасли
nPrice[i] - Цена изделия в отрасли
nСapacity[i] - Производительность труда
nVolume[i] - Объем производства в отрасли
nSumma[i] - Сумма средств на счете

Это заполнение таблицы по которой строится график.
Если строки *** переставите ниже строки TransitionBranch();
То на графике будут данные после итерации.
Экспериментируйте. Но, еще раз повторю, сумма меняется только в процессе реализации – функция: SalesProducts(nCicle);
И это как последовательное соединение резисторов: хоть в начало поставь, хоть в конец, сопротивление цепочки не изменится...

kucherywy

«Какие цели лабораторной работы?
Узнать, что чем выше трудоёмкость тем выше и себестоимость? - так это и ежу понятно.»
Как показывает практика, не всем понятно...
Только, не себестоимость, а стоимость – имманентное свойство товара. Себестоимость – это внешнее проявление стоимости.

Как только разберемся со стоимостью, можно будет провести лабораторную работу по другим экономическим законам.

Ефремов.

[Enemy of the People]

Ефимову

Мне кажется, от Вашего первого сообщения отвалилась программа. В итоге никто кроме нас (меня и Вас) вообще ничего понять не может.

[Ефремов]

Здравствуйте.

Enemy of the People

«Мне кажется, от Вашего первого сообщения отвалилась программа. В итоге никто кроме нас (меня и Вас) вообще ничего понять не может.»
Это я ее удалил и вставил новую версию в сообщение чуть ниже: http://forum.kpe.ru/showpost.php?p=129623&postcount=8
Причину объяснил в том же сообщении.

Вы не внимательно читаете сообщения?

Ефремов.
Модераторы, вставьте, пожалуйста, в первое сообщении ссылку на сообщение с файлом программы : http://forum.kpe.ru/showpost.php?p=129623&postcount=8

[Enemy of the People]

Но Вы же не сказали, что потерли предыдущую версию из первого сообщения!

[Enemy of the People]

С помощью программы Ефремова Laboratory_1.htm мной проведен следующий численный эксперимент.

1. Изменения в программе

а) Вывод значений перенесен на момент после вычисления цен (сразу за CalculatePrice()). Выводится значение произведения nPrice[i]*nVolume[i].

б) Формула для вычисления цены освобождена от округлений: вместо оператора

nPrice[n] = Math.max(0.01, fnRound(t / nOffer[n]));

используется оператор

nPrice[n] = t / nOffer[n];

Программа прилагается

2. Результаты.

а) Значения произведения nPrice[i]*nVolume[i] для всех i (всех отраслей) остаются неизменными, равными друг другу и величине 100000 с абсолютной точностью 0,03. Точность соответствует вычислениям с 8-ю знаками. Величина 100000 равна "общей сумме денег" 1000000, деленной на "число отраслей" 10

б) переход к исходной формуле вычисления цены оставляет результат п. а) в силе, однако точность сильно снижается - до единиц процентов (единиц тысяч в абсолютном выражении). График соответствует приведенному в сообщении #27.

3. Обсуждение

а) Произведение nPrice[i]*nVolume[i] представляет собой цену товара, предлагаемого отраслью к продаже (ранее, не заметив маленького плюсика в формуле, я утверждал, что это произведение соответствует цене произведенного отраслью товара - это была ошибка; плюсик соответствует добавке остатков к произведенному товару). Таким образом, модель Ефремова позволяет сделать вывод об постоянстве во времени цены предлагаемого отраслью товара и независимости этой цены от отрасли. С моей, дилетантской, точки зрения этот вывод грубо противоречит действительности. Оправданием любой численной модели является соответствие ее предсказаний действительности. Любое, пусть и единственное, некорректное предсказание полностью дискредитирует модель.

б) Сильная зависимость результатов от мелких технических деталей типа округлений свидетельствует о крайней ненадежности результатов независимо от п. а)

4. Лирика

Как представляется, корень проблем - в алгоритме вычисления цены. Почему-то неявно предполагается, что деньги, предназначенные для закупки товаров какой-либо отрасли, есть величина постоянная и для всех отраслей равная. Это неявное предположение губит всю модель.

[Enemy of the People]

Программа

[Ефремов]

Здравствуйте.

Enemy of the People

Зря Вы выложили программу под тем же именем. Больше так не делайте!

«Вывод значений перенесен на момент после вычисления цен (сразу за CalculatePrice()). Выводится значение произведения nPrice[i]*nVolume[i].»
Попытаюсь объяснить Вашу ошибку: с каждой итерацией цена адаптируется к трудоемкости (закон стоимости), т.е. произведение вновь вычисленной цены на объем выпуска величина более-менее постоянная. Вчитайтесь еще раз в закон стоимости: «Стоимость товаров обратно пропорциональна производительной силе труда» – т.е. произведение стоимости на производительную силу труда в идеале константа.

Если Вы вывод вернете на место, то получите картинку адаптации еще красивее:

«Формула для вычисления цены освобождена от округлений: вместо оператора
nPrice[n] = Math.max(0.01, fnRound(t / nOffer[n]));
используется оператор
nPrice[n] = t / nOffer[n];»
Я ни разу не видел на ценниках величины с тремя и более значениями после запятой.
Только один раз, после деноминации в 1998 году какая-то высшая инстанция заставила экономистов тарифные ставки сдельщиков рассчитывать с тремя знаками после запятой, а программы, естественно, на это не были рассчитаны. Мы (программисты) несколько дней «на ушах стояли», пока все «глюки» с переходом на такой формат вылавливали,
Поэтому, даже за счет точности, округление обязательно! Если мы хотим приближения модели к действительности.

«Как представляется, корень проблем - в алгоритме вычисления цены. Почему-то неявно предполагается, что деньги, предназначенные для закупки товаров какой-либо отрасли, есть величина постоянная и для всех отраслей равная. Это неявное предположение губит всю модель.»
Цена устанавливается как отклонение спроса на соответствующий вид товара. Исходный спрос определяется перед началом цикла расчетов. Естественно, он общий по всем отраслям – это начальное условие. Если Вы это пытались объяснить, то не нашли нужных слов. Если у Вас есть другой алгоритм вычисления цены, я готов его реализовать.

Ефремов.