RosettaCodeData/Task/Monte-Carlo-methods/Octave/monte-carlo-methods-2.octave

4 lines
90 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
function result = montepi(n)
result = sum(rand(1,n).^2+rand(1,n).^2<1)/n*4;
endfunction