5800计算器全线坐标计算放样正反算程序.doc

上传人:小****库 文档编号:4403464 上传时间:2021-09-16 格式:DOC 页数:3 大小:32KB
返回 下载 相关 举报
5800计算器全线坐标计算放样正反算程序.doc_第1页
第1页 / 共3页
5800计算器全线坐标计算放样正反算程序.doc_第2页
第2页 / 共3页
亲,该文档总共3页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述

《5800计算器全线坐标计算放样正反算程序.doc》由会员分享,可在线阅读,更多相关《5800计算器全线坐标计算放样正反算程序.doc(3页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、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 :1O (注:左偏曲线输入-1O,右偏曲线输入1O): 半径

2、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 : THENGOTO7 : IFEND LB14 (里程小于直缓点直线独立坐

3、标)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)+ Z10Z24 IFO0:THENT +ET : ELSEE-T

4、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- Z24Z24 : IFEND Z16+Z23*COS E-Z24*

5、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-Z19)*Cos W-(X-Z18)*Sin W)QIfQ0

6、.0001 :Then QS: Goto4:Else IFQS:THENK-QK:Goto2:Ifend:Ifend:IfendLb14Pol (X-Z18,Y-Z19:JJ+360J:(J-T)-IIDP(-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=” :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

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 技术资料 > 技术总结

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁