缓和曲线计算机编程,缓和曲线起点

相关文献

在高速公路工程建设中 ,往往会遇到这样的问题 :在计算或内插路线中缓和曲线坐标时 ,有时该段缓和曲线的起点不是整个缓和曲线的起点 ,而且连接两端曲率半径较小。利用一般的计算器计算缓和曲线的坐标时往往出现计算复杂、不准确、精度不够等缺点。在长期的工程实践中 ,我们根据该型缓和曲线的特点 ,编写了一套程序 ,该程序具有运算准确可靠、实用性强等特点。该程序适用于任何能运行BASIC语言的袖珍计算机 ,如PC - 15 0 0 ,E5 0 0 -SCP及个人计算机上。本程序分两段 ,一段计算缓和曲线的起点坐标及起点的切线方位角 ,另一段则计算缓和曲线上任一点的坐标 ,具体如下 :   10 :INPUT“L =” ;L ,“A =” ;A ,“R1=” ;R1,“R2 =” ;R2 ,“X1=” ;X1,“Y1=” ;Y12 0 :INPUT“C =” ;C30 :C =DEGC4 0 :Ls=A×A/R25 0 :D =Ls -L6 ...

(本文共3页)

阅读全文>>

在高速公路工程建设中,往往会遇到这样的问题:在计算或内插路线中缓和曲线坐标时,有时该段缓和曲线的起点不是整个缓和曲线的起点,而且连接端曲率半径较小.利用一般的计算器计算缓和曲线的坐标时往往出现计算复杂、不准确、精度不够等缺点.在长期的工程实践中,我们根据此类缓和曲线的情形,编写了一套程序,该程序具有运算准确可靠、实用性强等特点.该程序适用于任何能运行BASIC语言的袖珍计算机,如PC-1500(1),E500-S(P)及个人计算机上.本程序分两段,第一段计算缓和曲线的起点坐标及起点的切线方位角,第二段则计算缓和曲线上任一点的坐标.程序具体如下:1第一段程序计算缓和曲线的起点坐标及起点的切线方位角10:INPUT“L=”;L,“A=”;A,“R1=”;R1,“R2=”;R2,“X1=”;X1,“Y1=”;Y120:INPUT“C=”;C30:C=DEGC40:Ls=A×A/R250:D=Ls-L60:E=A2/R1-A6/40/R...

(本文共2页)

阅读全文>>

前言1程序中涉及的几个概念说明1.1线路正算:根据里程和到中桩的左右偏距,求坐标。1.2偏距:系指线路某点在法线方向偏离线路中线的距离。直线上垂直于线路方向,曲线上垂直于切线方向。1.3主程序名称“:MG-ZB”Lbl 3“:DKI”?K:Pro“gDAT-M”:Pro“gGBZS”坻Goto3坻注:(DAT-M与数据库程序“DAT-M”对应)1.3.1子程序1:程序名“GBZS”Lbl 0:(P-R)÷(2(H-O)PR)→D:“L(-ZUO+YOU)”?L:“YJJ”?M:Abs(K-O)→J:Pro“gSUB1”:F-M→F“F=”:F襍DMS襊“X=”:U→X襊“Y=”:V→Y襊◢1.3.2子程序2:程序名“SUB1”4→DimZ:0.1184634425→A:0.2393143352→B:0.2844444444→Z[4]:0.0469100770→C:0.2307653449→E:0.5→Z[1]:I+J(ACos(...

(本文共1页)

阅读全文>>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
5800缓和曲线程序清单 Deg:Fix4:9→DimZ “XJD=”?C:”YJD=”?D:”FWJ=”F:”ZXJ=”?K:?R:”LH==”?W:”ZHLC=”?M “P=”:L2/(24R)-L∧(4)/(2688R∧(3)) →P◢ “Q=”:L/2-L∧(3)/(240R2) →Q◢ “E=”:(R+P)/(cos(Abs(K))/2) →E◢ “T=”:(R+P)tan((Abs(K))/2)+Q→T◢ “S=”:(л/180)*R*(Abs(K))+L→S◢ If F≥180:Then F-180→Z[1]:Else 180+F→Z[1]:IfEnd C+T*cos(Z[1]) →Z[3] D+T*sin(Z[1]) →Z[4] Lbl 1 “CDLC=”?Z “LJK=”?V Z-M→U If K≥0:Then V→Z[2]:Else (-V)→Z[2]:IfEnd If Z[2]≤0:Then Z[5]→Z[2]:Else If U<0:Then Z[5]→Z[2]:Else If U≤L:Then Z[2]+(U/L)*W→Z[5]:Else If U<S-L:Then Z[2]+W→Z[5]:Else If U≤S:Then Z[2]+((S-U)/L)*W→Z[5]: Else Z[2]→Z[5]:IfEnd: IfEnd: IfEnd: IfEnd: IfEnd If U<0:Then Goto 3:Else If U≤L:Then Goto 4: Else If U<S-L: hen Goto 5 Else If U≤S: Then Goto 6:Else Goto 7:IfEnd: IfEnd: IfEnd: IfEnd Lbl 2 If K<0:Then Z[8]=-Z[8]: IfEnd “X=”: Z[3]+ Z[7]*cos(F)- Z[8]*sin(F)→X◢ “Y=”: Z[4]+ Z[7]*sin(F)+ Z[8]*scos(F)→Y◢ If K<0:Then F-Z[1]→H:Else F+Z[1]→H:IfEnd If H<0:Then H+360→H:Else If H≥360:Then H-360→H: IfEnd: IfEnd “QXFWJ=”:H◆DMS◢ Goto 1 Lbl 3:”ZX1” Z[1]→0 Z[7]→U Z[8]→Z[5] Goto 1 Lbl 4:”HH1” 90U2/(лRL)→Z[1] U-U∧(5)/(40 R2 L2)+U∧(9)/(3465R∧(4) L∧(4))-Z[5]*sin(Z[1])→Z[7] U∧(3)/(6RL)-U∧(7)/(336R∧(3)L∧(3))+ U∧(11)/(42240 R∧(5)L∧(5))+ Z[5]*cos (Z[1])→Z[8] Goto 2 Lbl 5:”YQ” 90(2U-L)/(лR)→Z[1] Rsin(Z[1])+Q-Z[5]*sin(Z[1])→Z[7] R(1-cos(Z[1]))+P+Z[5]*cos(Z[1])→Z[8] Goto 2 Lbl 6:”HH2” (S-U)-(S-U) ∧(5)/(40 R2 L2)+(S-U) ∧(9)/ (3465R∧(4)L∧(4))→Z[6] (S-U) ∧(3)/(6RL)-(S-U) ∧(7)/(336R∧(3)L∧(3))+(S-U) ∧(11)/ (42240R∧(5)L∧(5))→Z[9] Abs(K)-90*(S-U) 2/(лRL)→Z[1] T+(T-Z[6])*cos(Abs(K))-Z[9]*sin(Abs(K))-Z[5]*sin(Z[1])→Z[7] (T-Z[6])*sin(Abs(K))+Z[9]*cos(Abs(K))+Z[5]*cos(Z[1]) →Z[8] Goto 2 Lbl 7:”ZX2” Abs(K)→Z[1] T+(U-S+T)*cos(Z[1])- Z[5]*sin(Z[1])→Z[7] (U-S+T)*sin(Z[1])+Z[5]*cos(Z[1])→Z[8] Goto 2

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值