#
#
#
本程序由4800程序改编而成,网上有5800积分通用公式,但由坐标反算里程及边距时很慢,本程序大大提高了反算速度。1 主程序(TYQXJS)Lbl 4: = XY: = SZ:?N:?S:Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 = Goto1: Goto2:↙Lbl 1: Z: Abs(S-O) →W:Prog SUB1: XS=:X◢
曲線任意里程中边桩正反算5800p TYQXJS(主程序名)LbI 0:4→Dimz:Cls→XY→SZ→N:ClsXOU: YOV: SOO:FOG: LSH: ROP:RNR:Q1÷P→C:(P-R)÷(2HPR) →D:180÷π→EN=2=>Goto 2LbI 1:Cls:S:Z:Abs(S-O)→WProgSUB1:ClsXS=:X◢YS=:Y◢FS=:F-90 ?DMS◢Goto 1L
上海市宾宏建筑安装工程有限第 7页 共 NUMS 7页 CASIOfx-5800P公路坐标正反计算程序程序说明因测量工作需要,为了确保计算器丢失后程序丢失造成的不便。根据本人多年工作经历、自学摸索,经多次修改后编制此公路坐标正反算程序,为了能够与广大测量弟兄及编程高手们学习的原望。现将此程序发表共享,有错误或不足之处还请朋友们交流指导为谢!为了便于编制、阅读和输入,本程序共拆分为两个主
U:XO起点的X坐标V:YO起点的Y坐标O:SO起点的里程桩号G:FO起点的方位角H:LS计算段线元的长度P:RO线元起点的曲率半径R:RN线元终点曲率半径Q 线元图形信息(直线段Q=0左偏Q=-1右偏Q=1)以道路中线前进方向(即大里程方向)区分左右DY=ZB:LC:输入1为正算既输入里程桩号和偏距算坐标输入2为反算既输入坐标算里程桩号和偏距S:LCS:待求点的里程桩号Z:PJZ:待求点的里程偏
目录一坐标正算基本公式………………………………………………………02二坐标反算原理………………………………………………………04三高程数据库录入变换…………………………………………………05四计算器程序………………………………………………………0701ZBZS(坐标正算)………………………………………………………0702ZBFS(坐标反算)………………………………………………………0803G
#
卡西欧5800坐标正反算程序主程序(TYQXJS)Lb1 4:=>XY:=>SZ:N:S:ProgSUB0 ↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=>Goto 1:Goto 2: ↙Lb1 1:Z:Abs(S-O) →W: ProgSUB1:XS=:X◢YS=:Y◢F-90→F:FS=F▲DMS◢ Goto 4↙Lb1 2:X:Y:X→I:Y→J:ProgSUB2:OW
违法有害信息,请在下方选择原因提交举报