DataMuseum.dk

top - metrics - download

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

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

TextFile

;gosav
clear fortrat
r=edit algfortrat
l./nl:=false/,d./pointsize/,d./if kb/,i/
procedure Qplot;
begin
/,l./end kb/,r/kb/Qplot/,l1,s1,d./zone res/
l./j<Fmax/,r/;/ and J1=J2;/
l./k2:=branch(J1,i)/,i/
  k:=k1:=0;
  for k:=k+1 while k1=0 do k1:=branch(k,i); kb:=k<Jmax;
  if kb then begin
   k2:=abs(branch(k,i)-k1);
   k3:=abs((if i+2<=bmax then branch(k,i+2) else 0)-k1);
   k4:=abs((if k>2 and i-2>=bmin then branch(k-2,i-2) else 0)-k1);
   kb:= k2<k3 or k2<k4
  end;
  if kb then begin
   comment primary Q-branch numbering used;
/,l1,r// /,l1,r// /,l1,r// /,l1,d./end kb/,i/
    if kb then begin Qplot; branch(J,i):= 0 end;
/,l1,r// /,l1,r// /,l1,r// /,r/p/br(i):=false; p/,l1,i'
  end end;
  comment alternativ Q-branch numbering by l = J*2-i is used
          in plotting remaining branches;
  a:=dX*0.3; setmask(a,a*0.5,a);
  k1:=Jmax*2; k3:=Jmax; k2:=k4:=0;
  for i:=bmin step 1 until bmax do if br(i) then begin
   for J:=1 step 1 until Jmax do if branch(J,i)<>0 then begin
    if J<k3 then k3:=J; if J>k4 then k4:=J;
    l:=J+J-i;
    if l<k1 then k1:=l; if l>k2 then k2:=l;
  end end;
  bmin:=k1; bmax:=k2;
  if J1>J2 then begin J2:=k3; J1:=k4 end
           else begin J1:=k3; J2:=k4 end;
  for i:=bmin step 1 until bmax do begin
   k2:=branch(J1,J1*2-i); kb:=k2>0; kc:=false;
   for J:=J1 step j until J2 do begin
    k1:=if J<>J2 then branch(J+j,(J+j)*2-i) else 0; ka:=k1>0;
    if kb then Qplot;
    kc:=kb; kb:=ka; k3:=k2; k2:=k1;
   end J;
   p:=J1; J1:=J2; J2:=p; j:=-j;
  end i;
  setmask(1,0,1);
',l2,d./end i;/,f
i r
▶EOF◀