从圆面积的计算说起——数学·编程·游戏.pdfVIP

趣昧 电脑 从圆面积的计算说起 数学 ·编程 ·游戏 沈 溥 用 s=,rrr2求 圆面积很容易。但是 ，如果不许 IfPoint(i，j)=0Thenn(m)=n(m)4-1 使用这个公式 ，你能计算吗? Nextj：Nexti 还有 ，不许使用 v=a~rr3／3，你还能算出球的 m =m 4-l 体积吗? Return 下面这个简单办法 ，是从面积和体积 的最初 tt：EndSub 概念出发 的：每边为单位长的正方形 ，大小是 1 设单位长 r=100，先 以x0．v0为圆心 、r为 个单位面积 ，而每条棱为单位长的立方体 ，大小 半径画一黑色圆，通过子程序在中心为 x0，vO 是 1个单位体积 。分别以它们作为基准 ，通过对 且涵盖该圆的方形区域 内逐点扫描 ，计 出黑色像 中 比．就可求得半径为单位长的圆面积和球体积。 素点的数 目，存于 n (0) 中 (结果为 3l227)。 国 Dimn(220) 作为比较对象 ，边长为 r的正方形内包含的像素 科 PrivateSubForm 点数不需扫描统计 ．它应该是 100x100=10000 _ Click0 技 教 Scale (0，0)一(640，480) 个 ，即圆面积是相应正方形面积的3．1227倍 。用 育 xO=320：yO：240：r= 100 公式计算 ，得圆面积是 31416，若以它作为准确 C=QBColor(0)：m=0 值，n (0)的相对误差是 0．6％，这个计算圆面积 FillStyle：0：FillColor= c 的办法看来还行 。 Circle (x0，y0)，r，C 把 n (0)的值赋予 v以后 ，我们改把 v理解 GoSubsubl：v：n (0)：Cls 成高度为 1的圆柱体 内的像素点数。进入第一个 Fork= 1T0r k循环 ，半径 rr逐次减少 ，画圆并通过子程序计 rr=Sqr(r 2一k 2) 出各圆中的像素点数存人数组 n，第二个 k循环 Circle (x0，y0)，rr，e 用来将对称叠起的各个高度为 1的圆柱体内像素 GoSubsubl 点数求和。用此方法 ．最后得到体积v=4171623。 Forkk= 1To100000：Nextkk：Cls 它是棱长为 r的立方体体积的约 4．17倍 。若用球 Nextk 的体积公式计算 ．得准确值为 4188800，v与它 Fork：lTor 的相对误差 0．4l％，结果也不错 。 v=v+2 n(k) 我们就把上述方法称为像素点计数法吧 ! Nextk 还有一个方法可 以求 圆 (或球)的面积 (或 Print “n(0)7-”；n(0)：Print “