Здравствуйте.
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 году какая-то высшая инстанция заставила экономистов тарифные ставки сдельщиков рассчитывать с тремя знаками после запятой, а программы, естественно, на это не были рассчитаны. Мы (программисты) несколько дней «на ушах стояли», пока все «глюки» с переходом на такой формат вылавливали,
Поэтому, даже за счет точности, округление обязательно! Если мы хотим приближения модели к действительности.
«Как представляется, корень проблем - в алгоритме вычисления цены. Почему-то неявно предполагается, что деньги, предназначенные для закупки товаров какой-либо отрасли, есть величина постоянная и для всех отраслей равная. Это неявное предположение губит всю модель.»
Цена устанавливается как отклонение спроса на соответствующий вид товара. Исходный спрос определяется перед началом цикла расчетов. Естественно, он общий по всем отраслям – это начальное условие. Если Вы это пытались объяснить, то не нашли нужных слов. Если у Вас есть другой алгоритм вычисления цены, я готов его реализовать.
Ефремов.