DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »gonimedit15«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦1248b0c55⟧ »gobib« 
            └─⟦this⟧ 

TextFile

;gosav time.200 lines.5000
i gonimfreq
gonimfreq0=edit gonimfreq0
l3,g3/freq7/freq15/,l./nrc:=/,r/24/32/,
l./,b7,/,r/b7/b7,b7a,b9/,l./<:T/,l1,r/12/13/,
l2,r/20),nl,1,/21),nl,1);/,r/19/20/
l1,d,r/ </write(res,<<    -ddddddd.ddd>,<:b9:>,RC(25),nl,1,
      <:h1:>,RC(26),nl,1,</,r/24/27/,l-1,i/
for i:=4 step 1 until 6 do
  write(res,<:b:>,<<d>,i,<<    -ddddddd.ddd>,RC(18+i),nl,1);
/,l3,i/
      <:d1:>,RC(28),nl,1,<:d2:>,RC(29),nl,1,<:d3:>,RC(30),nl,1,
      <:kbJ:>,<<   -ddddddd.ddd>,RC(31),nl,1,<:kcJ:>,RC(32),nl,1,
/,l./kb:=/,r/20/21/,r/19/20/,
l./D(7):=/,r/0/RC(19)/,
l./b1:=/,d,r//b3:= 0; /,r/22/24/,r/21/22/,l1,g/b7/b7a/,r/;/+RC(23);/,
l./N<8/,g/8/9/,l./V:=/,r/b4/(RC(28)*'-3*JJ+b4)/,r/F/(D(7)*m0*m0+F)/,l1,i?
b1:= (kb-kc+(RC(31)-RC(32))*JJ)/4;
b2:= (kb+kc+(RC(31)+RC(32))*JJ)/4;
b7:= b7a+RC(29)*'-3*JJ;
b9:= RC(25)+RC(30)*'-3*JJ;
?,l./RC(23/,r/23/26/,l./RC(24/,r/24/27/,
l./b6/,r/b6/(b6-b9)/,l2,g2/b6/(b6+b9)/,
l1,l./b6/,r/b6/(b6+b9)/,l1,g5/b6/(b6-b9)/,l1,r/b6/(b6+b9)/
l./8 do h(/,g1/8/9/,l./psum/,r/psum/psum:= gu/,
l./q:= sqrt/,r/q/go/,l1,g/q/go/,r?);?); go:= go/2?
l4,r/</>/,l4,r/e/end e/,i/
      l:= index(m,-k+2);
      if l>0 then begin q:= if plus then gu else -gu;
        h(9,l):= h(9,l)+q*y; if k>1 then
        h(9,i):= h(9,i)+q*u(l);
        if k=1 then begin l:= i-1; h(9,l):= h(9,l)-q*u(l) end;
      end;
      l:= index(m,-k-2);
      if l>0 then begin q:= if plus then -go else go;
        h(9,l):= h(9,l)+q*y;
        h(9,i):= h(9,i)+q*u(l);
/,l./p:= 1/,r/;/; gu:= go;/,l-1,r/e/end e/,i/
        end;
        j:= index(m2,k-2);
        if j>0 then begin if k=0 and m=0 then gu:= go;
          h(9,j):= h(9,j)+gu*y;
          h(9,i):= h(9,i)+gu*u(j);
          if m=0 and k>0 then begin
            j:= index(m2,-k+2); q:= if plus then -gu else gu;
            if k=2 then q:= q*sqrt(2);
            h(9,j):= h(9,j)+q*y;
            h(9,i):= h(9,i)+q*u(j);
        end end;
        j:= index(m2,k+2);
        if j>0 then begin
          h(9,j):= h(9,j)-go*y;
          h(9,i):= h(9,i)-go*u(j);
          if m=0 and k>0 then begin
            j:= index(m2,-k-2); q:= if plus then go else -go;
            h(9,j):= h(9,j)+q*y;
            h(9,i):= h(9,i)+q*u(j);
/,l6,r/8/9/,l./dy(19/,g/19/20/,i/
dy(19):= dy(19)+a(8)*lev;
/,l2,g/20/21/,l1,g/21/22/,l1,g/22/24/,i/
dy(23):= dy(23)+gu*lev;
/,l2,g/23/26/,i/
dy(25):= dy(25)+a(9)*lev;
/,l2,g/24/27/,l1,i?
dy(28):= dy(28)+JJ*JJ*a(5)*'-3*lev;
dy(29):= dy(29)+JJ*tau(12)*2*'-3*lev;
dy(30):= dy(30)+a(9)*JJ*'-3*lev;
dy(31):= dy(31)+(a(7)+a(6))*JJ/4*lev;
dy(32):= dy(32)+(a(7)-a(6))*JJ/4*lev;
?,l./RC(19/,g/20/21/,g/19/20/,
l./i,23,nrc/,r/23,nrc/26,27/,f
i gonimfreq0
▶EOF◀