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

⟦94a2ab9cb⟧ TextFile

    Length: 448 (0x1c0)
    Types: TextFile
    Names: »KRYSTAL2.MOD«

Derivation

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

TextFile

// Model : Krystal2

If n=1 then
  vinkel := random*2*pi
  dx:= cos(vinkel) - x/1000
  dy:= sin(vinkel) - y/1000
  x := x+dx
  y := y+dy
  yg:= 200
  If abs(x)>n0 then x:=st▶9b◀d(x)
  If abs(y)>n0 then y:=st▶9b◀d(y)
  n :=lim(round(x),round(y))
else
  yg:= y
  If n=3 then stop
  n := 1
endif

// Modellen kr▶91◀ver, at 2.graffarve er 
// sort og at graferne tegnes med 
// prikker. Brug funktionstasten F5.