fx-5800p全线坐标正反算带高程计算程序(线元法).doc

曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序
程序功能及原理
:本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通,亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。
:利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异(即Dca×Dcb<0=>该测点在其线元内)进行判断并利用该线元要素反算中桩里程、支距,最后计算出放样数据。
二、源程序
(TYQXJS)
Deg:fix 3
119→DimZ
“INPUT(0) Or DATA(Else)”?I
Lbl 0:“=>XY,=>SZ,=>CK,=>FY,=>FY”?N
If N=1 Or N=5:Then Goto 1
Else If N=2 Or N=3 Or N=4:Then Goto 2
Else Goto 3
IfEnd:IfEnd
Lbl 1:“K(m)=”?S
If S<0:Then Goto 0:IfEnd
“JL(m)=”?Z
If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd
If I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEnd
S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd
Prog “SUB-ZS”:Prog “SUB-GC”
If Z<0:Then“XL(m)=”:X◢
“YL(m)=”:Y◢
If N=5:Then Prog “SUB-TW”:IfEnd
Else If Z>0:Then “XR(m)=”:X◢
“YR(m)=”:Y◢
If N=5:Then Prog “SUB-TW”:IfEnd
Else “X(m)=”:X◢
“Y(m)=”:Y◢
“Hs(m)=”:L◢
“FWJ=”: F►DMS◢
IfEnd:IfEnd
Goto 1
Lbl 2:“X(m)=”?X:If X<0:Then Goto 0:IfEnd
“Y(m)=”?Y
If N=3 Or N=4:Then “H(m)=”?→Z[2]:IfEnd
X→Z[4]:Y→Z[5]:90→M
If I=0:Then Prog “DAT1”
G+QEH(C+HD)→F:1→J:U→Z[8J]:V→Z[8J+1]
G-M→A:F-M→B:Prog “SUB-ZX1”:Goto B
G+M→A:F+M→B:Prog “SUB-ZX1”:Goto B:IfEnd
0→J:Lbl A: Isz J
Z[8J+3]-M→A:Z[8(J+1)+3]-M→B:Prog “SUB-ZX1”
If Z[6]Z[7]<0:Then J→J:Pr