圆曲线超高加宽计算程序.doc

圆曲线超高加宽计算程序
平曲线加宽类别分为:四级公路不设缓和曲线而用超高加宽缓和段代替及平曲线半径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--B→Z[1]:U-→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--B→Z[11]:V-→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←┚
F<List X[1]=>Break←┚
F>List X[6]=>Break←┚
F>List X[3] And F<List X[4]=>Break←┚
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