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

Yksikköympyrän sisään piirretyn tasasivuisen 100-kulmion pinta-ala

Alkutilanne (ennen aktivointia):

   1 *
   2 *PI=3.141592653589793
   3 *p=100
   4 *
   5 *MAT K=ZER(p+1,2)  
   6 *MAT #TRANSFORM K BY if(J#=1)then(cos(I#/p*2*PI))else(sin(I#/p*2*PI))  
   7 *
   8 *P(x,y):=MAT_K(x,y)
   9 *Ala=for(i=1)to(p)sum((P(i,1)*P(i+1,2)-P(i+1,1)*P(i,2))/2)
  10 *
  11 *Ala=  
  12 *

Lopputilanne (aktivoinnin jälkeen):

   1 *
   2 *PI=3.141592653589793
   3 *p=100
   4 *
   5 *MAT K=ZER(p+1,2)
   6 *MAT #TRANSFORM K BY if(J#=1)then(cos(I#/p*2*PI))else(sin(I#/p*2*PI))
   7 *
   8 *P(x,y):=MAT_K(x,y)
   9 *Ala=for(i=1)to(p)sum((P(i,1)*P(i+1,2)-P(i+1,1)*P(i,2))/2)
  10 *
  11 *Ala=3.1395259764657
  12 *

 Edellinen | Seuraava