Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Орловский Дмитрий
Статус: Академик
Рейтинг: 5180
∙ повысить рейтинг »
Boriss
Статус: Академик
Рейтинг: 2670
∙ повысить рейтинг »
cradlea
Статус: Практикант
Рейтинг: 1810
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Delphi и Lazarus

Номер выпуска:1600
Дата выхода:29.05.2011, 00:00
Администратор рассылки:Киселёва Алёна aka Verena (Профессор)
Подписчиков / экспертов:251 / 177
Вопросов / ответов:1 / 1

Вопрос № 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 (Россия) | Еще номера »
  • Отправить WebMoney:


  • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.



    В избранное