DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦dd2c1b53f⟧ »tplot« 
            └─⟦this⟧ 

TextFile

;ali time 1 0 0
mode list.yes listing.yes
lookup pmaneks
plotfig1=set 0 disc3
plotfig2=set 0 disc3
plotfig3=set 0 disc3
plotfig4=set 0 disc3
plotfig5=set 0 disc3
plotfig6=set 0 disc3
plotfig78=set 0 disc3
plotfig9=set 0 disc3
scope day plotfig1 plotfig2 plotfig3 plotfig4 plotfig5,
  plotfig6 plotfig78 plotfig9
plotfig1=algol
figur 1
begin
integer j;
setplotname(<:houstona:>,0);
plotform(0,8,3);
plotheight:=0.50; plotsize:=0.4;
linediff:=2*plotheight;
setmargin(1,2); j:=4;
writeplot(<:<12> en tekst med en <10> vognretur :>,2*j);
plotclose;
end
plotfig2=algol
figur 2
begin
integer i;
setplotname(<:houstona:>,0);
plotform(0,17,4);
pointsize:=.35;
for i:=0 step 1 until 15 do
  begin
  plotmove(1+i-plotsize,3);
  writeplot(i);
  plotpoint(1+i,1,i);
  end;
plotclose;
end;
plotfig3=algol
figur 3
begin
real x;
setplotname(<:houstona:>,0);
plotform(0,8,8);
setmargin(3,7);
writeplot(<:<12>sin(x)*exp(-x):>);
plotadmini(0,2*pi,-0.1,0.4,0);
plotgraph(x,sin(x)*exp(-x),0,2*pi,pi/200);
plotclose;
end
plotfig4=algol
figur 4
begin
real t;
setplotname(<:houstona:>,0);
plotform(0,8,8);
setmargin(1,7);
writeplot(<:<12>unitcircle:>);
plotadmini(-1.3,1.3,-1.3,1.3,0);
plotcurve(sin(t),cos(t),t,0,2*pi,pi/200);
plotclose;
end
plotfig5=algol
figur 5
begin
real x;
setplotname(<:houstona:>,0);
plotform(0,8,8);
setmargin(2,7);
writeplot(<:<12>sin(x)*exp(-x):>);
plotsubform(2,6,2,6,true);
plotadmini(0,2*pi,-0.1,0.4,0);
plotcurve(x,sin(x)*exp(-x),x,0,2*pi,pi/200);
plotclose;
end
plotfig6=algol
figur 6
begin
real t;
setplotname(<:houstona:>,0);
plotform(0,8,8);
plotsubform(2,6,1,5,true);
plotadmini(-1.5,1.5,-1.5,1.5,0);
plotcurve(sin(t),cos(t),t,0,2*pi,pi/200);
plotsubform(1,7,6,8,false);
setmargin(1,1);
write(plotz,<:<12>unitcircle:>);
setposition(plotz,0,0);
plotclose;
end
plotfig78=algol
figur 7 og 8
begin
boolean soval,si;
integer i,j,val,SO;
long array name(1:3);
array field raf;
raf:=0;
readsfp(<:plotter:>,name.raf,<:houstona:>);
setplotname(string inc(name.raf),0);
si:=false add 15;
for SO:=1,2 do
begin
soval:=false add (if SO=2 then 14 else 127);
plotform(0,16,25);
plotsettext(.26,.34,0,0,0);
setmargin(6,plotymax-0.75);
writeplot("ff",1,<:characterset :>,
  "nl",1,"sp",4,if SO=2 then <:greek:> else <:roman:>);
plotsubform(1,plotxform,0,plotyform,false);
for j:=0,1,2,3 do
begin
setmargin(plotsize*(13*j+2),plotymax-2.5);
writeplot(si,1,"ff",1,<:char:>,"sp",1,<:value:>);
for i:=0 step 1 until 31 do
begin
val:=32*j+i;
if val=0 then writeplot("nl",1) else
if val<8 or val>15 then
writeplot("nl",1,soval,1,false add val,1,si,1,"sp",
  if val=127 then 6 else 5,<<dd>,val) else
writeplot("nl",1,case val-7 of( <:BS:>,<:  :>,
  <:NL:>,<:  :>,<:FF:>,<:CR:>,<:SO:>,<:SI:>),"sp",4,<<dd>,val);
  if false then write(out,"nl",1,<:char=:>,val);
end;
end;
plotclose;
end;
end;
plotfig9=algol
figur 9
Anders Lindgård
1978-10-09
begin
real length,heigth,x,y,r,r2,t;
integer i,j,xc,yc;
array pname(1:2);

readsfp(<:plotter:>,pname,<:houstona:>); 
setplotname(string inc(pname),0);

r:=4; r2:=6;
length:=0.30; heigth:=0.42;
xc:=1; yc:=2;
plotspline:=true;

plotform(0,14,12);
movecoor(xc,yc);
pointsize:=heigth*6/7;

plotline(0,0,6,0);
plotpoint(6,0,10);
plotline(0,0,0,6);
plotpoint(0,6,13);

plotline(0,0,r2*cos(pi/6),r2*sin(pi/6));
plotsettext(length,heigth,pi/6,pi/6,0);
setmargin(xc+r2*cos(pi/6),yc+r2*sin(pi/6));
writeplot(<:<12><23> write direction:>);

plotline(0,0,r2*cos(pi/3),r2*sin(pi/3));
plotsettext(length,heigth,pi/3,pi/3,0);
setmargin(xc+r2*cos(pi/3),yc+r2*sin(pi/3));
writeplot(<:<12><23> tilt:>);

plotcurve(r*cos(t),r*sin(t),t,0,pi/6,pi/100);
plotcurve(r*cos(t),r*sin(t),t,pi/3,pi/2,pi/100);

plotsettext(length,heigth,pi/6+pi/2,pi/6+pi/2,0);
setmargin(xc+r*cos(pi/6),yc+r*sin(pi/6));
writeplot(<:<12><23>:>);

plotsettext(length,heigth,pi,pi,0);
setmargin(xc,yc+r);
writeplot(<:<12><23>:>);

plotsettext(length,heigth,pi/12,pi/12,0);
setmargin(xc+r*cos(pi/12),yc+r*sin(pi/12));
writeplot(<:<12> <14><124><15>x:>);

plotsettext(length,heigth,pi/2-pi/12,pi/2-pi/12,0);
setmargin(xc+r*cos(pi/2-pi/12),yc+r*sin(pi/2-pi/12));
writeplot(<:<12> <14><124><15>y:>);

plotsettext(length,heigth,0,0,0);
setmargin(xc,yc);
writeplot(<:<12><10>Example with <14><124><15>x = <14>p/6<15> and <14><124><15>y = <14>-p/6<15>:>);

plotsettext(3,3,pi/6,-pi/6,0);
setmargin(xc,yc);
writeplot(<:<12>ab:>);
plotclose;
end;
;plotfig1
;plotfig2
;plotfig3
;plotfig4
;plotfig5
;plotfig6
;plotfig78 plotter.houstona 
;plotfig9 plotter.houstona
mode list.no 15.no
finisb
▶EOF◀