?? buffon.m
字號:
function piguji=buffon(llength,mm)
%llength 是針的長度
%mm 是隨機實驗次數
frq=0;
xrandnum = unifrnd(0,0.5,1,mm);
phi= unifrnd(0,pi,1,mm);
for ii=1:mm
if (xrandnum(1,ii)<=(llength*sin(phi(1,ii))/2))
frq=frq+1;
end
end
piguji=2*llength/(frq/mm)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -