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

⟦86e73bfbd⟧ TextFile

    Length: 223 (0xdf)
    Types: TextFile
    Names: »GRAVITA2.MOD«

Derivation

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

TextFile

// Model : Gravita2

func a(x,y)
  ra := x*x+y*y
  return -(G*M*x)/ra/sqr(ra)
endfunc

x,y,vx,vy:=rk4(vx,vy,a(x,y),a(y,x),t)

t := t + dt

if (t>1e4) and (y>R0/5) then stop