曲線任意里程全線中邊樁坐標正反算及放樣(casio fx-4800p計算器)程序檔

1、曲線任意里程全線中邊樁坐標正反算及放樣曲線任意里程全線中邊樁坐標正反算及放樣(CASIOfx4800P計算器計算器)程序程序一.QXZDJS(計算總調(diào)度程序)“1=SJK1“：“2=SJK2“：M=1=Prog“SJK1“：Prog“TYQXJS“⊿↙M=2=Prog“SJK2“⊿↙M=n=Prog“SJKn“⊿二：TYQXJS（運算主程序曲線任意里程中邊樁坐標正反算及放樣(CASIOfx4800P計算器)程序Lb10：“1.SZ=XY

2、“：“2.XY=SZ”：M：O”ZHK”U”X0”：V”Y0”：G”QFWJ”：H“LS“：P”RA”：R”RB”：Q：D=(PR)（2HPR）：M=1=Goto1：≠Goto2⊿↙Lb11：｛SZ｝：S“K“：Z：W=Abs(Ｓ－Ｏ)：Ｐｒｏｇ“ＳＵＢ１”：Ｘ＂ＸＳ＂＝Ｘ▲Ｙ＂ＹＳ＂＝Ｙ▲Ｆ＂ＦＳ＂＝Ｆ－９０▲Ｃ＂Ｘ１＂：Ｅ＂Ｙ１＂：Ｉ＝０：Ｊ＝０：ｐｏＩ（XCYE）：Ｉ“ＪＵＬＩ＝”▲Ｊ＜０=Ｊ=Ｊ３６０⊿↙Ｊ“ＦＷＪ＝＂▲Goto

3、１↙Ｌｂｌ２：｛XY｝：XY：I=X:J=Y：Ｐｒｏｇ“ＳＵＢ2”：S”K”=OW▲Z”B”=Z▲Goto2⊿↙三：正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1L：M=1K↙X=UW(Acos(G57.2958QKW(1PKWD))Bcos(G57.2958QLW(1PLWD))Bcos(G57.2958QFW(1PFWD))Acos

4、(G57.2958QMW(1PMWD)))：Y=VW(Asin(G57.2958QKW(1(5)當所求點位于中線時，Z=0；當位于中線左鍘時，Z取負值；當位于中線中線右側(cè)時，Z取正值。(6)當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。(7)當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。(8)當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接

5、時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。(9)當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。2、輸入與顯示說明輸入部分：1.SZ=XY2.XY=SZM選擇計算方式，輸入1表示進行由里程、邊距計算坐標；