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

Ympyrän neliöiminen

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

Toimituskenttä:

   1 *
   2 *     "Ympyrän neliöiminen" 
   3 *
   4 *PLOT X(T)=M+1-P+R*CT*ABS(CT)^A, 
   5 *     Y(T)=Q+R*ST*ABS(ST)^A 
   6 *CT=COS(T) ST=SIN(T) DEVICE=PS,CIRCSQR.PS HEADER=
   7 *T=[line_width(0.48)],0.001,2*pi+0.001,pi/30 pi=3.14159
   8 *FRAME=0 R=0.5 A=-1+(P+M*(Q-1))/(M*N)
   9 *M=15 N=18 P=1,M,1 Q=1,N,1
  10 *XSCALE=0.5,M+0.5 YSCALE=0.5,N+0.5
  11 *XDIV=0,1,0 YDIV=0,1,0 SIZE=1164,1164*N/M
  12 *

  Hakemisto | Kuvasto | Edellinen | Seuraava