阿杜的5800应用程序.docVIP

CASIO fx-5800计算程序集 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 fEnd Lbl2：？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◢ Goto9 Lbl8：”JZ”？Z：”JE ‘JZ—加桩偏距； JE—加桩与边桩夹角 ”？E：X＋Z×cos（F＋E） →X:”X=”:X◢ Y＋Z×sin（F＋E）→Y:” Y=”:Y◢ Goto9 Lbl9：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 ◢ Goto1 Lbl3：？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◢ IfEnd Goto1 Lbl4: 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 1 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）→D Lbl 0：“N=”？N：N=1 ‘N=1为线元正算，N=2为里程偏距反算 =Goto1：N=2=Goto 2 Lbl 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）→X Y＋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 0 LBl 2：？X：？Y：X→I： Y→J Prog“SUB2” ：O＋W→ S：Z “FS=” ：S◢ “FZ=” ：Z◢ Goto 0 XY “X0=”？U：“Y0=”？V： Lbl 1：“D=”？D：“FW J=”？C Rec（D,C）：U＋I→X：V ＋J→Y “X=” ：X◢ “Y=” ：Y◢ Goto 1 4-DA “X0=”？U：“Y0=”？V：