|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 594 (0x252)
Types: TextFile
Names: »BOLD1.VRD«
└─⟦37cf4f704⟧ Bits:30003051 Dymos II - Modeller
└─⟦this⟧ »MODEL2\BOLD1.VRD«
g:= 9.82 // meter/sek^2 a:= 1 // gr▶9b◀ftens h▶91◀ldning x:= 2.3 // meter y:=10 // meter dt := 0.04 // sek h4 // 4.ord. Runge-Kutta func juster dtj := -dt dt0 := 0 For i:=1 to 15 do dtj:= dtj/2 x := x+vx*dtj y := y+Vy*dtj dt0:= dt0+dtj If (y-abs(x*a))*dtj<0 then dtj:=-dtj next Vy := Vy - g*dt0 return t + dt0 endfunc func st▶9b◀d(a) v0 := vx vx := (v0*(1-a*a)+2*a*vy)/(1+a*a) vy := (vy*(a*a-1)+2*a*v0)/(1+a*a) return t endfunc h1:integrate := euler h2:integrate := rk2 h4:integrate := rk4