|
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: 691 (0x2b3)
Types: TextFile
Names: »KRYSTAL3.VRD«
└─⟦37cf4f704⟧ Bits:30003051 Dymos II - Modeller
└─⟦this⟧ »MODEL3\KRYSTAL3.VRD«
k:=arrayÆ6561Å // 81*81 For n:=1 to size(k) do kÆnÅ:=0 n0:=40 For a:= 1 to 200 do If (a mod 4) <2 then x:=2*n0*random-n0; y:=n0*sgn((a mod 2)-.5) else x:=n0*sgn((a mod 2)-.5); y:=2*n0*random-n0 endif n:=1 func st▶9b◀d(x) return (2*n0-abs(x))*sgn(x) endfunc n1:= 2*n0+1;n2:=2*n0*n0+n1 func i(x,y) // index i 2-dim. array return x*n1+y+n2 endfunc func lim(xr,yr) If kÆi(xr-1,yr)Å=1 or kÆi(xr,yr-1)Å=1 or kÆi(xr+1,yr)Å=1 or kÆi(xr,yr+1)Å=1 or kÆi(xr+1,yr+1)Å=1 or kÆi(xr+1,yr-1)Å=1 or kÆi(xr-1,yr+1)Å=1 or kÆi(xr-1,yr-1)Å=1 then x:=xr;y:=yr kÆi(x,y)Å:=1;return 3 else return 0 endif endfunc kÆi(0,0)Å:=1