计算器全线标计算放样程序(修改第三版).doc

计算器全线标计算放样程序(修改第三版).doc

ID:55716709

大小:68.00 KB

页数:11页

时间:2020-05-26

计算器全线标计算放样程序(修改第三版).doc_第1页
计算器全线标计算放样程序(修改第三版).doc_第2页
计算器全线标计算放样程序(修改第三版).doc_第3页
计算器全线标计算放样程序(修改第三版).doc_第4页
计算器全线标计算放样程序(修改第三版).doc_第5页
资源描述:

《计算器全线标计算放样程序(修改第三版).doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、5800计算器全线坐标计算放样程序(修改第三版)5800计算器全线坐标计算放样程序(修改版)“XLZBJSCX”◢LB1  0↙CLS:FIX4:30→DIMZ↙“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y)0l(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视方位角)LB1  1↙“K=”?K◢(计算里程)IF  K<本段曲线终点里程  AND  K≥上段曲线终点里程:THEN  本段终点里程→Z[1]:上段曲线终点里程→Z[2]:1→0(注:左偏曲线输入-1→0,右偏

2、曲线输入1→0):偏角→A:半径→R:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:G0T0  2:IFEND↙…………(曲线段分段输入)补充直线段输入如下IFK<本段直线终点里程AND  K≥本段直线起点里程:THEN1→0:本段直线终点里程→Z[2]:终点X→Z[16]:终点Y→Z[11]:方位角→E:G0T04:IFENDLB1  2↙(曲线要素计算)Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙  (M1)Z[7]/2-Z[6]^3/(240*R^2)+Z[7]^

3、5/(34560*R^4)→Z[9]↙  (M2)Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙  (P1)Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙  (P2)π*A*R/180+0.5*(Z[3]+Z[2])→W↙  (曲线总长)90*Z[6]/(R*π)→Z[14]↙  (第一缓和曲线总偏角)90*Z[7]/(R*π)→Z[15]↙(第二缓和曲线总偏角,可以省略)Z[8]+(R+Z[10])TAN(A/2)-(Z[11]-Z[11])/SINA→Z[11]↙  (切线T1)Z[9]+(R+Z[12])TAN(A/2)+(Z[

4、10]-Z[12])/SINA→Z[12]↙  (切线T2)B+Z[12]*C0S(E+180)→Z[13]↙  (ZH点X)C+Z[12]*SIN(E+180)→Z[15]↙  (ZH点Y)Z[1]-S→Z[3]↙    (ZH点里程)Z[3]+Z[6]→Z[4]↙  (HY点里程)Z[1]-Z[7]→Z[5]↙  (YH点里程)G0T03↙LB1  3↙(判断里程点与曲线关系)IF  K≤Z[3]  AND  K>Z[2]:THEN  G0T0  4:IFEND↙IF  K≤Z[4]  AND  K>Z[3]:THEN  G0T0  5:IFEND↙IF  K≤Z[5]  AND  K>Z

5、[4]:THEN  G0T0  6:IFEND↙IF  K≤Z[1]  AND  K>Z[5]:THEN  G0T0  7:IFEND↙LB1  4↙(里程小于直缓点直线独立坐标)K-Z[3]→X:0→Y:E→T:PR0G“TYZBCX”:G0T0  1↙LB1  5↙(第一缓和曲线独立坐标)K-Z[3]→H↙H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→X↙H^3/(6*R*Z[6])-H^7/(3362*R^3*Z[6]^3)→Y↙90*H^2/(R*π*Z[6])→T↙IF  0>0  :THEN  T+E→T:ELSE  E-T→T:T<0=>

6、360+T→T:IFEND↙PR0G“TYZBCX”:G0T0  1↙LB16↙(圆曲线独立坐标)K-Z[4]→H↙H*180/(R*π)+Z[14]→T↙R*SINT+Z[8]→X↙R*(1-C0ST)+Z[13]→Y↙IF  0>0  :THEN  T+E→T:ELSE  E-T→T:T<0=>360+T→T:IFEND↙PR0G“TYZBCX”:G0T0  1↙LB17↙(第二缓和曲线独立坐标)Z[1]-K  →H↙H-H^5/(40*R^2*Z[7]^2)+H^8/(3456*R^4*Z[4]^4)→U↙H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙90*

7、H^2/(R*π*Z[7])→T↙Z[13]C0SA+Z[12]-U*C0SA-V*SINA→X↙Z[13]*SINA-U*SINA+V*C0SA→Y↙IF  0>0  :THEN  F-T→T:T<0=>360+T→T:ELSE  F+T→T:IFEND↙PR0G“TYZBCX”:G0T0  1↙子程序:“TYZBCX”↙  (统一坐标计算)IF  0<0  :THEN  -Y→Y:IFEND↙

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。