CASIO fx-800P 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步