Environment for creative processing of text and numerical data

Steiner circles

S.Mustonen, Survo Users' Guide (1992), p. 325

Edit field:

   1 *
   2 *HEADER=Steiner_circles
   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 *

  Index | Catalog | Previous | Next