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

Pythagoraan lauseen todistus

S.Mustonen (2001)

Toimituskenttä:

   1 *
   2 *Pythagoraan lauseen todistus:
   3 *Valkoinen neliö = punainen neliö + sininen neliö
   4 *
   5 *SIZE=1050,550  FRAME=0 HEADER= XDIV=0,1,0 YDIV=0,1,0
   6 *XSCALE=0,21 YSCALE=0,11  XLABEL= YLABEL=
   7 *
   8 *Keltaisten kolmioiden sivut: a=6 b=3
   9 *s=a+b A=a+1 S=s+1 T=s+2 POLYCOEFF=80
  10 *
  11 *POLYGONS=N6,K1,K2,N3,K3,K4,k1,k2,k3,k4
  12 *N6=1,1,A,1,A,A,1,A,-1     k1=T,A,T+a,S,T,S,-3
  13 *K1=1,A,A,S,1,S,-3         k2=T+b,1,T+s,1,T+s,b+1,-3
  14 *K2=1,A,A,A,A,S,-3         k3=T,1,T+b,1,T,A,-3
  15 *N3=A,A,S,A,S,S,A,S,-2     k4=T+s,b+1,T+s,S,T+a,S,-3
  16 *K3=A,A,A,1,S,1,-3
  17 *K4=A,A,S,A,S,1,-3
  18 *
  19 *FILL(-1)=1,0.5,0,0
  20 *FILL(-2)=0,1,1,0
  21 *FILL(-3)=0,0,1,0
  22 *
  23 *PLOT /FRAME / DEVICE=PS,PYTH.PS
  24 *

  Hakemisto | Kuvasto | Edellinen | Seuraava