FX5800缓和加圆曲线坐标正反算(原创).doc

《FX5800缓和加圆曲线坐标正反算(原创).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、高考缓和曲线与圆曲线正反算程序一、正算程序：ZD-ZS※※→X※※→Y※※→N※※→E※※→C※※→D※※→T※※→I※※→R※※→S（本线到中线的距离,向左为负，向右为正）Lbl1arcCos（（N-X）÷√((N-X)2+(E-Y)2))→AifE>Y：ThenA:ELSE360-A→A：IFENDarcCos（（C-N）÷√((C-N)2+(D-E)2))→UifD>E：ThenU:ELSE360-U→U：IFEND高考1→KIFA>U：ThenK：ELSEK-2→K：IFEND0→MIfK=1：ThenM：ELSEM+1→M：IFENDN+

2、T×（X-N）÷√（（N-X）2+（E-Y）2）→CE+T×（Y-E）÷√（（N-X）2+（E-Y）2）→DLbl2“L”？→OO-※※(曲线起点里程)→LL>I=>Goto5C+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→V◢D+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI÷L2-3×L

3、2÷20÷R÷I）+180×M-90）+S×sin（A-K×L2×180÷2÷R÷I÷3.1415926+90）→Q◢※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差）→J◢高考Lbl3“XZWY”?→GG=1=>Goto2G=2=>Goto4Lbl4“S”?→Z“H”?→HV+Z×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）◢Q+Z×sin（A-K×L2×180÷2÷R÷I÷3.1415926+90）◢H+J◢Goto3Lbl5R×Sin(90×(2L-I)÷3.1415926÷

4、R)+I÷2-I~(3)÷240÷R2→YK(R×(1-COS(90×(2L-I)÷3.1415926÷R))+I2÷24÷R-I~(4)÷2688÷R~(3))→X√(X2+Y2)→FA+ArcTan(Y÷X)+M×180-90→UC+F×Cos（U）+S×COS(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→V◢D+F×Sin（U）+S×Sin(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→Q◢※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差）→J◢高考Lb

5、l6“XZWY”?→GG=1=>Goto2G=2=>Goto7Lbl7“S”?→Z“H”?→HV+Z×COS(A-K×180×(2×L-I)÷2÷301415926÷R+90)◢Q+Z×Sin(A-K×180×(2×L-I)÷2÷301415926÷R+90)◢H+J◢Goto6二、反算程序：ZD-FS※※→X※※→Y※※→N※※→E※※→C※※→D高考※※→T※※→I※※→R※※→S（本线到中线的距离,向左为负，向右为正）※※→W(曲线起点里程)※※→V(圆心N)※※→Q(圆心E)※※→B(HY---N)※※→J(HY---E)arcCos（（N

6、-X）÷√((N-X)2+(E-Y)2))→AifE>Y：ThenA:ELSE360-A→A：IFENDarcCos（（C-N）÷√((C-N)2+(D-E)2))→UifD>E：ThenU:ELSE360-U→U：IFEND1→KIFA>U：ThenK：ELSEK-2→K：IFEND0→MIfK=1：ThenM：ELSEM+1→M：IFENDN+T×（X-N）÷√（（N-X）2+（E-Y）2）→C高考E+T×（Y-E）÷√（（N-X）2+（E-Y）2）→DLbl1“N”?→X“E”?→Y“H”?→H1→G：IFD>J：ThenG：Else-1→G

7、：IfEndK×G×X→OK×G×((V-B)×Y÷(Q-J)+V-(V-B)×Q÷(Q-J))→FIFO>F：ThenO：GOTO2：IfEndW→O√（（X-C）2+（Y-D）2）→G：WhileG>0.001：G+O→O：O-※※(曲线起点里程)→LC+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）→ND+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI÷L2-3

8、×L2÷20÷R÷I）+180×M-90）→EA-K×L2×180÷2÷R÷I÷3.1415926+90×(N-X)÷√（