用Tcl/Tk脚本计算圆周率

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

读了阮一峰的蒙特卡罗方法入门，用概率统计的方式求解棘手的数学问题还挺有意思的,尤其是利用正方形和它的内切圆之间的面积关系来建模求解圆周率的方法精巧又简单，比投针实验好理解也好实现多了。建模可不是Matlab或者MAST/VHDL语言的专利，既然tcl/tk脚本也有内置的随机数产成函数rand(),那么我用tcl/tk建模计算圆周率也应该不在话下。

建模思想

正方形内部有一个相切的圆，它们的面积之比是π/4。

在这个正方形内部，随机产生足够多的点，计算它们与中心点的距离，从而判断是否落在圆的内部。如果这些点均匀分布，那么圆内的点应该占到所有点的 π/4，因此将这个比值乘以4，就是π的值。

脚本实现

tcl/tk内置math函数库的rand()方法可以随机生成0～1的浮点数，假设圆的半径为整数r,可以用以下方式产生(0,r)区间的随机整数:

set value [int[expr rand()* $range]]

为了计算简便，可以把模型进一步简化，只计算第一象限内的点落入圆内的比例。为了验证tcl/tk的rand()函数是否真的随机，我又多加了几行tk代码，把所有的点都显示出来。下面的代码中正方形的边长为300,随机产生300*300个点，理想情况下如果随机点100%均匀分布，那么每个点应该恰好对应一个像素。

tcl/tk代码：

proc CaculatePi{runs range canvas}{
set r $range
set hits 0
set run 0
while{$run < $runs}{
set rPower2 [expr pow($r,2)]
set ptX [int[expr rand()* $range]]
set ptY [int[expr rand()* $range]]
# display point on canvas
$canvas create line [expr $ptX +5][expr $ptY +5][expr $ptX +5][expr $ptY +5]
set ptPower2 [expr pow($ptX,2)+ pow($ptY,2)]
if{[expr $rPower2 - $ptPower2]>=0}{
incr hits
}
incr run
}
set pi [expr $hits *4/double($runs)]
return $pi
}
set range 300
catch{destroy .c}
# leave 10 pts margin for rectangle
set canvas [canvas .c -width [expr $range +10]-height [expr $range +10]]
pack $canvas -fill both
$canvas create oval 55[expr $range +5][expr $range +5]-outline blue -width 2
$canvas create rect 55[expr $range +5][expr $range +5]-outline blue -width 2
set pi [CaculatePi[expr $range * $range] $range $canvas]
puts "Pi:$pi"

计算结果和显示

Pi:3.1512888888889

90000个随机点，但是结果居然比祖冲之老先生手工割圆的精度还低很多很多。再看看Canvas上的点图虽然不是一片漆黑，但是点的分布也比较一致均匀，再增加些随机点试试看？把点数增加到100万，画布虽然一片漆黑，Pi结果为3.145944，精度还是很有限。难道tcl/tk的rand()函数产生的伪随机数还是不够随机？