DataMuseum.dk

top - metrics - download

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

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

TextFile

(
scope temp plotcond plotproj plotcproj
clear temp plotcond plotproj plotcproj
 plotcond=set 1
 plotproj=set 2
 plotcproj=set 1
)

message plotcond in tplp

plotcond=algol message.no list.no
external
boolean procedure plotcond(x,y,t,t0,dt,b1,b2);
value t0,dt;
real x,y,t,t0,dt;
boolean b1,b2;
begin boolean b; 
   t:=t0;
   penup; plotmove(x,y);
   b:=false;
   for t:=t+dt while b1 do
   begin
    if b==b2 then plotcond:=plotmove(x,y) else
    begin
     b:=-,b;
     if b then pendown else penup;
     plotcond:=plotmove(x,y);
    end;
   end t;

   penup;
end;
end;
\f


message plotproj in tplp
plotproj=algol message.no list.no

external
boolean procedure plotproj(x,y,z,t,t0,tn,dt);

comment proceduren plotter projektionen af den tredimensionale
kurve (x(t),y(t),z(t)) ned i en todimensional plan, fastlagt
ved normalretnings Eulervinkler, theta og phi. z-aksen proji-
ceres i en lodret linie paa papiret;

value t0,tn,dt;
real x,y,z,t,t0,tn,dt;
begin
   real u,v;
   u:=theta*0.0174533;
   v:=phi*0.0174533;
   plotproj:=plotcurve(y*cos(v)-x*sin(v),
             z*cos(u)-sin(u)*(cos(v)*x*sin(v)*y),t,t0,tn,dt);
end;
end;
\f


message plotcproj in tplp

plotcproj=algol message.no list.no

external
boolean procedure plotcproj(x,y,z,t,dt,b1,b2);
 value dt;
 real x,y,z,t,dt;
boolean b1,b2;
begin 
     integer n; real t1;
     n:=0;
     for t:=t,t+dt while b1 do
begin
comment     if s:=1 then n:=n+1;
     if(b2 or (n mod 2)=1) then
begin
     t1:=t;
     plotcproj:=plotproj(x,y,theta,phi,t,t,dt);
     t:=t1;
end;
end;
end;

end;
▶EOF◀