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

⟦a06659373⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »elisdata«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »elisdata« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »elisdata«

TextFile

1 until 6 do
      begin
        l3:=k+m ;
        l1:=l3+j ; l2:=l3-j ;
        if l2>=0 then a1:=hj1(l2) else a1:=(1/(hj1(-l2)-1))+1 ;
        if l1>co then a2:=rezm(co) else a2:=rezm(l1) ;
        res:=res+((
        rezm(abs(l2))+a2)/(hj1(l3)-2)
        +rezm(abs(l2))/(a1)+a2/(hj1(l1)))*alf(l3) ;
      end ;
      if j=0 then z2(0):=1.0'2*pi*res else
      z2(j):=(pi/(j*a))*res ;
    end ;
    write(out,<:<10>:>,z1(0),z2(0),d1(0),d2(0),<:<10>:>) ;
    for j:=0 step 1 until co do
    begin
      if j<250 or j>2295 then
      begin
        hj:=z1(j)**2+z2(j)**2 ;
        write(out,<:<10>:>,a*j,z1(j),z2(j),
        (d1(j)*z1(j)+d2(j)*z2(j))/hj,
        (d2(j)*z1(j)-d1(j)*z2(j))/hj) ;
      end ;
    end ;
  a1:=(d1(30)*z1(30)+d2(30)*z2(30))/(z1(30)**2+z2(30