DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦d2ed4b7f9⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »nsjob1«

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦af373cc6d⟧ »rydiv« 
            └─⟦this⟧ 

TextFile

;al3 time 24 0 0 size.large area 7  lines.10000
mode list.yes
permanent rydberg.4 nsform.4 fittau.4
if ok.no
(rydberg1=set 400
rydberg1=hcalg rymain message.no index.no
fittau=set 180
fittau=hcalg fittautxt message.no index.no
nsform1=set 160
nsform1=hcalg nsform1txt message.no index.no
permanent rydberg1.4 fittau1.4 nsform1.4
)
lookup rydskip
if ok.no
rydskip=set 0 0 0 0
r=assign rydskip
(repeat 10
nsfitns=set 100
nsfitns=nsform1 nsfitsys skip.yes
clear rydbranch
;ryout=rydberg1 data.nsfitns llmax.2 inter.8,
;finestruct.no multiplici.1,
;terminal.c2,
;zmax.9 zbrmax.9 offdi.no,
;brstore.yes,
;llmax.2 lmax.2 nmax.40,
;nnmax.40 ortogonal.no,
;elem0.4 del.0.0.25 branch.yes autcut.yes
o c
o c
permanent ryout.4
cut ryout
;convert ryout
clear ryout
fitout=set 100
;fitout=fittau rydbranch degree.1,
;power.0,
;allz.yes nsmin.9 nsmax.50 nmax.50
;convert fitout
;fitout=fittau rydbranch degree.1,
;power.2 allz.yes nsmin.9 nsmax.40 nmax.40
;convert fitout
clear fitout rydbranch
incfile rydskip.1
)
▶EOF◀