DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »gombfedit2«

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

TextFile

;gosav time.300 lines.2000
gopr=set 100
permanent gopr.15
o gopr
gombffreq=set 30
permanent gombffreq.17
gombffreq=edit gonimfreq22
l1,d2,l./nimfreq/,g2/nimfreq22/mbffreq/,r/x.no/x.yes/,
l./meven/,r/meven/keven, kmeven/,l./nimev/,r/nim/mbf/
l./meven/,d,l./if Mmin/,r/begin/Mmin:= 0;/,l1,r/M1/
/,l-1,d,r??  k:= k0+m0-Mmin; kmeven:= k//2*2=k;
  if Mmin=0 then begin
    if kmeven then begin M1?,r/ma;/ma end
              else begin M1:= J+1; M2:= 0 end/
l1,r/meven/kmeven/,l8,r/meven/kmeven/,i?
  k:= k0+dM; kmeven:= k//2*2=k;
?,l./w shift/,i?
spinf:= (if k0//2*2=k0 then 1 else 3)*spinf;
?,l./-,meven/,g/Mmin/k/,r/mev/kmev/,i/
  k:= k0+m0-Mmin;
/,l2,g1/mev/kmev/,l./kmax:=/,g/m/k/,r/kk/km/
l./V:=/,r//keven:= kmeven; /,
l2,r/meven/keven/,l1,r/else/else if -,keven then 1 else/
l4,r/ Vk/
    Vk/,r?;?+(if m<>0 or k<>1 then 0 else
         if plus then -JJ else JJ)*b6/4;?,
l./if m=3/,i/
    if m=3 and k=0 then h(i,i):= h(i,i)+(if plus then V else -V);
/,l./index(m,-k-2/,i/
    end;
    if m=3 and k>=0 then begin
/,l./h(index(3/,l-1,r/then/then begin/
l1,r/h(/j:= /,r/,i):= /;
          h(j,i):= h(j,i)+/,l2,r/e/end e/,
l./index(m2,k-2/,l1,r/th/and (m<>0 or k<>1) th/,l./h(1,1/,i/
    if keven then begin
  /,l2,r//  /,l1,i/
    end else begin
      j:= if plus then 1 else -1;
      h(1,1):= h(1,1)+(YJ-D(5))*j*JJ;
      if Kmax>1 then
      h(2,1):= h(2,1)-sqrt((J-1)*(J-2)*(J+2)*(J+3))*D(6)*j*JJ;
/,l1,r/e/end e/,l1,g/meven/keven/
l3,r/+1-gamma//,r?J?((if k0//2*2=k0 then 2-2*gamma else 1)+J)?,r/;/;
 /,l./Jeven/,r?i//2*2=i?j//2*2=j?
l./72*FJ/,r/+V/+(if abs k0<=1 then 0
/,d,r? else?         else V/(12*AfJ*k0)) else?
l./meven/,r/Jev/
  keven:= kmeven; Jev/,l-1,d,l2,r/mev/kev/
l1,r/else/else if -,keven then 1 else
          /,l5,r/J2/J2 and keven/,l./meven/,g/m/k/
l./meven:=/,d,i/
keven:= kmeven; psum:= 0;
/,l2,r/mev/kev/,l1,r/else/else if -,keven then 1 else/
l2,i/
  if m=0 and k=1 then
    h(4,1):= (if plus then 0.5 else -0.5)*JJ*u(1);
/,l./if m=3/,i/
    if m=3 and k=0 then h(5,i):= h(5,i)+(if plus then -0.5 else 0.5)*y;
/,l./mev/,g/m/k/,f
i gombffreq
;gosav time.300
s=edit gonimfit
d,g1/funclinda/mbflinda/,l-1,g3/nim/mbf/,r/q0/q/,l3,r/nim/mbf/,
l./meven/,r/mev/keven, kmev/,l./spinf/,d,l./nim/,r/nim/mbf/,
l./algol/,s,f
i s
s=edit gonimfit2
d./i s/,g b/nim/mbf/,f
i s
▶EOF◀