DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦f0f6ebd23⟧ TextFile

    Length: 526 (0x20e)
    Types: TextFile
    Names: »BOLD2.VRD«

Derivation

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

TextFile

g := 10          // meter/sek^2
a := 1           // gr▶9b◀ftens h▶91◀ldning
x0:= 2.4         // meter
y0:= 10          // meter
dt:= 0.1         // sek

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
return 0
endfunc