本程序的作用是求通过平面上任意三点的圆的圆心坐标和半径

本程序的作用是求通过平面上任意三点的圆的圆心坐标和半径 说明:本程序的作用是求通过平面上任意三点的圆的圆心坐标和半径 用法:输入三个点的X,Y坐标(三个点的输入顺序随意)，即计算出圆心坐标和半径，输入的 三个点在一条直线上则显示WU 提示:输入Fix 和Norm 请按计算器SHIFT加MODE LBl 0 Cls :X1:?A: :Y1:?B Cls :X2:?C: :Y2:?D Cls :X3:?E: :Y3:?F Cls (A+C)?2?G:(B+D)?2?H:Pol(A-C,B-D):J+90?M: (C+E)?2?K: (D+F)?2?L: Pol(C-E,D-F):J+90?N:If B=D And D=F:Then :WU:? Goto 0:IfEnd If B=D:Then(A+C)?2?X:tan(N)((A-E)?2)+(D+F)?2?Y: Pol(X-A,Y-B) :X=: :Y=: :R=: Fix 3 Locate 4,1,X Locate 4,2,Y Locate 4,3,I? Norm 1:Goto 0:IfEnd If D=F:Then(C+E)?2?X:tan(M)((E-A)?2)+(B+D)?2?Y: Pol(X-A,Y-B) :X=: :Y=: :R=: Fix 3 Locate 4,1,X Locate 4,2,Y Locate 4,3,I? Norm 1:Goto 0:IfEnd If tan(M)=tan(N):Then :WU:? Goto 0:IfEnd ((F-B)?2-tan(N)((C+E)?2)+tan(M)((A+C)?2))?(tan(M)-tan(N))?X:tan(N)(X-(C+E) ?2)+(D+F)?2?Y:Pol(X-A,Y-B) :X=: :Y=: :R=: Fix 3 Locate 4,1,X Locate 4,2,Y Locate 4,3,I? Norm 1:Goto 0 ?? ?? ?? ??