设为首页收藏本站

路桥隧 - 免费·分享·共赢

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

打印 上一主题 下一主题
开启左侧

“缓+圆+缓”型曲线坐标计算4800程序

[复制链接]
跳转到指定楼层
1
发表于 2005-3-6 15:39:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

“缓+圆+缓”型曲线坐标计算4800程序

主程序(QXJS) 程序清单: AbsJ"FixmC=>"=7=>Fixm:Goto 1△Norm:Prog“BQXYS”:Q“K-ZH”:F“ZHX=”:G“ZHY=”:N“FZH”:Fix4┛ Lab 1:Fixm:{KD}:Goto2┛ Lab 2:K<Q => Goto3:≠> Goto4┛ Lab 3:“K—OVER”: Goto1┛ Lab 4:K>Q+L => Goto3:≠> Goto5┛ Lab 5:K≤Q+B => Goto6:≠> Goto7┛ Lab 6:S=K-Q:W=B:Prog “HQXY”:O=N+I×90S2÷(Л RB):O<0 => O=O+360⊿O>360 => O=O-360⊿J=O“FANGWEI” =IntO+.01Int(60FracO)+.006Frac(60FracO)◢ X=UcosN-VsinN+F+D×cos(J+90) ◢ Y=VcosN+UsinN+G+D×sin(J+90) ◢ Goto1┛ Lab 7:K≤Q+L-C => Goto8:≠> Goto9┛ Lab 8:S=K-Q:O=N+I×90(2S-B)÷(Л R):O<0 => O=O+360⊿O>360 => O=O-360⊿J=O“FANGWEI”=IntO+.01Int(60FracO)+.006Frac(60FracO)◢ Prog “YQXY”:X=UcosN-VsinN+F+D×cos(J+90) ◢ Y=VcosN+UsinN+G+D×sin(J+90) ◢ Goto1┛ Lab 9: S= Q+L-K:W=C:Prog “HQXY”:E=N+IA+180:O=E-I×90S2÷(Л RC)+180:O<0 => O=O+360⊿O>360 => O=O-360⊿J=O“FANGWEI”=IntO+.01Int(60FracO)+.006Frac(60FracO)◢ V=-V┛ X=(U-H)cosE-VsinE+F+T cosN+D×cos(J+90) ◢ Y=VcosE+(U-H)sinE+G+T sinN+D×sin(J+90) ◢ Goto1┛ 子程序“BQXYS” I”P(L-1,R+1)”:A“Jao”:R:B“L01”:C“L02”┛ M“M1”=B÷2-B3÷(240 R2)◢ J“M2”=C÷2-C3÷(240 R2)◢ P“P1”= B2÷(24 R)- B4÷(2688 R3)◢ Z“P2”= C2÷(24 R)- C4÷(2688 R3)◢ T“T1”=M+(R+P)tan(A÷2)+(Z-P) ÷sinA◢ H“T2”=J+(R+Z)tan(A÷2)+( P-Z) ÷sinA◢ L= B÷2+C÷2+A RЛ÷180◢ E=sqr((R+P)平方+(T-M)平方)-R ◢ 子程序“HQXY” U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4):V=I×(S3÷(6RW)- S7÷(336 R3 W3)) 子程序“YQXY” U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P) 程序说明:本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角 (角度已经过度分秒改化)。 先将主、子程序存入计算器,然后运行主程序“QXJS”,当曲线为左偏时(L-1,R+1)输-1,右偏输1,输入Jao(曲线偏角),曲线半径R,第一缓和曲线长L01,第二缓和曲线长L02,(等长缓和曲线时L01= L02),然后显示曲线逐要素,接着输入ZH坐标(ZHX,ZHY),ZH到JD坐标方位角FZN,输入计算里程K,外移距离D,计算中桩时D输0,计算左边桩时D输负数,算右边桩时D输正数,当所输里程不在本曲线计算范围内时,屏幕显示K—OVER,继续输入有效里程可继续计算。 对于单圆曲线缓和曲线长输入0。 对于半径小于100的匝道曲线应将缓和曲线坐标的多项式多加2项,本程序只取了3项,一般5项满足小半径要求

感谢幽灵友情提供!

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友 微信微信
收藏收藏 分享分享 支持支持 踩
2
发表于 2007-6-23 22:05:17 | 只看该作者

新手求教

楼主,本人水平有限,可以把有些特殊符号说明下吗,看我我头大死了,好多符号4800上我找不到 可以解释下吗?谢谢
3
发表于 2007-6-23 22:13:45 | 只看该作者

新手求教

象GOTO 7 后面上角跟的是不是回车键啊,还有,请问一句外行话了,就是曲线右偏左偏是不是沿着线路前进方向的转右既右偏,转左既左偏吗?
4
发表于 2007-6-23 22:17:35 | 只看该作者
白三角形,和黑三角形,我怎么找不到啊
5
发表于 2007-7-10 10:51:00 | 只看该作者
啥东西.怎么看不懂啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|【路桥隧】 ( 湘ICP备16018960号-1 )  QQ群:【路桥吾爱-lq52.com】

GMT+8, 2024-11-25 04:36

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表