Тригонометричні ефемериди планет Сонячної системи

начають кутове зміщення Марса по прямому піднесенню від істинного і відхи-

лення схилення від площини екліптики. В процесі обчислення ми можемо виз-

начити лінійну відстань від Землі до Марса і знаючи лінійний радіус Марса мо-

жемо визначити видимий кутовий діаметр і фазу диска планети.

Третя процедура модуля Mars має більш зрозуміле значення для простого користувача програми оскільки визначає час сходу, заходу і кульмінації Марса.

Кульмінація – це момент проходження небесного меридіана, коли планета зна-

ходиться в найвищій точці над горизонтом і має найкращі умови для спостере-

ження. Також визначається азимут точок сходу і заходу планети на горизонті.

Результати обчислення виводяться на форму як множина Label, що зібрані у GroupBox4. Кнопка Button3 запускає процедуру створення Form3.

У Form 3 на фоні зоряного неба відображається вибрана планета. У процедурі

procedure TForm3.FormCreate(Sender: TObject); створюється фон зоряного неба через елемент Image1. Вводиться Canvas.Rectangle відовідного розміру заповняється Canvas.Brush чорним кольором і через масив координат і зоряних величин заповняється зорями через побудову Image1.Canvas.Ellipse(x1,y1,x2,y2);

Через кнопку “Показати” procedure SpeedButton1Click(Sender: TObject); відбувається перетворення зоряних координат планети на пікселі відповідно масштабу Image1 і зображається сама планета відповідним кольором через

Image1.Canvas.Pen.Color і Image1.Canvas.Ellipse(x4,y4,x5,y5);

Через кнопку “Закрити” procedure TForm3.Button1Click(Sender: TObject); відбувається закриття форми.

Через кнопку “Детальніше” procedure TForm3.SpeedButton2Click(Sender: TObject); створюється Form4.У Form4 зображається більш детальніше фон зоряного неба. Завдяки збільшенню розмірів Image1, ми змушені використати полосу прокрутки. Створення форми відбувається аналогічно Form3. Відмінність полягає у тому, що зображення планети миготить. Це дозволяє наочно відрізнити планету від зірок. Досягається це в procedure TForm4.Timer1Timer(Sender: TObject);, де ми вводимо рахівник і через порівняння чи він парний чи непарний зображення планети проявляється то замальовується чорним кольором під колір фону.

3. Програма на мові програмування Delphi.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg;

type