|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »grottxt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦af373cc6d⟧ »rydiv«
└─⟦this⟧
;klab3 6
slet ryd.plotgrot
beskyt ryd.plotgrot.3
plotgrot=algol
17 10 75 11 45 00
external
procedure plotgrot(E,nmax,lmax);
value nmax,lmax; integer nmax,lmax;
array E;
begin
integer i,j,n,n2,l,c;
real Emin,Ev,E1,E2,xf,yf;
nmax:=8;
Emin:=0;
for l:=0 step 1 until lmax do
for n:=l+1 step 1 until nmax do
if E(n*(n-1)//2+l+1)<Emin then Emin:=E(n*(n-1)//2+l+1);
xf:=4*(lmax+2.5);
yf:=-24*Emin;
if yf<4 then yf:=yf*10;
if yf<8 then yf:=yf*5;
if yf<16 then yf:=yf*2;
plotform(0,xf*(if plottertype=4 then 2 else 1)+4,yf+2);
plotadmini(0,lmax+1,Emin,-.1*Emin,0);
for l:=0 step 1 until lmax do
for n:=l+1 step 1 until nmax do
if E(n*(n-1)//2+l+1)<0 then begin
Ev:=E(n*(n-1)//2+l+1);
plotmove(l+1-.25-4*plotsize/deltax,Ev);
writeplot(<<dd>,n,false add alf(l),1);
plotline(l+1-.25,Ev,l+1+.25,Ev);
if l<lmax then
c:=0;
for n2:=l+2 step 1 until nmax do begin
E2:=E(n2*(n2-1)//2+l+2);
if E2<0 then begin
if c mod 2=0 then plotline(l+1,Ev,l+2,E2) else
plotline(l+2,E2,l+1,Ev);
c:=c+1;
end;
end;
end;
end;
end
▶EOF◀