DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »gonimedit17«

└─⟦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/freq17/,l./nrc:=/,r/24/38/,
l./,b7,/,r/b7/b7,b9/,l1,r/;/,p1,p2;/,l./<:T/,l1,r/12/13/,
l2,r/20/21/,r/19/20/,g/:>/ :>/,r/< /</,l1,r/b4/kab/,r/21/22),nl,1);
/,d1,i/
for i:=4 step 1 until 6 do
  write(res,<:b:>,<<d>,i,<<    -ddddddd.ddd>,RC(19+i),nl,1);
write(res,<<    -ddddddd.ddd>,<:b9:>,RC(26),nl,1);
for i:=1 step 1 until 9 do
  write(res,<:h:>,<<d>,i,<<    -ddddddd.ddd>,RC(26+i),nl,1);
write(res,<<   -ddddddd.ddd>,<:h10:>,RC(36),nl,1,
      <:kbJ:>,RC(37),nl,1,<:kcJ:>,RC(38),nl,1,
/,l./kb:=/,d,i?
F:= RC(4);  Z:=RC(5);  X:= Z*Z;  E:= (A-B)*(C-A)+9*X;
p1:= -(9*F+C-A)*Z/E;   p2:= ((A-C)*F-X)*3/E;
kb:= RC(20)-p1*RC(22); kc:= RC(21)-p2*RC(22);
?,l./D(7):=/,r?0?RC(19)/4?,
l./b1:=/,d,r/22/25/,r??b3:= RC(22)/4; ?,r/21/23/,l1,r/;/+RC(24);/,
r/-b4;/-b4; b9:= RC(26);/,l./N<8/,g/8/11/,
l./FJ:=/,r/D(8)/(RC(30)*'-6*JJ+D(8))/,r/ AfJ/
AfJ/,r/D(11)/(RC(27)*'-6*JJ+D(11))/,l1,r/F/(D(7)*m0*m0+F)/,l1,i?
b1:= (kb+kc+(RC(37)+RC(38))*JJ)/4;
b2:= (kb-kc+(RC(37)-RC(38))*JJ)/4;
?,l./RC(23/,r/23/35/,r/RC/(RC/,r/'-6*JJ/JJ+RC(36)*k2)*'-6/,r/+D(9)/
      +((RC(31)*JJ+RC(32)*k2)*'-6+D(9))/,r/+(D(12)/
     +(((RC(28)*JJ+RC(29)*k2)*'-6+D(12))/,r/+D(14)/
      +((RC(33)*JJ+RC(34)*k2)*'-6+D(14))/,
l./RC(24/,r/(RC(24)*m2*'-6+D(10))/D(10)/,
l./b6/,r/b6/(b6+b9)/,l2,g2/b6/(b6-b9)/,
l./b2/,r/ h(/
        h(/,r/*b2//,r/(m+m2)/((m+m2)*b2+(k+k-1)*b3)/
l2,r/*3*b1/
                            *(b1*3-(k+k-1)*b3)/,
l./(m+m2/,r/ h(/
        h(/,r/*b1//,r/(m+m2)/((m+m2)*b1+(k+k+1)*b3)/
l2,r/*3*b2/
                            *(b2*3-(k+k+1)*b3)/,
l./b6/,r/b6/(b6-b9)/,l1,g5/b6/(b6+b9)/,l1,r/b6/(b6-b9)/
l./8 do h(/,g1/8/11/,l./psum/,r/psum/psum:= gu/,l./h(8/,r/ h(8/
    h(8/,r/;/; h(11,i):= y*k*m*k2;/,
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./q:= sqrt/,r/(m+m2)*//,r/q/w/,r/;/; q:= (m+m2)*w; w:= (k+k-1)*w;/
l2,i/
        h(10,j):= h(10,j)+w*y; h(10,i):= h(10,i)+w*u(j);
/,l2,r/ q:=/
/,d,i/
          if -,plus then begin q:= -q; w:= -w end;
/,l2,i/
          h(10,j):= h(10,j)-w*y; h(10,i):= h(10,i)-w*u(j);
/,l./q:= sqrt/,r/(m+m2)*//,r/q/w/,r/;/; q:= (m+m2)*w; w:= (k+k+1)*w;/
l2,i/
        h(10,j):= h(10,j)+w*y; h(10,i):= h(10,i)+w*u(j);
/,l2,r/ q:=/
/,d,i/
          if -,plus then begin q:= -q; w:= -w end;
/,l2,i/
          h(10,j):= h(10,j)-w*y; h(10,i):= h(10,i)-w*u(j);
/,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/11/,l2,r/h(4,i);/h(3,i);/,l2,r/2,i)*h(3,i); /3,i)*h(11,i);/,
l3,i/
  tau(13):= tau(13)+h(2,i)*h(11,i);tau(14):= tau(14)+h(1,i)*h(11,i);
/,g35/tau(7)/a(11)/,l./dy(19/,g/19/20/,i?
dy(19):= dy(19)+a(8)*lev/4;
?
l2,g/20/21/,l1,g/21/23/,i?
dy(22):= dy(22)+((a(10)-a(6)*(p1+p2)-a(7)*(p1-p2))/4
                -(p1*p*kb+p2*q*kc)/F)*lev;
?,l2,g/22/25/,i/
dy(24):= dy(24)+gu*lev;
/,l2,g/23/35/,r/*'-6//,i/
dy(26):= dy(26)+a(9)*lev;
dy(27):= dy(27)+a(2)*JJ*JJ*lev;
dy(28):= dy(28)+a(11)*JJ*lev;
dy(29):= dy(29)+tau(7)*lev;
dy(30):= dy(30)+a(1)*JJ*JJ*lev;
dy(31):= dy(31)+tau(5)*JJ*lev;
dy(32):= dy(32)+tau(13)*lev;
dy(33):= dy(33)+tau(9)*JJ*lev;
dy(34):= dy(34)+tau(14)*lev;
/,l2,d,i?
dy(36):= dy(36)+tau(4)*lev;
dy(37):= dy(37)+(a(6)+a(7))*JJ/4*lev;
dy(38):= dy(38)+(a(6)-a(7))*JJ/4*lev;
?,l./A:=/,i/
for i:=27 step 1 until 36 do dy(i):= dy(i)*'-6;
/,l./RC(19/,g/20/21/,g/19/20/,
l./i,23,nrc/,r/23,nrc/27,36/,l-1,d,i/
   dy(4)*RC(4)+dy(6)*RC(6)+sum(dy(i)*RC(i),i,20,22),
/,f
i gonimfreq0
▶EOF◀