5800“缓+圆+缓”型曲线坐标计算(修改）.docVIP

一. 5800“直+缓+圆+缓+直”型坐标计算 主程序(QXJS) Prog “1”:“K—ZH” ?Q ：”ZHX=”? F ：“ZHY=” ?G ：“TZH—JD” ?N ：“(Y1，Z-1)”?I← Lbl 1: “LICHENG=”?K ：“WAIYI=(Z-，Y+)”?D：Goto2← Lbl 2: if KQ: then Goto3:else Goto4:ifend← if（判断） then（执行） Lbl 3:“X=”:F-(Q-K)cosN-Dsin N→X◢ ifend（结束） else（否则执行） “Y=”:G-(Q-K) sinN+D cosN→Y◢ Goto1← 第一段直线 Lbl 4: if KQ+L :then GotoA:else Goto5 :ifend← Lbl 5: if K≤Q+B :then Goto6:else Goto7 :ifend← Lbl 6: K-Q→S： B→ W：Prog“2”： N+I×90S2÷(ЛRB)→O:O0 = O+360→O:O360 = O-360 →O← “X=”:UcosN-VsinN+F+Dcos(O+90) →X◢ “Y=”:VcosN+UsinN+G+Dsin(O+90) →Y ◢ Goto1? 第一段缓曲 Lbl 7：if K≤Q+L-C: then Goto8:else Goto9 :ifend← Lbl 8: K-Q→S：N+I90(2S-B)÷(ЛR) → O:O0= O+360 →O:O360= O-360→O← Prog “3”：”X=”UcosN-VsinN+F+Dcos(O+90) →X◢ “Y=”：VcosN+UsinN+G+Dsin(O+90) →Y ◢ Goto1← 圆曲线 Lbl 9: Q+L-K →S：C →W：Prog “2”：N+IA+180→ E：E-I×90S2÷(ЛRC)+180 →O：O0 = O+360 →O:O360 = O-360→ O ← -V→V← “X=”：(U-H)cosE-VsinE+F+T cosN+Dcos(O+90) →X◢ “Y=”：VcosE+(U-H)sinE+G+T sinN+Dsin(O+90) → Y◢ Goto1← 第二段缓曲 Lbl A: N+IA+180→ E：E+180 →O：O0 = O+360 →O:O360 = O-360→ O ← -HcosE +F+T cosN →X -HsinE+G+T sinN→ Y “X=”：X+(K-Q-L) cosO-D sinO◢ “Y=”：Y+(K-Q-L) sin O+DcosO◢ Goto1← 第二段直线 圆曲 缓曲参数子程序“1” ?A:?R: “L01” ?B: “L02”? C← B÷2-B3÷(240 R2)→M← C÷2-C3÷(240 R2)→J← B2÷(24 R)- B4÷(2688 R3)→P← C2÷(24 R)- C4÷(2688 R3)→Z← M+(R+P)tan(A÷2)+(Z-P)÷sinA→T← J+(R+Z)tan (A÷2)+( P-Z)÷sinA →H← B÷2+C÷2+A RЛ÷180 →L← 缓曲子程序“2” S-S5÷(40R2W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6) →U← I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5)) →V← 圆曲子程序“3” Rsin(180(S-B÷2)÷Л÷R)+M→ U← I (R (1-cos(180(S-B÷2)÷Л÷R))+P) →V← 程序说明：本程序可以计算等长和不等长“直+缓+圆+缓+直”型线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角（可加入◢显示出来）。 先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A(曲线偏角)，曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，(等长缓和曲线时L01= L02)，然后显示曲线逐要素，接着输入ZH坐标(ZHX，ZHY)，ZH到JD坐标方位角TZH—JD，当曲线为左偏时(Y1，Z-1)输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左