pitest.m

基天子matlab的双缝干涉从单缝(线光源)发出的单色光射到与之平行的双缝上

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