mi potete dire cosa è che non va in questo programma!!!
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!!!
P.S.
se qualcuno mi sa rispondere mi puo' mandare un messaggio privato!!!(è meglio);
Vuoi aiutare concretamente la ricerca scientifica a progredire? Con BOINC puoi: BOINC è un programma di calcolo distribuito, che sfrutta le risorse inutilizzate del tuo computer per elaborare proteine, studiare i cambiamenti climatici o elaborare possibili segnali extraterrestri. BOINC è assolutamente gratuito e supportato da università e dal National Science Foundation degli Stati Uniti. Se vuoi saperne di più, vieni sul mio thread ufficiale o visita il sito web.