exn567.m

来自「MATLAB及在电子信息课程中的应用.感觉很有用,本来也不花钱,有想用的来拿吧」· M 代码 · 共 12 行

%《MATLAB及其在理工课程中的应用指南》(十一五规划版)第五章例5-6-7程序
% 蒙特－卡罗随机测试法求圆周率
% 西安电子科技大学出版社出版  陈怀琛编著 2007年5月
%
clear
N=input('N= ')
%x=rand(1,N);y=rand(1,N);
k=0;
for i=1:N
    if rand(1)^2+rand(1)^2<1 k=k+1;end
end
k/N*4