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

SURVO MM

Steinerin ympyrät

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

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 *



Etusivu  |  Keskustelu  |  Uutuudet  |  Download  |  Flash
Copyright © Survo Systems 2001-2008. All rights reserved.
Updated 2008-10-20 by webmaster'at'survo.fi.
Best viewed with any browser.