Солнечная система (знакомство с синусом)

[mutabor]

Интересно, как можно вычислить парад планет, если не соблюдать скорости вращения?

Парад планет будет определяться не ради самого парада, а ради перебора массива в цикле, в рамках урока. Как вам еще объяснить, это не урок астрономии, и не надо цепляться к словам.

А период обращения вокруг Солнца действительно единственный верный параметр (с небольшим округлением). Взят с сайта, адрес я указывал, все дальнейшие замечания туда.

p.s. Странно, что математики не возмущаются, или этот форум только среди астрономов популярен?

[Beermonza]

Да уж, ...цепляться можно ко всему. Например, с точки зрения астрономии, на Земле, вращающейся по такой орбите, никогда бы небыло времен года, ...догадались почему? ) ...здесь же все в упрощенном и доступном виде, для понимания новичкам как говориться "сама то".

mutabor, так ведь математики - в большинстве своем знакомы и с физикой, по сему коллайдером забиты мозги не до форумов )

[CyberOrcX]

красивая штуковина, продолжайте тему! плиз.
мне хотелось бы посмотреть, как будут ходить планеты.

[mutabor]

Самому хотелось бы )

Я наверное немного поменяю принцип подачи материала, допишу программу, это будет быстрее, и краткие комментарии. Иначе есть угроза уроку остаться незаконченным.

[AnaVare]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Planets:array[0..50] of TImage;
  PlanetsPositions:array[1..50] of real;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;

procedure PlanetView(var Planet:TImage; Radius:integer; Color:TColor);
begin
with Planet do
 begin
 Width:=2*Radius;
 Height:=2*Radius;
 Top:=(Form1.ClientHeight div 2)-Radius;
 Left:=(Form1.ClientWidth div 2)-Radius;
 Canvas.Pen.Color:=Form1.Color;
 Canvas.Brush.Color:=Form1.Color;
 Canvas.Rectangle(0,0,Planet.Width,Planet.Height);
 Canvas.Brush.Color:=Color;
 Canvas.Pen.Color:=Color;
 Canvas.Ellipse(0,0,Planet.Width,Planet.Height);
 Visible:=True;
 end;
end;

BEGIN
Form1.Width:=700;
Form1.Height:=700;
Form1.Color:=clBlue;
for i:=0 to 50 do
 begin
 Planets[i]:=TImage.Create(Self);
 with Planets[i] do
  begin
  Parent:=Form1;
  AutoSize:=False;
  Visible:=False;
  end;
 end;

randomize;
for i:=1 to 50 do
 begin
 PlanetsPositions[i]:=Random(360);
 end;

PlanetView(Planets[0],40,clYellow);
PlanetView(Planets[1],3,clRed);
PlanetView(Planets[2],5,clGray);
PlanetView(Planets[3],6,clGreen);
PlanetView(Planets[4],2,clWhite);
PlanetView(Planets[5],7,clRed);
PlanetView(Planets[6],3,clMaroon);
PlanetView(Planets[7],2,clMaroon);
PlanetView(Planets[8],15,clWhite);
END;

procedure TForm1.Timer1Timer(Sender: TObject);

procedure PlanetOrbit(var Planet:TImage; var position:real; velocity:real; distance,direction:integer);
var x,y:integer;
begin
position:=position+velocity;
x:=Trunc(direction*Distance*cos(position))-(Planet.Width div 2);
y:=Trunc(Distance*sin(position))-(Planet.Height div 2);
Planet.Top:=(Planets[0].Top+(Planets[0].Height div 2))+y;
Planet.Left:=(Planets[0].Left+(Planets[0].Width div 2))+x;
if position>=360 then position:=0;
end;

procedure SatelliteOrbit(Planet:TImage; var Satellite:TImage; var position:real; velocity:real; distance,direction:integer);
var x,y:integer;
begin
position:=position+velocity;
x:=Trunc(direction*Distance*cos(position))-(Satellite.Width div 2);
y:=Trunc(Distance*sin(position))-(Satellite.Height div 2);
Satellite.Top:=(Planet.Top+(Planet.Height div 2))+y;
Satellite.Left:=(Planet.Left+(Planet.Width div 2))+x;
if position>=360 then position:=0;
end;

begin
PlanetOrbit(Planets[1],PlanetsPositions[1],0.09,50,1);
PlanetOrbit(Planets[2],PlanetsPositions[2],0.08,70,1);
PlanetOrbit(Planets[3],PlanetsPositions[3],0.05,100,-1);
SatelliteOrbit(Planets[3],Planets[4],PlanetsPositions[4],0.15,15,1);
PlanetOrbit(Planets[5],PlanetsPositions[5],0.04,150,1);
SatelliteOrbit(Planets[5],Planets[6],PlanetsPositions[6],0.06,15,1);
SatelliteOrbit(Planets[5],Planets[7],PlanetsPositions[7],0.09,22,1);
PlanetOrbit(Planets[8],PlanetsPositions[8],0.1,180,-1);
end;

end.

[ROD]

Сообщение от BangBangFM

Замучил прикалываться. Между прочем пояс остеройдов тоже когдато был планетой, че теперь и его делать?

К стати, пояс астероидов никогда небыл планетой, гравитация Юпитера не позволила ей сформироаться.

Да уж, ...цепляться можно ко всему. Например, с точки зрения астрономии, на Земле, вращающейся по такой орбите, никогда бы небыло времен года, ...догадались почему? )

Почему? Вытянутость орбиты земли никак не влияет на времена года, чисто на зметку, когда у нас зима (в северном полушарии) то земля находится ближе всегок солнцу. ПРичина смены времен года наклон земной оси, а не ее орбита вокруг солнца.

[Kostia]

На днях вот такую планету сделал:

Delphi/Direct3D/WinAPI

[Beermonza]

ROD, ну вот видишь, всем свойственно ошибаться, ...а ведь кто-то был уверен (например я), ...но на счет 8 планет и астероида это точно )))

[ROD]

Kostia, очень красиво, правда четко видна граница текстуры (там в тихом океане полоса (край рисунка) а рядом с ней резко отличающиеся по цвету участки, а так вообще замечатльно.

P.S.
А где ты такую картинку достал?

[Kostia]

Стык этот от неправильно нарисованной модели в 3ds max, а другую сферу сделать не могу, Autodesk 3ds Max Design 2009 32-bit не хочет устанавливать текстурные координаты на весь объект, а устанавливает размер текстуры и заполняет ей всю сферу и получается бяка. Если кто поделится нормальной моделькой сферы из 3ds max 9, буду благодарен.

А где ты такую картинку достал?

Google

http://www.3domen.org/modules/files/viewcat.php?cid=47
http://visibleearth.nasa.gov/view_detail.php?id=2433
http://www.celestiamotherlode.net/catalog/earth.php