casiofx-5800p线元法坐标正反算程序v0.doc

CASIOfx-:本程序适用于卡西欧计算器CASIOfx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型,包含(直线、圆曲线、缓和曲线、卵形曲线)等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。主程序名:ABCYT第1步Deg:Fix3:10→DimZ第2步Lbl3:"=>XY":"=>DK":"Q"?W:"DK"?S:Prog"ABCYTSJ":IfP=0:Then10^(45)→P:IfEnd:IfR=0:Then10^(45)→R:IfEnd第3步1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:IfW=1:ThenGoto1:ElseGoto2:IfEnd第4步Lbl1:"W"?Z:"α"?N:Abs(S-O)→W:Prog"ABCYTZ"第5步Cls:"F=":Locate3,1,F°:"X=":Locate3,2,X:"Y=":Locate3,3,Y◢第6步Prog"ABCYTSQX":Cls:"H=":Locate3,1,H◢第7步1→W:90→N:Goto3第8步Lbl2:?X:?Y:X→I:Y→J:Prog"ABCYTF":O+W→S第9步Cls:"K=":Locate3,1,S:"S=":Locate3,2,Z◢第10步2→W:Goto3正算子程序名:→A:→B:→K:→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步Lbl2:(S-O)→W:0→Z:Prog"ABCYTZ":F-90→Z[9]:(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10]第2步IfAbs(Z[10])>:ThenS+Z[10]→S:Goto2:ElseGoto1:IfEnd第3步Lbl1:(Y-J)÷sin(Z[9])→Z第4步Pol(X-I,Y-J):IfZ<0:Then-1×I→Z:Else1×I→Z:IfEnd数据库名:ABCYTSJ第1步Goto1第2步Lbl1:IfS<>:ThenCls:Locate2,2,"PQX":Locate4,3,"CHAOXIAN":Locate10,4,"→Stop"◢第3步Stop:IfEnd第4步Lbl1:IFS<:Then98°56′56″→G:→o:→U:453648.