5800计算器全线坐标计算放样正反算程序.doc
《5800计算器全线坐标计算放样正反算程序.doc》由会员分享,可在线阅读,更多相关《5800计算器全线坐标计算放样正反算程序.doc(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”,按返回光标就出现在:子程序
11、坐标放样:ZBFYLB10 “XHS=?G(后视点X):YHS=?这个Y后面是怎么回事?请彭工检查一下好么?问题是我输入错误还是语句有问题呢?17 楼:彭赐明 楼主 09-4-19 7:11 回评:-10 分16楼:XK=?X:YK=?Y(输入任意测点的XY坐标):“K=”?K (貌似这个应该在最后.),Y后面的应该在K后面。一般情况下括号必须扩全,有时也可以省略,比如Pol (X-Z18,Y-Z19:即可。YHS=?,是 L,请核对。15楼:Pol()和Rec()是极坐标和直角坐标转换,转换值计算器存在默认的变量I,J上。DMS是单独一个符号,计算器里有,FUNCTION键加5键加4键可以找
12、到。18 楼:贵广09-4-19 7:48 回圆曲线上和直线都有,圆曲线是长链。直线是短链。19 楼:彭赐明 楼主 09-4-19 8:18 回直线短链要将该直线分成二条直线来对待编制数据库文件即可,曲线长链要单独建判定语句子程序并然后编制二个数据库(按来向里程和去向里程分别推出曲线起终点里程,以此编制曲线段的数据库)。20 楼:nut09-4-19 9:45 回彭工,你好,我这里有个4800的程序要改成5800,我每次修改都会在这个地方出现MATH ERROR,能帮我改下吗?谢谢!4800源程序(部分)为:T=M+(R+P)tan(Z10/2):K=Z5-180:KK=K+360:Z12=Z
13、1+Rec(T,K:Z13=Z2+J:K=Z6:Z14=Z1+Rec(T,K:Z15=Z2+J:Z16=Z3-T:Prog12在该语句运行到Rec(T,K _处出现“math error,不知道什么原因,我猜可能是K值超出范围了,但是为什么在4800程序中它又没有出界呢?请老师指点!谢谢21 楼:黄老邪09-4-19 10:44 回评:+10 分几乎整了一晚上,没想到彭工那么早就解答了.感动ing我估计还是我的数据库输入有问题,计算出来好像不是那么回事啊?麻烦你看一下我的数据库输入:JD24 桩号K78+788.249(X:29435.524,Y:73399.211),转角右291215.8;
14、半径1700;缓和曲线LS1=LS2=226.118;本段曲线终点桩号K79+324.623;上段曲线终点里程:K78+231.994小里程向交点方位角2333914.2;交点向大里程方位角2625129.9JD25 桩号K81+291.129(X:29121.886,Y:70896.022),转角左440959.3;半径1200;缓和曲线LS1=LS2=154.083;本段曲线终点桩号K81+806.007;上段曲线终点里程:K79+324.623;小里程向交点方位角2625129.9;交点向大里程方位角2184130.7输入5800是否:If K79324.623ANDK78231.994
15、 :THEN79324.623Z1 :78231.994Z2 :1O : 1700R : 291215.8A:226.118Z6:226.118Z7 : 29435.524B :73399.211C: 2333914.2E : 2625129.9F: Prog”XLZBJSCX”:Return: IFENDIf K81806.007ANDK79324.623 :THEN81806.007Z1:79324.623Z2 :-1O:1200R : 440959.3A:154.083Z6:154.083Z7:29121.886B :70896.022C :2625129.9E:2184130.7F:
16、Prog”XLZBJSCX”:Return:IFEND以上输入是否有误?请彭工帮忙检查一下,谢谢,感激不尽!22 楼:nut09-4-19 19:57 回40 楼:彭赐明 楼主09-3-26 20:59 回线路末尾直线段的输入改为IF K1358.861 ANDK801.348:THEN 1O:1358.861Z3:4267501.234Z16:385155.025Z17:303-48-18E:GOTO 4:IFEND 请问楼主:在这个程序中线路末尾直线段是怎么输入呀?23 楼:ryrye09-4-20 11:43 回彭工帮忙看看这个程序哪儿有问题5800中边桩坐标计算程序(含数据库)由480
17、0 4850程序直接引用改编ZZZZZZ(主程序)Lb1 1:”NO.I”?H:Prog”Z1”换行(E-D)/Abs(G-F)P: Abs(H-F)Q: PQI换行C(I2D)Q90J换行C(I82D)Q45(4)M换行C(3I82D)Q135(4)N换行C(5I82D)Q225(4)U换行C(7I82D)Q315(4)V换行C(I42D)Q45(2)K换行C(I22D)Q45L换行C(3I42D)Q135(2)Z换行AQ24(cosC4(cosMcosNcosUcosV)2(cosKcosLcosZ)cosJ)X换行BQ24(sinC4(sinMsinNsinUsinV)2(sinKsin
18、LsinZ)sinJ)Y换行“X=”:X“Y=”:Y“W L“?O:WR?R“XL=”:XOcos(J90)“YL=”:YOsin(J90)“XR=”:XRcos(J90)“YR=”:YRsin(J90) Goto 1换行Z1(数据库)If H终点桩号:Then起点桩号F:终点桩号G:起点X坐标A:起点Y坐标B:起点切线方位角C:起点曲率D:终点曲率E: Goto 0:If End换行同上下一个线元要素。N个Lb1 0:Return换行曲率左偏为负右偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。等等需要使用时把主程序Z1改为Z2依次类推NO.I?为要求
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 5800 计算器 全线 坐标 计算 正反 程序
链接地址:https://www.31doc.com/p-3312741.html