唉；我老头子又干瞪眼拉

Question

在一个直径为18的圆上有几个已知的坐标点；怎么才能求出这个圆的圆心坐标值来？
请哪位老师能给出公式来啊；感谢！

Answer 1

jxgzay(jxgzay)老师感谢啊！呵呵；
唉；我老头子文化底子差啊没赶上好时代啊。
现在没事了，想学习都找不到老师啊

Answer 2

thirdapple(.:RNPA:.陨落雕-淡泊以铭志)老师啊！你和我老头子打哑谜啊

Answer 3

Private Sub Command1_Click()
'半径为18，再需要两点坐标就可以求出圆心。
'假定这两点的坐标是(x1,y1),(x2,y2)
X1 = InputBox("坐标x1:")
Y1 = InputBox("坐标y1:")
X2 = InputBox("坐标x2:")
Y2 = InputBox("坐标y2:")pi = 3.14159265
If X1 <> X2 Then
    j1 = -Atn((Y2 - Y1) / (X2 - X1))
Else
  X1 = Int(10 * X1 + 0.5) / 10
  Y1 = Int(Y1 * 10 + 0.5) / 10
    MsgBox "圆心是：(" & X1 & "," & (Y1 + Y2) / 2 & ")"
    Exit Sub
End If zjb1 = Sqr((Y2 - Y1) ^ 2 + (X2 - X1) ^ 2) / 2
 zjb2 = Sqr(18 ^ 2 - zjb1 ^ 2)
 j2 = Atn(zjb2 / zjb1)
 j3 = pi - j1 - j2
 h = 18 * Sin(j3)
 l = 18 * Cos(j3)
 x0 = X2 - l
 y0 = Y2 - h
 x0 = Int(x0 * 10 + 0.5) / 10
 y0 = Int(y0 * 10 + 0.5) / 10
 MsgBox "圆心是：(" & x0 & "," & y0 & ")"End Sub

Answer 4

jxgzay(jxgzay)老师！这个程序计算的圆心是错误的！
非常感谢啊！！！！！

Answer 5

mycatlove(冰湖小生)老师！
是在直径为18的圆圈内不是在圆圈上面；有5个已知的坐标点；求这个圆的圆心坐标点！

Answer 6

mycatlove(冰湖小生)老师啊！
连你这样的高材生都没办法啊！
我老头子只有去打太极拳拉！5555555555555555555555555555