Вопрос № 183163: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на Delphi7 которая будет генерировать улучшенное изображение произвольного эллипса методом Руа. Описание алгоритма преведено в архиве по ссылке : Вопрос № 183163:
Здравствуйте! Прошу помощи в следующем вопросе: написать программу на Delphi7 которая будет генерировать улучшенное изображение произвольного эллипса методом Руа. Описание алгоритма преведено в архиве по ссылке : алгоритм
Отправлен: 13.05.2011, 23:35
Вопрос задал: Faraon (Посетитель)
Всего ответов: 1 Страница вопроса »
Отвечает Сергей Бендер (Практикант) :
Здравствуйте, Faraon!
Итак. Вот что я получил. Проблема, как я уже отвечал в целочисленной арифметике. Там очень быстро растут значения переменных. Например, при тех данных, которые вы задали в своей программе (радиусы -- 30 и 20, угловые параметры -- 9 и 6), alpha составляет 64800, beta -- 87300. а k -- вообще 42120000. В результате при вычислении Dxt1 в выражении rk*sqr(rbeta-rgamma0) получается промежуточный результат имеет порядок выше, чем 10^16. А максимальное значение 32-разрядного integer
примерно 2*10^9. Поэтому там некорректно вычисляются значения и рисуется ерунда. (Если же включить Run-time error checking, то код будет просто прерываться.)
Я как-то думал, что вам предписано делать строго по теории. Поэтому пытался выкрутиться с целыми числами -- в Delphi есть тип данных int64, у него побольше диапазон. Всё равно плохо или вообще не работало. Есть там много мест и ситуаций, где код понимается не так. Только время потерял.
В общем, р
ешение то, о котором я писал в прошлый раз. Я присвоил значения в real-переменные rk, rbeta, rgamma0, ralpha и rgamma и перевёл на них расчёты Dxt1, Dxt2, Dxt0, U, dyn и d1. Короче работает, хотя пару раз сбоило -- потом снова заработало. Проект в приложении. Задавайте вопросы. Прикрепленный файл:загрузить »
Ответ отправил: Сергей Бендер (Практикант)
Ответ отправлен: 27.05.2011, 00:31
Номер ответа: 267407 Тел.: 8-912-761-0437 Организация: Удмуртский ГосУнивеситет. г. Ижевск. Абонент Skype: ostapbskype
Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 267407
на номер 1151 (Россия) |
Еще номера »
Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.