wfcreate circle u 1 50000 rndseed 123123 !nrep = 500000 scalar kount = 0 for !i = 1 to !nrep scalar x=@rnd scalar y=@rnd if (x - 0.5)^2 +(y - 0.5)^2 < 0.25 then kount = kount + 1 endif next scalar pi = 4*(kount / !nrep)