DataMuseum.dk

top - metrics - download

    Length: 701 (0x2bd)
    Types: TextFile
    Names: »BOLD3.VRD«

└─⟦37cf4f704⟧ Bits:30003051 Dymos II - Modeller
    └─⟦this⟧ »MODEL2\BOLD3.VRD« 

TextFile

g := 10        // meter/sek^2

For a := 0.95 to 1.3 step 0.005 do
  clearscreen  // slet sk▶91◀rm
  x0 := 2.4    // meter
  y0 := 10     // meter
  v0x:= 0      // meter/sek
  v0y:= 0      // meter/sek
  t  := 0      // sek
  dt := 0.1    // sek
  n  := 0      // antal st▶9b◀d

func juster
dtj := -dt
For i :=1 to 15 do
  dtj:= dtj/2
  t  := t+dtj
  x  := x0+v0x*t
  y  := y0+V0y*t-g*t*t/2
  If (y-abs(x*a))*dtj<0 then dtj:=-dtj
next
return t
endfunc

func st▶9b◀d(a)
Vx := V0x
Vy := V0y-g*t
V0x:= (Vx*(1-a*a)+2*a*Vy)/(1+a*a)
V0y:= (2*a*Vx+Vy*(a*a-1))/(1+a*a)
x0 := x
y0 := y
n  := n+1;if n>100 then stop
return 0
endfunc

h1:stop