任意坐标系下曲线正算程序.docVIP

?任意坐标系下曲线正算程序 ? 主程序 [QX ZS] N″AZ(+):AY(-)=″:R″R=″:S″LS=″:T″T=″:M″L=″ K″L(ZH)=″:P″X(ZH)=″:Q″Y(ZH)=″:I″FWJ=″ LbI 3:｛C｝ C″LI CHEN=″:L=C-K:A=Abs N L≤S=Prog″H″:B= 90L2÷（RSπ）：Go to 2 ≠＞L≤M-S= Prog″Y″ B=（180L-90S）÷（Rπ）：Go to 2 ≠＞L=M=X=T+Tcos A:Y=Tsin A:B=A: Go to 2 ≠＞L=M-L：Prog″H″ D=√（X2+Y2） J=180+A-tan-1(Y÷X) X=T+Tcos A+Dcos J：Y=Tsin A+Dsin J B=A -90L2÷(RSπ) L=M-L:Go to 2:LbI 2 N＞0=＞Y=-Y:B=-B: ⊿ B=I+B V″X″=P+Xcos I-Ysin I◢ W″Y″=Q+Xsin I+Ycos I◢ B＜0=B=B+360：⊿ B″QIE XIAN FWJ″=B◢ Go to 3 子程序 ?[H] X=L-L∧5÷（40R2S2） Y=L∧3÷（6RS）-L∧7÷（336R∧3S∧3） ? [Y] O=180（L-S）÷（Rπ）+180S÷（2Rπ） X=Rsin O+ S÷2-S∧3÷（240R2） Y=R（1-cos O）+ S2÷（24R） 说明:N″AZ(+):AY(-)=″左/右偏角，左偏时偏角输“+”，右偏时偏角输“-”；R″R=″曲线半径；S″LS=″缓和曲线长；T″T=″切线长；M″L=″曲线总长；K″L（ZH）=″直缓点ZH里程 ; G″X(ZH)=″:H″Y(ZH)=″直缓点（ZH）坐标；I″FWJ=″为ZH段直线起始方位角；Z″LI CHEN=″输入所求坐标的里程；V″X″、W″Y″输出相应里程线路中线的坐标；B″QIE XIAN FWJ″输出线路中线坐标点的切线方位角。 ? ? ? ? ? ???????? 任意坐标系下曲线放样反算程序 ? 主程序 ?[QX FY] N″AZ(+):AY(-)=″:R″R=″:S″LS=″:T″T=″:M″L=″ K″L(ZH)=″:P″X(ZH)=″:Q″Y(ZH)=″:Z″FWJ=″ LbI 0:｛FH｝:A=Abs N F″XP=″:H″YP=″: Prog″S″ C=W-K Prog″HH″ LbI 1 G=-Isin V：C=C+G Prog″HH″ Abs(Isin V)0.002=Go to 1:⊿ L″LI CHEN″=L+K◢ J180=I″DY″=I◢ ≠＞I″DZ″=-I◢ ⊿Go to 0 ? 子程序 [HH] L=C:L≤S=Prog″H″:B= 90L2÷（RSπ）：Go to 2 ≠＞L≤M-S= Prog″Y″ B=（180L-90S）÷（Rπ）：Go to 2 ≠＞L=M-L：Prog″H″ D=√（X2+Y2） J=180+A-tan-1(Y÷X) X=T+Tcos A+Dcos J：Y=Tsin A+Dsin J B=A -90L2÷(RSπ) L=M-L:Go to 2:LbI 2 N＞0=＞Y=-Y:B=-B: ⊿ B＜0=B=B+360：⊿ I=0：J=0：PoL(W-K-X，E-Y) J＜0=J=J+360：⊿ U=Abs(J-B):U＞180=U=360-U：⊿ V=U-90 ? ?[H] X=L-L∧5÷（40R2S2） Y=L∧3÷（6RS）-L∧7÷（336R∧3S∧3） ? [Y] O=180（L-S）÷（Rπ）+180S÷（2Rπ） X=Rsin O+ S÷2-S∧3÷（240R2） Y=R（1-cos O）+ S2÷（24R） ? [S] W=K-Pcos Z-Qsin Z+Fcos Z+Hsin Z E=Psin Z-Qcos Z-Fsin Z+Hcos Z 说明：本程序用于计算带缓和曲线的曲线上任意测点坐标离线路中线的距离和该点的里程，计算范围自ZH至HZ，最后步长精度控制在2mm 内，坐标系采用原坐标系统，不需要进行坐标转换。CASIO fx-4800P计算器适用,特点是放样方便，计算速度快。 N″AZ(+):AY(-)=″左/右偏角，左偏时偏角输“+”，右偏时偏角输“-”；R″R=″曲线半径；S″LS=″缓和曲线长；T″T=″切线长；M″L=″曲线总长；K″L（ZH）=″直缓点ZH里程，P″X（ZH）=″、Q″Y（ZH）=″直缓点（ZH）坐标；Z″FWJ=″为ZH段直线起始方位角；F″XP=″、H″YP=″测点坐标； L″L