menghitung nilai pi dengan program macro minitab

macro
random n n1 n2 c1 c2 c3
mconstant n i n1 n2 phi
mcolumn c1 c2 c3

random n c1 c2;
normal 0.0 0.1.

do i=1:n
if(c1(i)*c1(1)+c2(i)*c2(i))<=1
let n1=n1+1
else
let n2=n2+1
endif
let c3(i)=4*n1/(n1+n2)
enddo
let phi=mean(c3)
print phi
endmacro

#dengan menggunakan nilai n1=0 dan n2=2, kemudian di run sebagai berikut
cara untuk memamnggil d mtb minitab yaitu: %(local disk):\(nama file.txt) 100 0 2 c1 c2 c3