Lbl l Norm ClrText "Xl"?^A:"Yl"?^B:"Zl"?^C A->J:B^K:C^L ClrText "X2"?^D:"Y2"?^E:"Z2"?^F ClrText "X3"?^G:"Y3"?^H:"Z3"?^I ClrText "Wait..." A-J^A:B-K^B:C-L^C:D-J^D:E-K^E:F-L^F:G-J^G:H-K^H:I-L^I Pol(E,D) List Ans[l]^D List Ans[2]^Z:Z-90^Z Gxcos Z-Hxsin Z^>T:Gxsin Z+Hxcos Z^H:T^G:0^£ Pol(F,D) List Ans[l]^D List Ans[2]^Y:-lx(90-Y)^Y Gxcos Y-Ixsin Y^>T:Gxsin Y+Ixcos Y^I:T^G:0^F Pol(I,H) List Ans[2]^X:-lx(270-X)^X Hxcos X-Ixsin X^T:Hxsin X+Ixcos X^I:T^H:0^I (A-G)x(E-H)-(D-G)x(B-H)^M (((A-G)x(A+G)+(B-H)x(B+H))^2x(E-H)-((D-G)x(D+G)+(E-H)x(E+H))^2x(B-H))+M^P (((D-G)X(D+G)+(E-H)X(E+H))^2X(A-G)-((A-G)X(A+G)+(B-H)X(B+H))^2X(D-G))^M^Q 0^R:-lxX^X:-lxY-VY:-lxZ^Z Qxcos X-Rxsin X^T:Qxsin X+Rxcos X^R:T^Q Pxcos Y-Rxsin Y^T:Pxsin Y+Rxcos Y^R:T^P Pxcos Z-Qxsin Z^T:Pxsin Z+Qxcos Z^Q:T^>P P+J^P Q+K^Q R+L^R V((P-J)2 + (Q-K)2 + (R-L)2)^N Fix 3 ClrText "Xo:" P> "Yo:" ClrText "Zo:" R> "RADIUS:" N> Goto l
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)