File: volume.pcm

package info (click to toggle)
extrema 4.3.6-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 19,212 kB
  • ctags: 6,452
  • sloc: cpp: 86,428; sh: 8,229; makefile: 814
file content (16 lines) | stat: -rw-r--r-- 302 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
destroy\all
x=[1:5]
y=[1:5]
matrix m 5 5
m=m+1
display 'Volume = '//rchar(volume(x,y,m))
x=x//x//x//x//x
y[1:5]=1
y[6:10]=2
y[11:15]=3
y[16:20]=4
y[21:25]=5
z=(x-2.5)^2+(y-2.5)^2
display 'Volume = '//rchar(volume(x,y,z))
grid\xyout\-messages x y z mm xo yo
display 'Volume = '//rchar(volume(xo,yo,mm))