742
社区成员
发帖
与我相关
我的任务
分享
'圆的标准方程为
'(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
x = 168.610488940488
y = 107.324595647269
' 输出结果: 6.82121026329696E-13
' 也就是: 0.00000000000068212102633
' 相比最初的 0.00063311 ,已经就是“非常接近0”了