Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Ошибка округления

Автор: wladk 25.11.2005, 00:44

Без долгих рассуждений - есть код: Код #!c:/perl/bin/perl.exe use strict; my %P; $P{'Первый Множитель'} = 120.3;  $P{'Второй Множитель'} = 7300; $P{'Tретий Множитель'} = 1.050; $P{'Четвертый Множитель'} = 1.030; $P{'Произведение по первой схеме'} = $P{'Первый Множитель'} * $P{'Второй Множитель'} * $P{'Tретий Множитель'} * $P{'Четвертый Множитель'}; $P{'Произведение по второй схеме'} = $P{'Tретий Множитель'} * $P{'Четвертый Множитель'} * $P{'Первый Множитель'} * $P{'Второй Множитель'}; printf "Произведение по первой схеме неокругленное: %.20f\n", $P{'Произведение по первой схеме'}; printf "Произведение по первой схеме округленное: %.2f\n", $P{'Произведение по первой схеме'}; printf "Произведение по второй схеме неокругленное: %.20f\n", $P{'Произведение по второй схеме'}; printf "Произведение по второй схеме округленное: %.2f\n", $P{'Произведение по второй схеме'}; Насколько я помню математику 4-го класса, от перемены мест множителей произведение не меняется. Данный скрипт иллюстрирует, что у перла на это свое мнение. (результат работы приведенного выше скрипта) Цитата Произведение по первой схеме неокругленное: 949762.48499999999000000000 Произведение по первой схеме округленное: 949762.48 Произведение по второй схеме неокругленное: 949762.48500000010000000000 Произведение по второй схеме округленное: 949762.49 Я понимаю, что проблемма связана с представлением чисел с плавающей запятой в компьютере. Но все же, что же делать то? Есть идеи?

Автор: Kiber_rat 25.11.2005, 01:17

Я бы попробовал заюзать какой нить математический модуль... http://search.cpan.org/~tels/Math-BigInt-1.77/lib/Math/BigFloat.pm к примеру. А по простому - используй целочисленную математику., т.е. перед тем как использовать операнды, умножь их на 10000 (что бы все стали целыми) а потом результат - раздели на те же 10000

Автор: Uhuhu 25.11.2005, 20:17

Перл округляет числа не по привычной математической схеме (до пяти сотых - меньше, после - больше), а по привычной для программистов схеме (и более удобной?): к четному числу. Читайте спецификацию языка

Автор: wladk 26.11.2005, 01:19

Цитата(Uhuhu @ 25.11.2005, 20:17) Перл округляет числа не по привычной математической схеме (до пяти сотых - меньше, после - больше), а по привычной для программистов схеме (и более удобной?): к четному числу. 1. Для програмиста много чего привычно и удобно Однако же есть еще в мире случаи, когда программисты пишут программы для кого-то, кто не есть программист. Например бухгалтер. А их(вот же людей затуркали) убедили, что 1,245 после округления будет 1,25, а не 1,24... 2, Если вы внимательно посмотрите на данные, то увидите, что в одном случае округлестя к четному 949762.48, а другой раз к не четному 949762.48. Вот в эотом то был вопрос.... в зависимости результат от порядка следования операндов... Цитата Читайте спецификацию языка ссылочку будьте добры. А то у меня в башку вот засело, хоть ты тресни Цитата Peri округляет последний разряд вверх, если следующая цифра равна 5 и более, и вниз в противном случае. Что в принципе соотносится с данными в предидущем примере.... А вы случайно не спутали с функцией Round, модуля Math::BigFloat, вот у нее таки да, такой характер....

Автор: Guest 26.11.2005, 01:23

Цитата(Kiber_rat @ 25.11.2005, 01:17) Я бы попробовал заюзать какой нить математический модуль... http://search.cpan.org/~tels/Math-BigInt-1.77/lib/Math/BigFloat.pm  к примеру. А по простому - используй целочисленную математику., т.е. перед тем как использовать операнды, умножь их на 10000 (что бы все стали целыми) а потом результат - раздели на те же 10000 Спасибо за идею.... ВОт идея с челочисленной математикой мне понравилась... Только наверное и хранить так надо.... а при выводе делить. Только не 10000, а на кол-во множителей*10000:) А моножителей может быть дофигища...... Все равно спасибо! Вывел меня из ступора!:)))

Автор: Usya 26.11.2005, 06:24

Цитата Я понимаю, что проблемма связана с представлением чисел с плавающей запятой в компьютере. Но все же, что же делать то? А что здесь поделаешь??? Ничего... Perl все правильно сделал. Я тебе могу кучу примеров привести, где от перестановки может координально поменяться ответ. Да и в учебниках есть соответствующие примеры об этом... И округлил Perl результаты правильно. На счет умножения на 10000 - может подойти в 99% случаев. Все зависит от того, сколько и какие арифметические операции ты выполняешь, нужно ли сохранять промежуточные округленные данные с последующим использованием и с какой точностью они сохранены, а то там может начать давать о себе знать погрешность округлений. На счет идей - попробуй перед тем, как выводить результат в приведенном коде, прибавить к нему, например, 0.0000000001 - мелочь, а приятно. И будет Вам счастье . Хотя надо посмотреть, может придется на всякий случай прибавлять число, например, в 10 или 100 раз поболее (на всякий случай). Это зависит от количества и вида операций... Для хранения данных ничего прибавлять не надо. P/s Цитата А моножителей может быть дофигища...... Все в мире относительно. Почитай про абсолютную погрешность и ты сам сможешь ее оценить. А то может эта погрешность оказаться больше твоего результата со всеми вытекающими последствиями

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)