PDA

Visualizza la versione completa : [DELPHI] Formula ellisse


devilangelus
15-10-2005, 18:50
Salve a tutti!!
vi sottopongo un problema che devo risolvere al pių presto!!

mi potreste dire cosa č che non va in questo programma Delphi?

procedure TForm1.Button1Click(Sender: TObject);
var x0,y0,v0x,v0y,dt,Gms,ax,ay,vx,vy,x1,y1:real;
i:integer;
{$REALCOMPATIBILITY ON}
begin
x0:=0.5;
y0:=0;
v0x:=0;
v0y:=1.63;
dt:=0.1;
Gms:=1;
for i:=1 to 1000000 do
begin
ax:=-((x0*Gms)/((sqrt(((x0*x0)+(y0*y0))*((x0*x0)+(y0*y0))*((x0*x0 )+(y0*y0 ))))));
ay:=-((y0*Gms)/((sqrt(((x0*x0)+(y0*y0))*((x0*x0)+(y0*y0))*((x0*x0 )+(y0*y0 ))))));
vx:=(v0x+(ax*dt));
vy:=(v0y+(ay*dt));
x1:=x0+((vx*dt)+((1/2)*ax*(dt*dt)));
y1:=y0+((vy*dt)+((1/2)*ay*(dt*dt)));
paintbox1.Canvas.Pixels[round(x1)+100,round(y1)+100]:=clred;
x1:=x0;
y1:=y0;
vx:=v0x;
vy:=v0y;
end;
end;
end.

mi dovrebbe uscire una ellisse!!!
(rappresenta il moto dei pianeti)!!!

devilangelus
15-10-2005, 19:12
comunque su qualcuno conosce qualcuno che lo potrebbe sapere lo prego di girargli la domanda!!!

alka
15-10-2005, 20:04
Originariamente inviato da devilangelus
Salve a tutti!!
vi sottopongo un problema che devo risolvere al pių presto!!

In questo spazio purtroppo tutti i messaggi sono urgenti allo stesso modo, quindi evita esortazioni nei titoli, all'interno delle discussioni e ancora via messaggi privati.

Inoltre, attieniti a quanto viene stabilito dal Regolamento (http://forum.html.it/forum/showthread.php?s=&threadid=862017).

Correggo il titolo della discussione.

Ciao! :ciauz:

P.S.: se qualcosa non va nel tuo programma, indica almeno l'errore che ottieni se vuoi ricevere un aiuto preciso. :fagiano:

Loading