Käyttöympäristö tekstin ja numeerisen tiedon luovaan käsittelyyn

Steinerin ympyrät

S.Mustonen, Survon käyttöopas (1992), s. 325

Toimituskenttä:

   1 *
   2 *HEADER=Steinerin_ympyrät
   3 *XDIV=1,8,1 YDIV=1,8,1 SCALE=-10,0,10
   4 *T=0,2*pi,pi/20 pi=3.141592653589793
   5 *R=-12,12,0.5  ind=0,1,1 C=2
   6 *A=R*R+(1-2*ind)*C*C B=if(A<0)then(0)else(sqrt(A))
   7 *PLOT X(T)=B*cos(T)+ind*R, 
   8 *     Y(T)=B*sin(T)+(1-ind)*R 
   9 *SIZE=1164,1164 DEVICE=PS,STEINER.PS
  10 *

  Hakemisto | Kuvasto | Edellinen | Seuraava