VPF::перл производит вычисления - Форум программистов

Гость_Сергей

Дата 25.4.2005, 15:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

вот простенький скрипт
#!/usr/bin/perl
print "Content-type: text/html; charset=koi8-r\n\n";
for ($i=0.6; $i<=1.6; $i+=0.001) {
print "$i<br>\n";
}
ничего вроде сложного, должен столбец выводиться
0.6
0.601
0.602
...
1.6

но начиная гдето со значения 1.4 выдаёт
1.3999999999
1.4009999999
и т. д.

может это у меня только так?
и почему это так получается?

korob2001

Дата 25.4.2005, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Код


#!/usr/bin/perl
print "Content-type: text/html; charset=koi8-r\n\n";
for ($i=0.6; $i<=1.6; $i+=0.001) {
printf("%.3f<br>\n", $i);
}

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Kiber_rat

Дата 25.4.2005, 15:20 (ссылка)

(нет голосов)

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

Репутация: 1
Всего: 9

Забавно, я немного переделал твой код и у меня получился правильный вывод, а твой действительно странно себя ведет... В любом случае можно в таких случаях использовать printf или sprinf
Вот мой код:

Код


#!/usr/bin/perl -w
print "Content-type: text/html; charset=koi8-r\n\n";
print $_/1000+0.001."<br>\n" for (600..1599);

--------------------

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

Гость_Сергей

Дата 25.4.2005, 17:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

а почему же так получается?
может кто из знающих подскажет?

Kiber_rat

Дата 26.4.2005, 02:29 (ссылка)

(нет голосов)

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

Репутация: 1
Всего: 9

Вот порасспросил знакомого "гуру" smile

Привожу цитату:

Цитата

Я-ж говорю - патамучта дроби. Подумай сам: дробей бесконечное кол-во, согласен?
А битов/байтов, которыми нужно задать любое число - конечное. Поэтому некоторые
(многие smile

) дробные числа вообще не имеют представления на компе и округляются
в какую-нить сторону.
И чем больше ты с ними работаешь - тем больше погрешность накапливается.
Лечится это несколькими способами:
- работать только с целыми числами (т.е. умножить на коэффициент) а перед
выводом разделить чтобы получить нужные числа
- работать с тектовыми представлениями чисел - очень медленно и неудобно, но
100% точность
- использовать модули Math::* которые работают а-ля в тектовом виде, но
написаны оптимизировано на C
Ну и т.д. Идея, я думаю, понятна. smile

--------------------

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

korob2001

Дата 26.4.2005, 02:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Причем это проблема не только в Perl, но и в других языках.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Ivan Kolesnikov

Дата 26.4.2005, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 9.3.2005
Где: г. Новокузнецк

Репутация: нет
Всего: 6

В десятичной системе
1.2 = 1*10^1 + 2*10^(-1)
Можно заметить:
0.2 = 1/5 или приблеженно равно = 1/8 + 1/16 + 1/128 = 25/128 = 0.1953125
Точного представления все равно не получится, потому что нет такого числа что (2^x) % 5 = 0
И получаем в двоичной системе
1*2^0+0*2^(-1)+0*2^(-2)+1*2^(-3)+1*2^(-4)+0*2^(-5)+0*2^(-6)+1*2^(-7)+... = 1.0011001...

Интересно, например в 3-ной системе 1/3 переходит в 0.1, причем точно smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »