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

⟦bfc2e1de5⟧ TextFile

    Length: 502 (0x1f6)
    Types: TextFile
    Names: »KRYSTAL4.VRD«

Derivation

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

TextFile

write 'Krystal':x,y
k:=arrayÆ6561Å  // 81*81
For n:=1 to size(k) do kÆnÅ:=0
n0:=40
a:=1 Æ..300Å

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)Å+
    kÆi(xr,yr-1)Å+
    kÆi(xr+1,yr)Å+
    kÆi(xr,yr+1)Å+
    kÆi(xr+1,yr+1)Å+
    kÆi(xr+1,yr-1)Å+
    kÆi(xr-1,yr+1)Å+
    kÆi(xr-1,yr-1)Å)>.5 then 
x:=xr;y:=yr
kÆi(x,y)Å:=1;return 3
else return 0 endif
endfunc

kÆi(0,0)Å:=1