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

⟦954c40160⟧ TextFile

    Length: 466 (0x1d2)
    Types: TextFile
    Names: »KRYSTAL1.VRD«

Derivation

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

TextFile

k:=arrayÆ1681Å  // 41*41
For n:=1 to size(k) do kÆnÅ:=0
n0:=20
For atomer := 1 to 40 do
x:=0;y:=n0
n:=1

func st▶9b◀d(x)
return (2*n0-abs(x))*sgn(x)
endfunc

func i(x,y)     // index i det 2dim. 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 then 
x:=xr
y:=yr
kÆi(x,y)Å:=1;return 3
else 
return 0 
endif
endfunc

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