@domestozzz

Здравствуйте. Где можно найти 3д модель земли для паскаля?
Искал, не нашел.

0

@JuriiMW

Вот здесь: C:\PABCWork.NET\Samples\Graph3D\Earth.jpg
А вот здесь программа, которая вращает землю: C:\PABCWork.NET\Samples\Graph3D\EarthImageMaterial.pas

2

@mr-Crocodile

прямо в папке Pascal ABC.NET
зайди в папку, где у тебя установлен Паскаль, найди там папку "Samples\Graph3D\SunSystem"

Добавлено через 2 минуты
Она не только вращает, она позволяет приближать/удалять и изменять угол наклона (мышкой).

0

@domestozzz

Спасибо, не думал что так просто будет.

0

@mr-Crocodile

так просто только потому, что используется целая библиотека,
почти 5 тысяч строк исходного кода + использование системных библиотек.

а так - да, всё просто!

0

@Сергей Игнатьев

domestozzz,
В свободное время занимаюсь расчетами гравитационных полей, в том числе Земли и достаточно точно расcчитываю уравнения движения и траектории планет в Солнечной системе. Все программы анимации на PascalABC.net (Graph3D).
Тексты огромные. Могу показать только картинки и коротенькие видео.

Миниатюры

 

0

@Сергей Игнатьев

domestozzz,
Вот скрин 3D анимации движения планет и некоторых спутников, у меня в расчетах качество изображения на 2 порядка лучше, но что есть.

Миниатюры

 

0

@JuriiMW

Сергей Игнатьев, расстояние от Солнца до Венеры 108 млн.км.
диаметр Солнца ≈1.4 млн.км
их отношение ≈77
Это значит, что между Солнцем и Венерой легко влезет ещё 76 шариков размером с Солнце.
Судя по вашему скриншоту из https://www.cyberforum.ru/post15559535.html — всего 2…

При этом я ещё не говорю про соотношение размеров…
Сатурн с Юпитером выглядят явно больше светила, хотя первый имеет диаметр 58 тыс.км., а второй — 70.

0

@Сергей Игнатьев

JuriiMW,
Согласен, масштабы расстояний на картинке изменены специально для символического изображения движения планет.
Скорости вращения планет тоже выведены в сутках Земли, иначе в реальном времени анимация практически нулевая.
Например, сутки в анимации длятся около 8 сек, можно конечно ускорить, можно замедлить.
Радиусы орбит спутников планет на картинке и радиус Солнца тоже для наглядности имеют другой масштаб, но время оборота и вращения всех пропорционально суткам Земли.
Расчеты же проводятся путем решения дифференциальных уравнений движения с двойной точностью в реальных масштабах и с реальным шагом по времени
Для проверки точности модели были решены приближенными методами известные аналитические выкладки Лагранжа для гравитационной задачи трех тел.
Результат такой: за один млн шагов интегрирования получена погрешность менее 1*10^ -14 % от угла тела на орбите.
На основании многочисленных расчетных экспериментов найден оптимальный шаг по времени dt = 30 мин.
Это означает, что один млн шагов для планет Солнечной системы составляет около 57 Земных лет.
Теперь можно смело рассчитывать орбиту Меркурия и определить реальную причину его аномальной прецессии за 100 лет. (Только про Эйнштейна не надо, пожалуйста!)
Мне не хватает только максимально точных начальных данных, а именно эфемерид всех планет на две точные даты для сравнения и подтверждения точности расчетов модели.
Для справки: Астрономические ежегодники Академии наук с эфемеридами продаются только в Санкт-Петербурге и только лично. Мне нужно два ежегодника за разные годы,
например 2012 и 2020, могу оплатить наложенным платежом, но ехать за ними из Новосибирска мне не по карману.

0