DataMuseum.dk

top - metrics - download

    Length: 5376 (0x1500)
    Types: TextFile
    Names: »gonimedit20«

└─⟦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/freq20/,l./nrc:=/,r/24/43/,
l./,b7,/,r/b7/b7,b9/,l1,r/;/,p1,p2;/,l2,r/14/16/,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,
          <<   -ddddddd.ddd>,<:bmJ:>,RC(27),nl,1);
for i:=1 step 1 until 9 do
  write(res,<:h:>,<<d>,i,<<    -ddddddd.ddd>,RC(27+i),nl,1);
for i:=10 step 1 until 14 do
  write(res,<:h:>,<<dd>,i,<<   -ddddddd.ddd>,RC(27+i),nl,1);
write(res,<<   -ddddddd.ddd>,<:kbJ:>,RC(42),nl,1,<:kcJ:>,RC(43),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/12/,
l./FJ:=/,r/D(8)/(RC(31)*'-6*JJ+D(8))/,r/ AfJ/
AfJ/,r/D(11)/(RC(28)*'-6*JJ+D(11))/,l1,r/F/(D(7)*m0*m0+F)/,r/ q:= 0;//,l1,i?
b1:= (kb+kc+(RC(42)+RC(43))*JJ)/4;
b2:= (kb-kc+(RC(42)-RC(43))*JJ)/4;
?,l./p:=/,i/
  q:= if m=0 and Kmin=2 then sqrt(J*(J-1)*(J+1)*(J+2)*2) else 0;
/,l./RC(23/,r/23/36/,r/RC/(RC/,r/'-6*JJ/JJ+RC(37)*k2)*'-6/,r/+D(9)/
      +((RC(32)*JJ+RC(33)*k2)*'-6+D(9))/,r/+(D(12)/
     +(((RC(29)*JJ+RC(30)*k2)*'-6+D(12))/,r/+D(14)/
      +((RC(34)*JJ+RC(35)*k2)*'-6+D(14))/,
l./YJ/,r/-/+/,r/D(5)/(RC(41)*m2*'-6-D(5))/,l1,r/*m2/*JJ/,r/24/40/,r/+D(13)/
               +((RC(38)*JJ*'-6+D(13))/,r/k+1)/k+1)
                 +RC(39)*'-6*((k2+6)*k+k2*3+4))/,
l./go:=/,r/Vk/Vk-RC(27)*JJ*4.5/,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./Vk/,i?
        Vk:= Vk-(m*m+m2*m2)*JJ*RC(27)/4;
?,l./b6/,r/b6/(b6-b9)/,l1,r/ h(j,i):= /
            h(j,i):= h(j,i)+/,l1,r?*?/?,
l-1,g5/b6/(b6+b9)/,l1,r/b6/(b6-b9)/
l./8 do h(/,g1/8/12/,l1,r/14/16/,l./p:=/,i?
  gu:= if m=0 and k=2 then sqrt(J*(J-1)*(J+1)*(J+2))/4 else 0;
?,l./h(8/,r/ h(8/
    h(8/,r/;/; h(11,i):= y*k*m*k2; h(12,i):= y*m2*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;
            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/12/,l2,r/h(4,i);/h(3,i);/,l1,r/1,i)*h(3,i); /4,i)*h(11,i);/,
l1,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);
  tau(15):= tau(15)+h(4,i)*h(12,i);tau(16):= tau(16)+h(1,i)*h(5,i);
/,g40/tau(7)/a(11)/,l-35,g35/tau(5)/a(12)/,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/36/,r/*'-6//,i/
dy(26):= dy(26)+a(9)*lev;
dy(27):= dy(27)+tau(16)*JJ*lev;
dy(28):= dy(28)+a(2)*JJ*JJ*lev;
dy(29):= dy(29)+a(11)*JJ*lev;
dy(30):= dy(30)+tau(7)*lev;
dy(31):= dy(31)+a(1)*JJ*JJ*lev;
dy(32):= dy(32)+a(12)*JJ*lev;
dy(33):= dy(33)+tau(13)*lev;
dy(34):= dy(34)+tau(9)*JJ*lev;
dy(35):= dy(35)+tau(14)*lev;
/,l2,d,i?
dy(37):= dy(37)+tau(4)*lev;
dy(38):= dy(38)+tau(8)*JJ*lev;
dy(39):= dy(39)+tau(5)*lev;
dy(40):= dy(40)+tau(6)*JJ*lev;
dy(41):= dy(41)+tau(15)*lev;
dy(42):= dy(42)+(a(6)+a(7))*JJ/4*lev;
dy(43):= dy(43)+(a(6)-a(7))*JJ/4*lev;
?,l./A:=/,i/
for i:=28 step 1 until 41 do dy(i):= dy(i)*'-6;
/,l./RC(19/,g/20/21/,g/19/20/,
l./i,23,nrc/,r/23,nrc/28,41/,l-1,d,i/
   dy(4)*RC(4)+dy(6)*RC(6)+sum(dy(i)*RC(i),i,20,22),
/,f
i gonimfreq0
▶EOF◀