VB数学问题 圆的标准方程

[sxqvb]

'圆的标准方程为
'(x-a)^2+(y-b)^2=r^2

Dim r As Single     '半径
Dim a As Single     '圆心x坐标
Dim b As Single     '圆心y坐标
Dim x As Single     '圆上点x坐标
Dim y As Single     '圆上点y坐标
r = 20
a = 150
b = 100
x = 168.6105
y = 107.3246

Print "半径: " & Sqr((x - a) ^ 2 + (y - b) ^ 2)

'圆的标准方程'(x-a)^2+(y-b)^2=r^2 的左边展开，整理得
' x^2+y^2-2ax-2by+a^2+b^2-r^2 = 0
Debug.Print x ^ 2 + y ^ 2 - 2 * a * x - 2 * b * y + a ^ 2 + b ^ 2 - r ^ 2  '这里不是应该等于0吗，但是结果不为0

[舉杯邀明月]

虽然“不是0”，但结果也是“很小的值”了！ 不为0的原因，就是“数值精度问题”造成的。 首先：你的“圆上的点”坐标x 、y 的“精度”就不是精确的，只精确到了小数点后第4位， 　　而“结果”为 6.33110525086522E-04 ，也就是0.00063311，跟你的“坐标精度”在同一级上。 其次，你用的变量是“Single类型”，也就是“单精度浮点数”，它的有效位数就只有7位， 　　因此你的“坐标”也就只能是3位整数+4位小数了。 如果你把变量类型改为Double，你的“坐标” x 、y 也可以用上更精确的值（这儿你可以输入12位小数）， 　　你就可以看到“更接近于0”的结果了。

[舉杯邀明月]

把你的主贴中代码的变量类型全部改为 Double， 然后：

x = 168.610488940488
y = 107.324595647269

' 输出结果： 6.82121026329696E-13
' 也就是：　 0.00000000000068212102633
' 相比最初的 0.00063311 ，已经就是“非常接近0”了

[sxqvb]

原来是这样呀，授教了，感谢！！！