圆曲线超高加宽计算程序
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
圆曲线超高加宽计算程序
平曲线加宽类别分为：四级公路不设缓和曲线而用超高加宽缓和段代替及平曲线半径R≤250M时两种情形。
程序说明：能计算双圆复曲线ZY点与YZ点的加宽值，单圆曲线是双圆复曲线在R1=R2时的特例,”r”的输入：FUNCTION—5--2
程序名：YQXJK（圆曲线加宽）
Deg:Fix 3:FreqOff←┚
“NEW(0),OLD(≠0)DATA=”?→O←┚
O≠0=》Goto 0:ClrStat←┚
“ZY K=”?Z:”YZ K=”?Y←┚
“R1=”?U:”R2=”?V←┚
“L=”?L←┚
“W=”?W:”+W=”?B←┚
100→DimZ←┚
U-0.5W-B→Z[1]:U-0.5W→Z[2] ←┚
厂（Z[2]2+L2-Z[1]2）→Z[3] ←┚
tan-1((Z[2]Z[3]-Z[1]L)÷（Z[1]Z[2]+Z[3]L）)→Z[4] ←┚πZ[4]U÷180→Z[5] ←┚
V-0.5W-B→Z[11]:V-0.5W→Z[12] ←┚
厂（Z[12]2+L2-Z[11]2）→Z[13] ←┚
tan-1((Z[12]Z[13]-Z[11]L)÷（Z[11]Z[12]+Z[13]L）)→Z[14] ←┚
πZ[14]V÷180→Z[15] ←┚
Z-L→List X[1] ←┚
Z→List X[2]:Ltan(Z[4])→List Y[2] ←┚
Z+Z[5]→List X[3]:B→List Y[3] ←┚
Y-Z[15]→List X[4]:B→List Y[4] ←┚
Y→List X[5]:Ltan(Z[14])→List Y[5] ←┚
Y+L→List X[6] ←┚
“CAN SHU YES(1),NO(≠1)=”?C←┚
C≠1=>Goto 0←┚
“t1(DMS)=”:Z[4]▲DMS⊿
“t2(DMS)=”:Z[14]▲DMS⊿
“LJ1=”:Z[5]⊿
“LJ2=”:Z[15]⊿
“ZY+JIA KUAN=”:List Y[2]⊿
“YZ+JIA KUAN=”:List Y[5]⊿
Lbi 0:6→K←┚
Do:”+K,<0=>END=”?→F←┚
FBreak←┚
F>List X[6]=>Break←┚
F>List X[3] And FBreak←┚
If F≥List X[1]And F≤List X[2] ←┚
Then F-List X[1]→Q←┚
Qtan(Z[4])→G：Goto 1:IfEnd←┚
If F>List X[2]And F≤List X[3] ←┚
Then List X[3]-F→Q←┚
（Q÷U）r→A：Z[12]-Z[11]÷cos(A)→G←┚Goto 1:IfEnd←┚
If F>List X[5]And F≤List X[6] ←┚
Then List X[6]-F→Q←┚
Qtan(Z[14])→G:”IfEnd←┚
Lbi 1:”+JIA KUAN=”:G⊿
LpWhile F>0←┚
“YQXJK=>END”
程序输入方法如下：
NEW(0),OLD(≠0)DATA=? 输入0为重新输入数据ZY K=? 直圆点桩号
YZ K=? 圆直点桩号
R1=？输入第一圆曲线半径
R2=？输入第二圆曲线半径
L=？输入超高加宽缓和段长W=？输入路宽
+W=？输入加宽值
CAN SHU YES(1),NO(≠1)=? 输入1或者其它显示参数t1(DMS)= 显示参数1
t2(DMS)= 显示参数2
LJ1= 显示参数3
LJ2= 显示参数4
ZY+JIA KUAN= 显示ZY点的加宽值
YZ+JIA KUAN= 显示YZ点的加宽值
+K,<0=>END=? 输入加桩号（负数结束程序运行）+JIA KUAN= 显示第一个加宽值。。。。。。。。。
+K,<0=>END=? 输入负数结束程序运行