《5800计算器全线坐标计算放样正反算程序》由会员分享，可在线阅读，更多相关《5800计算器全线坐标计算放样正反算程序（28页珍藏版）》请在金锄头文库上搜索。
1、5800计算器全线坐标计算放样正反算（定稿）5800计算器全线坐标计算放样正反算程序（定稿）彭赐明主程序坐标正反算程序名称：ZBZFSLB1ACls : Fix 4 : 30Dim Z :0=ZS,1=FS?Z IfZ=0:ThenGoto B:IfEnd(Z=0进入里程点坐标正算）IfZ=1:ThenProgFSLCBZ : Goto A:IfEnd(Z=1进入反算里程边桩）Lb1 B“K=”?K ：（计算里程） ProgSJK1 :Prog”ZBFY” :Goto A子程序数据库SJK1IFK本段曲线终点里程ANDK上段曲线终点里程 ：THEN本段终点里程Z1 : 上段曲线终点里程Z2 ：
2、1O （注：左偏曲线输入-1O,右偏曲线输入1O）: 半径R : 曲线偏角A:第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : Prog”XLZBJSCX”:Return: IFENDIFProg”XLZBJSCX”:Return:IFEND（曲线段分段输入）补充直线段输入如下(单独直线段）IF K Z2 : THENGOTO4 : IFEND IFKZ4ANDK Z3 : THENGOTO5 : IFEND IFKZ5ANDK Z4 : THENGOTO6 : IFEND IFKZ1ANDK Z5 : THENGOT
3、O7 : IFEND LB14 （里程小于直缓点直线独立坐标）K- Z3 Z23 : 0Z24 : ET : GOTO8LB15 （第一缓和曲线独立坐标）K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) Z23 H3/(6*R* Z6)-H7/(336*R3* Z63) Z24 90*H2/( R* Z6) T IFO0：THENT +ET : ELSEE-T T : T360+TT : IFEND GOTO 8 LB1 6 （圆曲线独立坐标）K- Z4 H H*180/( R*)+ Z14T R*SIN T+ Z8Z23 R*(1-COS T)+ Z10
4、Z24 IFO0：THENT +ET : ELSEE-T T : T360+TT : IFEND GOTO 8 LB1 7 （第二缓和曲线独立坐标）Z1 -KH H-H5/(40*R2* Z72)+H9/(3456*R4* Z74) UH3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS A+ Z12-U*COS A-V*SIN AZ23 Z13*SIN A-U*SIN A+V*COS AZ24IFO0：THENF-TT : T360+TT : ELSEF+T T : IFEND GOTO8 LLb1 8IFO0: THEN- Z24Z
5、24 : IFEND Z16+Z23*COS E-Z24*SIN EZ18 Z17+Z23*SIN E+Z24*COS EZ19 ReTurn子程序反算里程边桩，名称：FSLCBZLb11XK=?X:YK=?Y（输入任意测点的XY坐标）:“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb12ProgSJK1 :T-90 W:W360+WW:Abs(Y-Z19)*Cos W-(X-Z18)*Sin W)SIfS0.0001:ThenGoto4:ElseGoto 3:IfendLb13K+SK: ProgSJK1:T-90 W:W360+WW:Abs(Y-Z
6、19)*Cos W-(X-Z18)*Sin W)QIfQ0.0001 :Then QS: Goto4:Else IFQS:THENK-QK:Goto2:Ifend:Ifend:IfendLb14Pol (X-Z18,Y-Z19:DP(-Z+Y)=:I(偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右边判定）K=:K+SK（里程）Return子程序坐标放样：ZBFYLB10 “XHS=?G(后视点X):YHS=?L(后视点Y):XZJ=?M(置镜点X):YZJ=?N(置镜点Y):Pol(G-M,L-N):DH=:I(后视距)JJ+360J:FH=:JDMS(后视方位角) “QXJ=
7、” :T（计算里程点切线方位角，可以不显示）“XI=” : Z18 （中线X）“YI=” : Z19 （中线Y）Pol(Z18-M,Z19-N):DI=:I（中桩放样距）JJ+360J:FI=:JDMS（中桩放样方位角）“PJ=”?P (输入边桩与线路夹角，左-右+)“PD=”?D（输入边桩距）Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”: Z20 （边桩X）“YP=”: Z21 （边桩Y）Pol(Z20-M,Z21-N):DP=:I（边桩放样距）JJ+360J:FP=:JDMS（边桩放样方位角）Return回复内容只查看楼主与本人回复沙发：1209-
8、4-11 22:26 回不经意间我就连续点击了12次2 楼：ouzhigang09-4-12 21:44 回学习学习,我没用过5800.求教了3 楼：lxmf109-4-12 22:44 回等待ing4 楼：nut09-4-13 8:41 回评：+10 分期待彭工的该程序早日出炉，支持！6 楼：longfengshan09-4-13 19:27 回评：+8 分优势互补，支持共享7 楼：彭军09-4-13 23:46 回彭工你好这个程序如果再弄一下就非常完美了。计算边桩的程序能不能再改一改，然后加个判断语句，比喻在小半径曲线上（一头跨径大一头跨径小）要求曲桥直做或曲桥曲做，边桩如何修正偏移值？8
9、 楼：彭赐明 楼主 09-4-15 20:44 回评：+10 分4月15日完成最终修改了，计算速度也可以了9 楼：徐长龙09-4-16 14:38 回评：+2 分Fix符号在那里找啊 ？10 楼：徐长龙09-4-16 14:39 回评：+10 分楼主QQ多少啊我有好多问题想问你11 楼：彭赐明 楼主 09-4-16 18:39 回有问题请说，FIX按SHIFT加MODE可以找到（第6个），输入程序前请熟读说明书12 楼：zzq028809-4-17 0:26 回评：+10 分很好13 楼：公路09-4-18 7:14 回有断链怎么呀？楼主？14 楼：彭赐明 楼主 09-4-18 14:17 回
10、看是长链还是短链，在直线上还是在曲线上15 楼：zzq028809-4-19 1:0 回都没发现你在哪赋予值给J啊？Pol(Z18-M,Z19-N):DI=:I（中桩放样距）JJ+360J:FI=:JDMS我用就出错了？这是为啥啊16 楼：黄老邪09-4-19 2:22 回子程序反算里程边桩，名称：FSLCBZLb11XK=?X:YK=?Y（输入任意测点的XY坐标）:“K=”?K （貌似这个应该在最后.)还有本段Lb14Pol (X-Z18,Y-Z19（这块最后也少了一个括号吧？）运算主程序ZBZFS时候，出现输入：“XHS=”之后就提示“Syntax ERROR”，按返回光标就出现在：子程序坐标放样：ZBFYLB10 “XHS=?G(后视点X):YHS=?这个Y后面是怎么回事？请彭工检查一下
