5800计算器程序

CASIO fx—5800计算器 工程测量与公路测量程序- 1、坐标正算-

〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?J - X+ICos(J)→U:Y+ISin(J)→V - 〝X=〞:U （待求点的X坐标）- 〝Y=〞:V （待求点的Y坐标）-

说明：X0 Y0：已知点坐标I：两点的距离J：方位角- ２、坐标反算- Lbl 0 -

〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V - Pol(U-X,V-Y): - J<0 J+360→J - 〝I=〞:I - 〝J=〞:J DMS - GOTO 0-

说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角- ３、圆曲线-

〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R - Lbl 1 -

〝DQHAO=〞?L - L

ReC(Abs(F),D+0.5E)：Cls - 〝X=〞:X+I+KCos(D+E+90) →A - 〝Y=〞:Y+J+KSin(D+E+90) →B - D+E→o:o<0 360+o→0o - 〝FWJ=〞:o DMS - Goto 1 -

Lbl 2 - 〝END〞-

说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量- ４、竖曲线-

〝QZHAO =〞?J: 〝H+B〞=?B:〝I1=〞?C:〝I2=〞?D:〝R=〞?R:〝T=〞?T: - ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S - 〝T〞:S - J-T→X - J＋T→Y - Lbl 0 - 〝DQ=〞?L -

If L

说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。- 5．正算偏移-

〝X0=〞?A: 〝Y0=〞?B:〝FWJ=〞?D: - Lbl 0 -

〝LS=〞?L: 〝PY=〞?C - ReC(L,D) -

〝X=〞:A+I+CCos(D+ 90) →X - 〝Y=〞:B+J+CSin(D+ 90) →Y - Goto 0-

说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角- 6.万能公式-

〝X0=〞?A:〝Y0=〞?B:〝FWJ=〞?C:〝1÷R-QD〞?D:〝1÷R-ZD〞?E:〝QDHAO〞?F: - 〝ZDHAO〞?G -

Lbl 1 -

〝DQHAO=〞?H:〝PY=〞?o -

If H

说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标- 6、标高计算-

〝QZHAO=〞?J:〝QDHAO=〞?G:〝ZDHAO=〞?K:〝B—HB=〞?B:〝SX=〞?Q:〝I1=〞?C:- 〝I2=〞?D:〝R=〞?R:〝T=〞?T -

(D-C)÷100→W:W÷Abs(W)→A:〝T〞:0.5RAbs(W) →S - 〝o-YIGAO=〞?o - J-T→X:J+T→Y - Lbl 1 -

〝L—DQHAO=〞?L:〝PY=〞?U:〝XIELV=〞?V - If L

〝HL=〞:B+0.01 (L-J)C+0.01UV+Q →H -

÷π→J:C+45Q(I÷8+D)

〝H0=〞:o-H→H - Goto 1 - Lab 3 - L>K Goto 4 -

〝HL=〞:B+0.01 (L-J)D+0.01UV+Q →H - 〝HO=:o-H→Z - Goto 1 - Lbl 4: 〝END〞-

说明：QZHAO：曲中点里程（竖曲线），QDHAO：起点里程，ZDHAO：终点里程，B—HB曲中点高程，SX：上下（路面标高下多少为水稳层面），I1：第一坡度，I2：第二坡度，R：半径，T切线长，L—DQHAO：待求点里程，PY：偏移（中桩到边桩的距离），XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高-

求卡西欧5800计算器圆曲线坐标正反算，道路中边桩放样程... USSLE坐标正反算fx－5800程序 1.正算主程序 （GSZS）

？K：Prog “DAT-M-DZD”: ((P-R)÷(2(H-O(字母))PR))→D : “L(-Z Y)” ?L:

“ANG”?M : (Abs(K-O(字母))) →J：Prog\：If (F-M) 0: Then (F-M 360) →F: Else(F-M) →F: IfEnd

“FWJ=”:F ●DMS(显示度分秒)◢ “X=”:X◢ ”Y=”:Y◢

2. 反算主程序 (GSFS)

？K：Prog “DAT-M-DZD”: ?X：?Y：X→Z[2]：Y→Z[3]： ( (P-R)÷(2(H-O(字母))PR)) →D: （Abs((Y-S)cos(G-90)－(X-I)sin(G-90)) ) →J： 0→L：90→M: Lbl 0：Prog \：((Z[3]-Y)cos(G-90 QJ(1÷P JD)×180÷π)) →Z[20]:((Z[2]-X)sin(G-90 QJ(1÷P JD) ×180÷π)) →Z[21]:( Z[20]- Z[21]) →L：If Abs(L)10∧(-6)： Then Goto1：Else (J L)→J：Goto 0: IfEnd Lbl 1：0→L：Prog \：((Z[3]-Y)÷sin(F))→L: (O J)→K:“LC=”:K◢ L→L :“PJ（-Z Y）=”:L◢

3. 反算，正算子程序(SUB1)

0.1184634425→A:0.2393143352→B: 0.2844444444→Z[4]:0.0469100770→C: 0.2307653449→E: 0.5→Z[1]:

((P-R)÷(2(H-O(字母))PR))→D : (Acos(G QCJ(1÷P CJD)×180÷π))

→Z[5]: ( Bcos(G QEJ(1÷P EJD)×180÷π)) →Z[6]: (Z[4]cos(G QZ[1]J(1÷P Z[1]JD)×180÷π)) →Z[7]:( Bcos(G Q(1-E)J(1÷P (1-E)JD)×180÷π)) →Z[8]:(Acos(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)) →Z[9]: (Z[5] Z[6] Z[7] Z[8] Z[9])→Z[10]: (J×Z[10]) →Z[11]:(I Z[11]) →X: (Asin(G QCJ(1÷P CJD)×180÷π)) →Z[12]:(Bsin(G QEJ(1÷P EJD)×180÷π)) →Z[13]:(Z[4]sin(G QZ[1]J(1÷P Z[1]JD)×180÷π)) →Z[14]:(Bsin(G Q(1-E)J(1÷P

(1-E)JD)×180÷π)) →Z[15]:(Asin(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)) →Z[16]:( Z[12] Z[13] Z[14] Z[15] Z[16])→Z[17] : (J×Z[17]) →Z[18]:(S Z[18]) →Y: (G M) →Z[19]:(( Z[19] QJ(1÷P JD) ×180÷π)) →F： (X LcosF)→X：(Y LsinF) →Y Return

4. 线元要素数据库：（DAT-M-DZD ）

If K≥(线元起点里程)And K＜(线元终点里程):Then (线元起点横坐标x) →I：(线元起......

如果是输？那就是：function键然后3健然后1健就是？

如果是输入程序那就是：mode键然后5键然后选择1：是新建文件名，2：是运行程序，3：是编辑程序，4是输除。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库5800计算器程序在线全文阅读。