阿杜的5800应用程序

1CASIO fx-5800计算程序集1- XYZF？A ：？B ：Lbl 1：？N ：？ ‘A ，B —置镜点X ，Y 坐标； S ：Prog “771”：1÷P ‘N=1为线元正算，N=2为里程偏距反算 →C ：（P-R ）÷（2×HPR ） →D ：If N=1：Then G oto2：ElseIf N= 2：Then Goto3：El se Goto 1:IfEnd I fEndLbl2：？Z ：？E ：Abs （ ‘Z —边桩偏距； E —边桩与中桩夹角 S-O ）→W ：Prog “SUB 1”：“T=0,1,2”？T ：I f T=0:Then Goto 7：Else If T=1:Th en Goto8：ElseI f T=2：Then Goto 4：Else Goto 7：If EndIfEndIfEnd Lbl7：F-90→F:”F= ”:F ▶DMS ◢ “X=”：X ◢ “Y=” ：Y ◢ Goto9Lbl8：”JZ ”？Z ：”JE ‘JZ —加桩偏距； JE —加桩与边桩夹角 ”？E ：X ＋Z ×cos （F ＋E ） →X:”X=”:X ◢2Y ＋Z ×sin （F ＋E ）→Y:” Y=”:Y ◢ Goto9Lbl9：Pol （X-A,Y- B ）：I “I=” ：I ◢ If J ＞360：Then J- 360→J ：IfEnd ：If J ＜0：Then J ＋360→J ： IfEnd ：“J=” ：J ▶DMS ◢ Goto1Lbl3：？X ：？Y ：X →I ： Y →J ：Prog “SUB2” ： O ＋W →S ：“S=” ：S ◢ “Z=” ：Z ◢“T=0”？T ：If T=0:T hen Goto1：Else If Z ≤0:Then Abs( Z)+2.5→Z:Else Z -2.5→Z: IfEnd Prog “772” ：S ≤W-T =>0→Q:P-（T-（S-W+T ））×J ÷1000-（（S-W+ T ）^(2)÷2÷R ）×Q →H ： “H=” ：H ◢“GH ”?G:?R: ”SCH ”? C:H+G+√(R^2-Z^2) -C →H:”CQ,-,+”:H ◢3IfEnd Goto1Lbl4: Prog “772” ：S ≤W-T=>0→Q:P-（T- （S-W+T ））×J ÷1000- （（S-W+T ）^(2)÷2÷R ）×Q →H ：“H=” ：H ◢“GH ”?G:”SCH ”?C:” ‘G —放样点距内轨顶理论高差；PL ”?D:”KD ”?F:F+A ‘H —实测现场高程；D —边坡坡率；F —距左中固定宽度 bs(C-(H-G))*D →Z: “FK=”:Z ◢ Goto 12- TYQXJS？A ？B ‘A ，B —置镜点X ，Y 坐标； “XO ”？U ：“YO ”？V ：“S ‘X0，Y0—线元起点X,Y 坐标；O ”？O ：“FO ”？G ：“LS ” ‘SO —线元起点里程； F0—线元起点方位角 ？H ：“RO ”？P ：“RN ”？R ‘LS —缓和曲线长； R0—线元起点半径：？Q ‘RN —线元终点半径； Q —线元偏向，左负右正，直线为0 1÷P →C ：（P-R ）÷（2HP R ）→DLbl 0：“N=”？N ：N=1 ‘N=1为线元正算，N=2为里程偏距反算 =>Goto1：N=2=>Goto 2Lbl 1：？S ：？Z ：？E ：？ ‘S —待求点里程； Z —边桩偏距； E —边桩与中桩夹角 I ：？J ：Abs （S-O ）→W ‘I —加桩偏距； J —加桩与边桩夹角 Prog “SUB1”：Cls “FF=” ：F-90▶DMS ◢ X ＋Icos （F ＋J ）→X4Y ＋Isin （F ＋J ）→Y “X=”:X ◢ “Y=”:Y ◢Pol （X-A,Y-B ）：If J ＜0：Then J ＋360→J Else J →J ：J ＞360=> J-360→J ：IfEnd “FI=” ：I ◢ “FJ=” ：J ◢ Goto 0LBl 2：？X ：？Y ：X →I ： Y →JProg “SUB2” ：O ＋W → S ：Z “FS=” ：S ◢ “FZ=” ：Z ◢ Goto 03- XY“X0=”？U ：“Y0=”？V ： Lbl 1：“D=”？D ：“FW J=”？CRec （D,C ）：U ＋I →X ：V ＋J →Y “X=” ：X ◢ “Y=” ：Y ◢ Goto 154-DA“X0=”？U ：“Y0=”？V ： ‘X0，Y0—起算点X ，Y 坐标； Lbl 1：“X1=”？X ：“Y ‘X1，Y1—方向点X ，Y 坐标； 1=”？YPol （X-U,Y-V ）：I If J ＞360：Then J- 360→J ：Else J →J ：J ＜0=>J+360→J ：IfEnd “I=” ：I ◢ “J=” ：J ▶DMS ◢ Goto 15-JLJHLbl 1：“X1=”？U ：“Y 1=”？V ：“D1=”？M ：“X 2=”？X ：“Y2=”？Y ：“D 2=”？KPol （X-U,Y-V ）：I ：J cos -1 （（M ²+I ²-K ²）÷ （2IM ））+J →Q ：Rec （M ,Q ）：U+I →A ：V+J →B “X0=” ：A ◢ “Y0=” ：B ◢ Goto 16-SQX“BPK ”？W ：“BPH ”？P ： ‘BPK —变坡点里程；BPH —变坡点高程； “LPL ”？J:？T ：？R ：？Q LPL —来向坡度；T —切线长；R —切线长；6Lbl 1：？S ： P-（T-（S Q —竖曲线偏向，左负右正、直线为0；S —待求点里程； -W+T ））×J ÷1000-（（ S-W+T ）^(2)÷2÷R ）× Q →H ：“N=1,2”?N:If N=1 ‘N 为1时，显示计算结果，为2时计算边坡放样宽度 :Then Goto 2:Else If N=2:Then Go to 3:Else Goto 1 :IfEnd IfEnd Lbl 2 “H=” ：H ◢ Goto 1Lbl 3“GH ”?G:”SC ‘G —放样点距内轨顶理论高差；H ”?C:”PL ”?D:”KD ” ‘H —实测现场高程；D —边坡坡率；F —距左中固定宽度 ?F:F+Abs(C-(H-G) )*D →Z: “H=” ：H ◢ “FK=”:Z ◢ Goto 17-SQXKLbl 0：？S ：Prog “7 72” ：S ≤W-T=>0→Q:P- （T-（S-W+T ））×J ÷10 00-（（S-W+T ）^(2)÷2÷R ）×Q →H ：“H=” ：H ◢“N=1,2”?N:If N=1 ‘N 为1时，显示计算结果，为2时计算边坡放样宽度 :Then Goto 2:Else If N=2:Then Go to 3:Else Goto 1 :IfEnd IfEnd7Lbl 2 “H=” ：H ◢ Goto 1Lbl 3：“H=” ：H ◢“GH ”?G:”SC ‘G —放样点距内轨顶理论高差；H ”?C:”PL ”?D:”KD ” ‘H —实测现场高程；D —边坡坡率；F —距左中固定宽度 ?F:F+Abs(C-(H-G) )*D →Z: “FK=”:Z ◢ Goto 0SUB1（子程序） 0.0694318442→K ：0 .3300094782→L 1- L →F ： 1-K →M U+W(0.1739274226 cos(G+QKW(C+KWD ))*(180/π)）+0.32 60725774cos(G+Q LW(C+LWD)) *(180/ π)）+ 0.3260725774 cos(G+QFW(C+FWD )) *(180/π)）+ 0.17 39274226cos(G+Q MW(C+MWD)) *(180/ π)) → X V+W(0.1739274226 sin(G+QKW(C+KWD8)) *(180/π)）+ 0.32 60725774sin(G+Q LW(C+LWD)) *(180/ π)）+ 0.3260725774sin(G+QFW(C+FWD)) *(180/π)）+ 0.17 39274226sin(G+QMW(C+MWD)) *(180/π)) →Y ： G+QW(C+WD ) *(180/π) +E →F ：X +ZcosF →X ：Y+Zsin F →YSUB2（子程序） G-90→TAbs(Y-V)Cos(T)- (X-U)Sin(T)) →W:0 →ZLbi 4:Prog ”SUB1 “T+(QW(C+WD)*( 180 /π) →L(J-Y)Cos(L)-(I-X )Sin(L) →Z If Abs(Z)<10^(-6) :Then Goto 1:Els e W+Z →W:IfEnd:Go to 4Lbi 1:0→Z:Prog ” SUB1”(J-Y)/Sin( F) →Z9771（子程序）If S>某线元起点里程：Then 线元起点X 值→U ：线元起点Y 值→V ：线元起点里程→O ：线元起点方位角→G ：缓和曲线长→H ：线元起点半径→P ：线元终点半径→R ：线元偏向→Q ：Return ：IfEndIf S>某线元起点里程：Then 线元起点X 值→U ：线元起点Y 值→V ：线元起点里程→O ：线元起点方位角→G ：缓和曲线长→H ：线元起点半径→P ：线元终点半径→R ：线元偏向→Q ：Return ：IfEnd ……注：输入时应由大里程往小里程输入数据库772（子程序）If S ≤变坡曲线终点里程：Then 变坡里程→W:变坡点高程→P ：变坡里程的来向坡率→J ：切线长→T ：半径→R ：曲线偏向→Q ：Goto 0：IfEndIf S ≤变坡曲线终点里程：Then 变坡里程→W:变坡点高程→P ：变坡里程的来向坡率→J ：切线长→T ：半径→R ：曲线偏向→Q ：Goto 0：IfEnd……10If S ≦216210：Then 216150→W:379.4664→P:-1→J:60→T:30000→R:-1→Q :G0t0 0:lfEndIf S ≦219645：Then 219600→W:389.8164→P:3→J:45→T:30000→R:1→Q:G0t0 0:lfEndIf S ≦221453.506：Then 221200→W:389.8164→P:0→J:253.51→T:30000→R:1→Q:G0t0 0:lfEndIf S ≦223620：Then223500 →W:350.9464→P:-16.9→J:120→T:30000→R:-1→Q:G0t0 0:lfEndIf S ≦225983.002：Then 225800→W:330.4764→P:-8.9→J:183→T:30000→R:-1→Q:G0t0 0:lfEndIf S ≦227705.324：Then 228055.324→W:337.919→P:3.3→J:0→T:1→R:0→Q:G0t0 0:lfEnd(链前）If S ≦228544.5：hen 228450→W:337.919→P:3.3→J:94.5→T:30000→R:1→Q:G0t0 0:lfEnd （链后）If S ≦233700.506：hen 233450→W:322.919→P:-3→J:250.51→T:30000→R:-1→Q:G0t0 0:lfEnd （链后） LbI0注：1、输入数据库是应由小里程往大里程输入；2、断链输入时，若为短链，应用短链下一变坡点里程减去短链长度，作为链前线段变坡点里程；反之亦相反。