CASIO f-5800P CYT 综合曲线坐标正反算程序V3.1.docVIP

[原创] CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.0 说明：本程序适用于计算器 CASO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。包含：交点前直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标切线方位角Z 第3步 Q→J：If J=0：Then Prog ＂＂＂＂＂＂＂＂＂＂Cls：＂＂＂＂＂＂＂＂Cls：＂＂＂＂＂＂Z：Goto 1 曲线要素子程序名：CYTYS 第1步 S^(2)÷24÷R-S^(4)÷2688÷R^(3) + S^(6)÷506880÷R^(5)→Z[5]：T^(2)÷24÷R-T^(4)÷2688÷R^(3)+ T^(6)÷506880÷R^(5)→Z[6] 第2步 S÷2-S^(3)÷240÷R^(2)→Z[7]：T÷2-T^(3)÷240÷R^(2)→Z[8] 第3步 90×S÷π÷R→Z[9]：90×T÷π÷R→Z[10] 第4步 (Abs(A)-Z[9]-Z[10])×R×π÷180→Z[2] 第5步 (R+Z[5])×tan(Abs(A)÷2)+(Z[6]-Z[5])÷sin(Abs(A))+Z[7]→Z[11] 第6步 (R+Z[6])×tan(Abs(A)÷2)+(Z[5]-Z[6])÷sin(Abs(A))+Z[8]→Z[22] 第7步 (R+Z[5])÷cos(Abs(A)÷2)-R→Z[1] 第8步 Z[2]+S+T→L：D-Z[11]→Z[12]：Z[12]+S→Z[13]：Z[13]+Z[2]→Z[15]：Z[12]+L→Z[16] 第9步 F+180→Z[17]：If Z[17]360：Then Z[17]-360→Z[17]：IfEnd：N-Z[11]×cos(F)→Z[18]：E-Z[11]×sin(F)→Z[19] 第10步 F+A→Z[20]：If Z[20]360：Then Z[20]-360→Z[20]：IfEnd：N+Z[22]×cos(Z[20])→Z[21]：E+Z[22]×sin(Z[20])→Z[23] 显示曲线要素子程序名：CYTXS 第1步 Prog ＂＂＂＂Cls：＂＂＂＂＂＂＂＂Cls：＂＂＂＂＂＂＂＂＂＂÷π→Z[26] 第5步 F+Z[26]×H→Z[27]：W-W^(5)÷40÷R^(2)÷S^(2)→Z[28]：W^(3)÷6÷R÷S-W^(7)÷336÷R^(3)÷s^(3)→Z[29] 第6步 Z[18]+Z[28]×cos(F)-H×Z[29]×sin(F)+P×cos(Z[27]+Q)→X：Z[19]+Z[28]×sin(F)+H×Z[29]×cos(F)+P×sin(Z[27]+Q)→Y：Goto 3 第7步 Lb1 F：Z-Z[12]→K：If A0：Then -1→H：Else 1→H：IfEnd：((Z-Z[12])-0.5×S)÷R×180÷π→Z[32] 第8步 F+Z[32]×H→Z[33]：R×sin(Z[32])+Z[7]→Z[34]：R×(1-cos(Z[32]))+Z[5]→Z[35] 第9步 Z[18]+Z[34]×cos(F)-H×Z[35]×sin(F)+P×cos(Z[33]+Q)→X：Z[19]+Z[34]×sin(F)+H×Z[35]×cos(F)+P×sin(Z[33]+Q)→Y：Z[33]→Z[27]：Goto 3 第10步 Lb1 G：Z[16]-Z→M：If A0：Then -1→H：Else 1→H：IfEnd：Z[20]+180→Z[42]：If Z[42]360：Then Z[42]-360→Z[42]：IfEnd 第11步 M^(2)÷2÷R÷T×180÷π→Z[38]：Z[20]+Z[38]×H→Z[39]：M-M^(5)÷40÷R^(2)÷T^(2)→Z[40]：M^(3)÷6÷R÷T-T^(4)÷336÷R^(3)→Z[41] 第12步 Z[21]+Z[40]×cos(Z[42])-H×Z[41]×sin(Z[42])+P×cos(Z[39]+Q)→X： Z[23]+Z[40]×sin(Z[42])+H×Z[41]×cos(Z[42])+P×sin(Z[39]+Q)→Y：Z[39]→Z[27]：Goto 3 第13步 Lb1 H：If Z≥Z[16]：Then Z-Z[16]→Z[43]：IfEnd 第14步 Z[21]+Z[43]×cos(Z[20])+P×cos(Z[20]+Q)→X：Z[23]+Z[43]×sin(Z[20])+P×sin(Z[20]+Q)→Y：Z[20]→Z[27] 第15步 Lbl 3：Return 反算子程序名：CYTFS