fini /clea /prep7 pi=acos(-1) R=10 r1=6 r2=2 cylind,R,,0,3 *do,i,0,4 cyl4,r1*cos(i*2*pi/5),r1*sin(i*2*pi/5),r2,,,,3 vsbv,1,2,1,delete,delete numcmp,volu *enddo