纵坡竖曲线表怎么计算,卡西欧4800p坐标计算程序
说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。
主程序名：ABCYT
第1步 Deg：Fix3：10→DimZ
第2步 Lbl 3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂DK＂?S：Prog＂ABCYTSJ＂：If P=0：Then10^(45)→P：IfEnd：IfR=0：Then 10^(45)→R：IfEnd
第3步 1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If W=1：ThenGoto 1：Else Goto2：IfEnd
第4步 Lbl 1：＂W＂?Z：＂α＂?N：Abs(S-O)→W：Prog＂ABCYTZ＂
第5步 Cls：＂F=＂：Locate 3,1,F°：＂X=＂：Locate3,2,X：＂Y=＂：Locate 3,3,Y◢
第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate3,1,H◢
第7步 1→W：90→N：Goto 3
第8步 Lbl 2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S
第9步Cls：＂K=＂：Locate 3,1,S：＂S=＂：Locate3,2,Z◢
第10步 2→W：Goto 3
正算子程序名：ABCYTZ
第1步0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L
第2步 1-L→F：1-K→M
第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W×D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X
第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W×D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y
第5步G+Q×E×W×(C+W×D)→F：F+N→Z[1
第6步X+Z×cos（Z[1）→X：Y+Z×sin（Z[1）→Y
反算子程序名：ABCYTF
第1步 Lbl 2：（S-O）→W： 0→Z： Prog ＂ABCYTZ＂：F-90→Z[9：(J-Y)×cos(Z[9)-(I-X)×sin(Z[9)→Z[10
第2步 If Abs(Z[10)>0.001：Then S+Z[10→S：Goto 2：Else Goto 1：IfEnd
第3步 Lbl 1：(Y-J)÷sin(Z[9)→Z
数据库名：ABCYTSJ
第1步 Goto1
第2步Lbl 1：If S13346.96：ThenCls：Locate 2,2,＂PQX＂：Locate4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢
第3步Stop：IfEnd
第4步 Lbl 1：IFS