|
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: 615 (0x267)
Types: TextFile
Names: »KRYSTAL2.VRD«
└─⟦37cf4f704⟧ Bits:30003051 Dymos II - Modeller
└─⟦this⟧ »MODEL3\KRYSTAL2.VRD«
k:=arrayÆ169Å // 13 * 13 For n:=1 to size(k) do kÆnÅ:=0 n0:=6 For a:= 1 to 40 do x:=n0*((a+1)mod 2)*sgn(a mod 4 -1.5) y:=n0*(a mod 2)*sgn(a mod 4 -1.5) n:=1 func st▶9b◀d(x) return (2*n0-abs(x))*sgn(x) endfunc func i(x,y) // index i 2-dim. array return x*(2*n0+1)+y+2*n0*n0+2*n0+1 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