已知圆上任意三点求圆心坐标及半径程序

已知圆上任意三点求圆心坐标及半径程序：程序名自设定 Lbi 0:｛A,B,D,E,F,G ｝

A “X1”:B“Y1”:D“X2”:E“Y2”:F“X3”:G“Y3” I=0:J=0

Poi((A-F),B-G))

J ≥0＝＞H=J⊿

J ≤0＝＞H=J+360⊿

Poi((A-D),B-E))

J ≥0＝＞K=J⊿

J ≤0＝＞K=J+360⊿

L=((B+G)/2+(A+D)/2/Cos(H+90)*Sin(H+90)-(A+F)/2/Cos(H+90)*Sin(H+90)-(B+E)/2)/(Sin(K-90)-Cos(K-90)*Sin(H+90)/Cos(H+90))

“X ”:X=(A+D)/2+LCos(K-90) ▲

“Y ”:Y=(B+E)/2+LSin(K-90) ▲

“R ”:R=√(X-A)+(Y-B) ▲ (根号)

Goto 0

22