CASIOfx5800P线元法坐标正反算程序V20.doc

CASIO fx-
说明:本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型,包含(直线、圆曲线、缓和曲线、卵形曲线)等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。
主程序名:ABCYT
第1步 Deg:Fix 3:10→DimZ
第2步 Lbl 3:"=>XY":"=>DK":"Q"?W:"DK"?S:Prog"ABCYTSJ":If P=0:Then 10^(45)→P:IfEnd:If R=0:Then 10^(45)→R:IfEnd
第3步 1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:If W=1:Then Goto 1:Else Goto2:IfEnd
第4步 Lbl 1:"W"?Z:"α"?N:Abs(S-O)→W:Prog "ABCYTZ"
第5步 Cls:"F=":Locate 3,1,F°:"X=":Locate 3,2,X:"Y=":Locate 3,3,Y◢
第6步Prog"ABCYTSQX":Cls:"H=":Locate 3,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=":Locate 3,2,Z◢
第10步 2→W:Goto 3
正算子程序名:ABCYTZ
第1步 →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步 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])>: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 S< Or S>:Then Cls:Locate 2,2,"PQX":Locate 4,3,"CHAOXIAN":Locate 10,4,"→Stop"◢
第3步 Stop:IfEn