RosettaCodeData/Task/Monte-Carlo-methods/Octave/monte-carlo-methods-2.octave
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

3 lines
90 B
Text

function result = montepi(n)
result = sum(rand(1,n).^2+rand(1,n).^2<1)/n*4;
endfunction