CASIOfx-5800PCYT综合曲线坐标正反算程序V2.0.docVIP

[作者原创] CASIO fx-5800P CYT 综合曲线坐标正反算程序V2.0 说明：本程序适用于计算器 CASO fx-5800P,能进行全线贯通坐标正反算。可计算：交点前直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标切线方位角＂＂Z：＂W＂?P：＂α＂?Q：Prog＂CYTSJ＂：Goto C：Lb1 B 第4步＂＂＂＂：＂＂：：＂＂：＂＂：＂＂：＂＂＂＂＂＂Z：＂W＂?P：＂α＂?Q：Prog＂＂＂＂＂＂^(2)÷24÷R-S^(4)÷2688÷R^(3)+S^(6)÷506880÷R^(5)-S^(8)÷154828800÷R^(7)→Z[5]：T^(2)÷24÷R-T^(4)÷2688÷R^(3)+T^(6)÷506880÷R^(5)-T^(8)÷154828800÷R^(7)→Z[6] 第2步 S÷2-S^(3)÷240÷R^(2)+S^(5)÷34560÷R^(4)-S^(7)÷8386560÷R^(6)+S^(9)÷3158507520÷R^(8)→Z[7]：T÷2-T^(3)÷240÷R^(2)+T^(5)÷34560÷R^(4)-T^(7)÷8386560÷R^(6)+T^(9)÷3158507520÷R^(8)→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]：If J0：Then Goto D：IfEnd 第9步Cls：＂＂＂＂＂＂＂＂Cls：＂＂＂＂＂＂＂＂Z：＂W＂?P：＂α＂?Q：Lb1 2 第3步 If Z≤Z[12]：Then Goto I：IfEnd：If Z≤Z[13]：Then Goto E：IfEnd 第4步 If Z≤Z[15]：Then Goto F：IfEnd：If Z≤Z[16]：Then Goto G：IfEnd 第5步 If Z≥Z[16]：Then Goto H：IfEnd：Lb1 I：Z[12]-Z→G 第6步 Z[18]+G×Cos(Z[17])+P×Cos(F+Q)→X：Z[19]+G×Sin(Z[17])+P×Sin(F+Q)→Y：F→Z[27] 第7步 Goto 3：Lb1 E：Z-Z[12]→W：If A0：Then -1→H：Else 1→H：IfEnd 第8步 (Z-Z[12])^(2)÷2÷R÷S×180÷π→Z[26] 第9步 F+Z[26]×H→Z[27]：W-W^(5)÷40÷R^(2)÷S^(2)+W^(9)÷3456÷R^(4)÷S^(4)-W^(13)÷599040÷R^(6)÷S^(6) +W^(17)÷175472640÷R^(8)÷S^(8)→Z[28]：W^(3)÷6÷R÷S-W^(7)÷336÷R^(3)÷S^(3)+W^(11)÷42240÷R^(5)÷S^(5)-W^(15)÷9676800÷R^(7)÷S^(7)+W^(19)÷3530097000÷R^(9)÷S^(9)→Z[29] 第10步 Z[18]+Z[28]×Cos(F)-H×Z[29]×Sin(F)+P×Cos(Z[27]+Q)→X 第11步 Z[19]+Z[28]×Sin(F)+H×Z[29]×Cos(F)+P×Sin(Z[27]+Q)→Y 第12步 Goto 3：Lb1 F：Z-Z[12]→K：If A0：Then -1→H：Else 1→H：IfEnd 第13步 ((Z-Z[12])-0.5×S)÷R×180÷π→Z[32] 第14步 F+Z[32]×H→Z[33]：R×Sin(Z[32])+Z[7]→Z[34]：R×(1-Cos(Z[32]))+Z[5]→Z[35] 第15步 Z[18]+Z[34]×Cos(F)-H×Z[35]×Sin(F)+P×Cos(Z[33]+Q)→X 第16步 Z[19]+Z[34]×Sin(F)+H×Z[35]×Cos(F)+P×Sin(Z[33]+Q)→Y：Z[33]→Z[27] 第17步 Goto 3：Lb1 G：Z[16]-Z→M：If A0：Then -1→H：Else 1→H：IfEnd 第18步