mathematica写的 投针法求Pi

用VC6.0实现，利用投针法原理计算π的值。

一个帮助广大朋友的程序代码，蒙特卡洛模拟的范围。18世纪， Buffon提出以下问题：设我们有一个以平行且等距木纹铺成的地板（如图2），随意抛一支长度比木纹之间距离小的针，求针与其中一条木纹相交的概率。并以此概率，Buffon提出的一种计算圆周率的方法——随机投针法。这就是Buffon投针问题（又译“布丰投针问题”）。