5800计算程序可计算任意桩号坐标及高程.docVIP

5800计算程序，可计算任意桩号坐标及高程。 一、程序功能????????本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。??二、源程序增加变量18→DimZ1.主程序(ZHUCHENXU)1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO ？N：Lbl 1：”ZHUANGHAO=”?S： Prog SUB3： N≥2=Goto 2： Abs(S-O)→W：”BIANZHU=”?→Z:Prog SUB1：ProgSUB4：“H=”H◢ XS=”:X→X◢YS=”:Y→Y◢FS=”:(F-90) →F:F?DMS◢ Goto1Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog SUB2： S=:(O+W) →S◢Z=Z→Z◢ Z→Z[17] :If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfE