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

已知圆上任意三点求圆心坐标及半径程序：程序名自设定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)2+(Y-B)2▲ (根号)

Goto 0