|
Модераторы: Poseidon, Snowy, bems, MetalFan |
|
Albinos_x |
|
|||
Evil Skynet Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 26 Всего: 108 |
Доброго времени суток!
Вот сталкнулся с задачей. Программе нужно знать время восхода и захода солнца на заданный пользователем день. Поиск по форуму ничего не дал. Поиск по интернету выдал исходники на Бейсике, пытался разобраться... потом нашёл исходники на делфи... Но результат, который выдаёт программа не соответствует истине например: для данных: 55 широта 84 долгота +6 часовой пояс дата: 18.10.2005 выдаёт: время восхода: 5:18 время захода: 19:01 а истинное значение: время восхода: 8:04 время захода: 18:22 как видите разница существенная. Может кто-то делал подобное и знает как решить данную задачу? заранее СПАСИБО!!! Добавлено @ 15:31 если кому интересно, вот код, который я использовал (немного изменил, для удобства использования) :
-------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
Самурай |
|
|||
Unregistered |
{
Программа вычисляет время восхода и захода солнца по дате (с точностью до минуты) в пределах нескольких текущих столетий. Производит корректировку, если географическая точка находится в арктическом или антарктическом регионе, где заход или восход солнца на текущую дату может не состояться. Вводимые данные: положительная северная широта и отрицательная западная долгота. Часовой пояс указывается относительно Гринвича (например, 5 для EST и 4 для EDT). Алгоритм обсуждался в "Sky & Telescope" за август 1994, страница 84. }
Это сообщение отредактировал(а) Girder - 18.10.2005, 21:53 |
|||
|
||||
Albinos_x |
|
|||
Evil Skynet Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 26 Всего: 108 |
Самурай, если ты не обратил внимание, то этот алгоритм полностью эдентичен тому, который я привёл
За исключением одного, все действия занесены в одну функцию. Я начинал пробовать именно с этого варианта, но результат тот же -------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
Albinos_x |
|
|||
Evil Skynet Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 26 Всего: 108 |
вот в результате суточных мучений и кучи прочитанной литературы навоял свой код и алгоритм.
Пока ещё сыроват, нужно сделать некоторые доработки. Но для подсчёта времени восхода и захода в северной широте и за пределами полярного круга выдаёт более точное время: входные данные: L- широта-55 В-долгота-83 Н-часовой пояс Результат: восход 7:26 заход 17:58 Расхождение с Более точными данными: Восход: +38 мин Заход : +26 мин косяк видимо, где-то в вычислении звёздного времени по отношению к тропическому...а так же возможно, то что нет более точной точки привязки... бумс разбираться, нужно добиться погрешности не более 5 мин... сам код функции:
Это сообщение отредактировал(а) Albinos_x - 19.10.2005, 13:58 -------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
Albinos_x |
|
|||
Evil Skynet Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 26 Всего: 108 |
по косяку... по характеру отклонения от более точных данных, делаю предварительный вывод:
Отклонение, как я уже сказал, где-то в вычилении разницы тропического и звёздного времени, плюс к этому отсутствие учёта рефракции и суточного паралакса..... разбираюсь... вернее уже завтра буду, время 6:06, я еще не ложился, через 2 часа вставать... -------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
Albinos_x |
|
|||
Evil Skynet Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 26 Всего: 108 |
разобрался... придётся переписывать почти весь код... этот выдаёт хоть и более реалистичные данные чем, самый первый, но всё равно не приемлимые для точного расчёта
-------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
kuksha |
|
|||
Бывалый Профиль Группа: Участник Сообщений: 154 Регистрация: 15.6.2011 Репутация: нет Всего: нет |
И где же код рабочий, итог ночей бессонных ? Albinos_x, хоть бы намекнули где поправить надо... Пытаюсь найти рабочий код на Паскале, а нету - везде вот этот, который выше, но он не работает (ладно на Паскале, хоть бы сам алгоритм нормальный - от раннего средневековья до 2500 года примерно...) Это сообщение отредактировал(а) kuksha - 15.12.2022, 22:27 |
|||
|
||||
Правила форума "Delphi: Общие вопросы" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |