已知圆上任意三点坐标，求圆心坐标及半径程序（Casio4800）：

已知圆上任意三点坐标已知圆上任意三点坐标，求圆心坐标及半径程序：
LbI  0
{A,B,D,E,F,G}
A"X1":B"Y1":D"X2":E"Y2":F"X3":G"Y3"
I=0:J=0
Pol ((A-F),(B-G))
J≥0=>H=J△
J≤0=>H=J+360△
Pol ((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=(A+D)/2+L*COS(K-90)▲
Y=(B+E)/2+L*SIN(K-90)▲
R=√((X-A)^2+(Y-B)^2)▲
Goto 0