ВНИМАНИЕ! На форуме начался конкурс - астрофотография месяца ФЕВРАЛЬ!
0 Пользователей и 1 Гость просматривают эту тему.
Или познавательных программок. Например, хотя бы, "бросок тела под углом к горизонту".
Обратил внимание, вы решение этого примера уже упоминали, а как вы собираетесь это запрограммировать? С чистого листа или всё же подключить какой-то физический движок?
Без готового физического движка вы будете долго программировать даже простую траекторию полёта камня
простую траекторию полёта камня, брошенного на Луне...
Это можно элементарно выполнить или на Canvas или же, перемещая (да хотя бы TImage) на форме.Но раз уж начал щупать OpenGL, то ясное дело: самый лучший вариант изучения - это простого, к сложному (т.е., начать с простой игрушки) - а далее, "как звезды укажут..." :-)
формула закона тяготения и механики, в т.ч. небесной, известны давно и успешно рассчитывались траектории полёта снарядов задолго до компьютеров. Но вы же графику, причём в 3d хотите показать, на Canvas в 2d у вас получится плоско, схематично
... даже продвинутые программисты въезжают обычно годами, часто щупают код и потом говорят, что нет, мол, это всё не моё. Лучше базы данных или вебсайты стану юзать.
информационно-просветительное
генерация экзопланет с фрактальными террейнами, литосферами и биосферами даёт такую возможность. Но основная цель всё-таки создать виртуальную модель эволюции звёзд с экзопланетами галактики на шкале времени + - 10 gyr. C перспективой выхода на интегральное статистическое уравнение Дрейка, Дойла, прогнозирование обитаемости Млечного Пути и численное решение парадокса Ферми. Определение областей и направлений наиболее вероятного расположения обитаемых инопланетных систем на небесной сфере, чтобы поиск по программам SETI был более целенаправленным
if length(Operation)>0 then begin if AnsiUpperCase(Operation) = AnsiUpperCase('open') then YesNext:=true; if AnsiUpperCase(Operation) = AnsiUpperCase('print') then YesNext:=true; if AnsiUpperCase(Operation) = AnsiUpperCase('explore') then YesNext:=true; if YesNext then begin FileName:=trim(FileName); Parameters:=trim(Parameters); Directory:=trim(Directory); StrPCopy(C1,Operation); StrPCopy(C2,FileName); StrPCopy(C3,Parameters); StrPCopy(C4,Directory); Result:=ShellExecute(Wnd,C1,C2,C3,C4,ShowCmd); end;
case Key of 'w','W','ц','Ц': // Выход на WIKI по клавише begin S := 'https://ru.ruwiki.ru/wiki/' + miHelpWiki.Caption; ShellExecute(0, 'open', PWideChar(S), '', '', SW_SHOW); end; end;
Это, заметьте, справка для целей "информационного-просвещения"
2. Чего ты ждешь (см. пункт 1) от этого проекта в качестве конечной цели в обозримой перспективе (чтобы это тебя устроило)?
Ну, так вот.Мы вряд ли продвинемся хотя бы на миллиметр (в контексте AstrobloQ).До тех пор, пока для меня не станет прозрачным и понятным ответ на это вопрос:
но вы отвлеклись на какие-то не относящиеся к астрономии вопросы ... и демагогию с философией на отвлечённые ваши личные проблемы
... Но я создал большой астрономический проект AstrobloQ ... но пока ... программисты на Паскале подключиться, участвовать в git-программировании, не спешат...
воспринял, как попытки искать сподвижников. И... прикинул на себя.
есть уже некоторое прикладное решение, которое эмулирует "гравитационную жизнь Солнечной Системы".Может быть даже оно далеко не до конца отлажено (и даже не полностью реализовано).Но там есть/будет возможность проведения экспериментов
...дальнейшее обсуждение этих моментов - будет интересно для посетителей этой ветки форума.