MXK(CASIO5800P) 交点法坐标计算.doc

★♀（CASIO fx-5800p） ⊙ 交点法坐标计算♂☆ ①线路主线坐标计算主程序（++JDFZBJS） Deg: Fix 3: 60DimZ WELCOME MXK Lbl 0 PASSWORD?Z[55] If Z[55]≠Z[53]: Then SORRY PLEASE REWRITE ! :Goto 0: IfEnd 1.PDXY,2.XYPD: N?W W=2= Goto 4 XO?U: YO?V Lbl 1 K”?P: D?D Prog +SJK Prog +PQXYS Prog +ZBZS XP=:F◢ YP=:G◢ TX=:ZDMS◢ U=0= Goto 2 Pol（F-U,G-V） J0=J+360J L=:I◢ ANG=: JDMS◢ Lbl 2 …………… D ANGLE?H H=0=Goto 1 D?D XB=:F+Dcos(Z+H)Z[11]◢ YB=:G+Dsin(Z+H)Z[12]◢ U=0= Goto 3 Pol（Z[11]-U,Z[12]-V J0=J+360J L=:I◢ ANG=: JDMS◢ Lbl 3 1.XIN,2.JX”?W W=2=Goto 2 -------------- Goto 1 Lbl 4 X?U: Y?V Prog+ZBFS K=: P◢ D=:D◢ ----------- Goto 4 ②平曲线要素子程序（+PQXYS） If O0: Then －1W: Else 1W: IfEnd: WOA B2÷24÷R－B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)Z[6] C2÷24÷R－C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)Z[7] B÷2－B^(3)÷240÷R2+B^(5)÷34560÷R^(4)Z[8] C÷2－C^(3)÷240÷R2+C^(5)÷34560÷R^(4)Z[9] Z[8]+(R+Z[7]－(R+Z[6])cos(A))÷sin(A)S Z[9]+(R+Z[6]－(R+Z[7])cos(A))÷sin(A)T RAπ÷180+(B+C)÷2L L－B－CQ (R+(Z[6]+Z[7])÷2)÷cos(A÷2)－RE K－SZ[1] Z[1]+BZ[2] Z[2]+Q÷2Z[3] Z[1]+L－CZ[4]◢ Z[4]+CZ[5] ③中桩坐标子程序（+ZBZS） X－Scos(M)Z[21]: Y－Ssin(M)Z[22] X+Tcos(N)Z[23]: Y+Tsin(N)Z[24] If PZ[1]: Then Goto 1: IfEnd Z[1]－PL X－(S+L)cos(M)F Y－(S+L)sin(M)G MZ: Goto 5 Lbl 1 If PZ[2]: Then Goto 2: IfEnd P－Z[1]L: LZ[14]: BZ[15]: Prog +JBZB Z[21]+Z[16]cos(M)－WZ[17]sin(M)F Z[22]+Z[16]sin(M)+WZ[17]cos(M)G M+90WL2÷(BRπ)Z Goto 5 Lbl 2 If PZ[4]: Then Goto 3: IfEnd P－Z[1]L: 90(2L－B)÷R÷πZ[13] Rsin(Z[13])+Z[8]Z[16]: R(1－cos(Z[13]))+Z[6]Z[17] Z[21]+Z[16]cos(M)－WZ[17]sin(M)F Z[22]+Z[16]sin(M)+WZ[17]cos(M)G M+WZ[13]Z Goto 5 Lbl 3 If PZ[5]: Then Goto 4: IfEnd Z[5]－PL: LZ[14]: CZ[15]: Prog +JBZB Z[23]－Z[16]cos(N)－WZ[17]sin(N)F Z[24]－Z[16]sin(N)+WZ[17]cos(N)G N－90WL2÷(CRπ)Z Goto 5 Lbl 4 P－Z[5]L X+(T+L)cos(N)F Y+(T+L)sin(N)G NZ Lbl 5 If Z0: Then Z+360Z: IfEnd ④曲点局部坐标子程序（+JBZB） If Z[14]=0: Then 0Z[16]: 0Z[17]: Else Z[14]－Z[14]^(5)÷40÷(RZ[15])2+Z[14]^(9)÷3456÷(RZ[15])^(4)Z[16] Z[14]^(3)÷6÷(RZ[15])－Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)Z[17] IfEnd ⑤坐标反算子程序（+ZBFS） 27500P: 0D Lbl 0 K?P: D?D Prog