ATIŽ SIMULASYONU
23/02/2001 TARIHINDE HAZIRLANMISTIR.
SCREEN 12
WINDOW (-10, 250)-(300, -30)
LINE (-10, 0)-(300, 0)
LINE (0, -10)-(0, 250)
INPUT "Baslangic hizi="; v0
INPUT "Aci(derece olarak)="; alfa: alfa = alfa / 180 * 3.14
INPUT "deltat="; deltat
x = 0: y = 0
hizx = v0 * COS(alfa): hizy = v0 * SIN(alfa)
x2 = 0: y2 = 0
FOR t = 0 TO 100 STEP deltat
IF y < 0 THEN GOTO 100
x = x + v0 * COS(alfa) * deltat
y = y + (v0 * SIN(alfa) - 9.81 * t) * deltat
PSET (x, y)
x1 = v0 * COS(alfa) * t
y1 = v0 * SIN(alfa) * t - 9.81 * t * t / 2
PSET (x1, y1), 4
x2 = x2 + hizx * deltat
y2 = y2 + hizy * deltat
PSET (x2, y2), 3
hizy = hizy - 9.81 * deltat
NEXT t
100 END
Ana Sayfa