CASIO fx-5800P实用工程测量程序(3)

CASIO fx-5800P实用工程测量程序

石武项目（部分）应用实例： 曲线资料：

优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 11 -

CASIO fx-5800P实用工程测量程序

一、QXFY 辛甫森公式放样程序(示例)

1. Lb1 0：“Z＝”?Z

2. If 0＝Z : Then Goto： A：IfEnd 3. If 4＝Z : Then 3450018.29→A ：500461.113→B：180°7’14.5 ”→C：

0→D：0→E：21835.029→F：23224.207→G：Goto B：IfEnd 4. If 5＝Z : Then 3448629.115→A: 500458.187→B：180°7’14.5 ”→C：

0→D：0→－1÷9000：23224.207→F：23714.21→G：Goto B：IfEnd 5. If 6＝Z : Then 3448139.143→A: 500461.601→B：178°33’40 ”→C：

－1÷9000→D：－1÷9000→E：23714.21→F：24061.66→G：Goto B：

IfEnd …………..

6. If 0≠Z And 4≠Z And 5≠Z And 6≠Z: Then Goto 0 ：IfEnd

7. Lb1 A :“XA”? A：“YA”? B：“CA”? C： “1÷RA”?D： “1÷RB”?E：“KA”?F：“KB”? G 8. Lb1 B: “X0”? U：“Y0”?V 9. Lb1 C： “KI”?H：“JJ”?L：“ Y+Z－”?R 10. If H>G Or H

13. C+(Z÷4+2D)Q×22.5÷π→M：C+（3Z÷4+2D）Q×67.5÷π→N：C+(Z÷2+2D)Q×45÷π→K 14. A+Q（cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(W)）÷12+Rcos(W+L) →X：“X＝”：X

15. B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(W))÷12+Rsin (W+L) →Y：“Y＝”：Y 16. Pol((X－U)，（Y－V）)

17. If J≤0 Then J+360→J: IfEnd : “FWJ”:J DMS 18. “JU”: I 19. Goto C

程序显示说明

须输入参数： Z=? ：输入放样点里程段号，若该段曲线资料未存入计算器内，

则输入0，重新输入曲线资料。

优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 12 -

CASIO fx-5800P实用工程测量程序

XA:曲线起算点X （0＝Z时，提示输入线路曲线资料） YA:曲线起算点Y

CA：曲线起算点切线方位角

1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负 1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负 KA:起算点里程

KB:曲终点里程

X0？ : 置镜点X (0≠Z跳过以上显示) Y0? : 置镜点Y KI?:待求点里程 JJ ？:夹角(与前进方向切线向右的夹角) DY + Z－？：边距，右正 左负

计算结果: QXFWJ: 计算点切线方位角

X＝:计算点x

Y＝:计算点y FWJ: 放样方位角 JU: 放样距离

KI?:重新输入要求点里程

…..

置镜点 KBWFWJX0Y0S切线方位角RB夹角JJ计算里程 KICA边桩 右正左负起算里程 KAXAYARA

优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887

- 13 -

切线方位角CASIO fx-5800P实用工程测量程序

2、圆曲线坐标换算YHS （示例）：

1．Lbl 0 ：“Z＝”?Z

2. If 0＝Z：Then Goto A：IfEnd

3. If 6＝Z：Then 3448365.139→M ：509458.763→N：23887.93→Z：

267°27’18” →T：9002.5→R：－1→K：Goto B：IfEnd

…………………

4. If 0≠Z And 6≠Z ： Then Goto 0 ：IfEnd 5．Lbl A ：“X0”?M：“Y0”? N：“KQZ”? Z：“T”? T:“R”? R: “K”? K 6. Lbl B ：“X”?X：“Y”?Y

7．Ｐol(Ｘ－Ｍ,Ｙ－Ｎ） 注：计算(Ｘ,Ｙ)点至圆心的距离 4. If J≤0：Then J+360→J：IfEnd 5. Ｚ＋ＫπＲ(Ｊ－Ｔ)÷180→Ａ:“LC”: A 注：计算(Ｘ,Ｙ)点的桩号 6. Ｋ（Ｒ－I）→Ｂ: “KD”: B 注：计算(Ｘ,Ｙ)点的距中线距离 7．Goto B

程序显示说明：

须输入参数：Z=? ：输入放样点里程段号，若该段曲线资料未存入计算器内，

则输入0，重新输入曲线资料。

X0? Y0?－圆心坐标（Ｘ,Ｙ） （0＝Z时，提示输入线路曲线资料） KQZ?－曲线中点（QZ）的桩号 Ｔ?－圆心至QZ点的方位角 Ｒ?－圆曲线半径

Ｘ? Ｙ?－待求点坐标 (0≠Z跳过以上显示)

计算结果： LC－待求点对应桩号

Ｋ?－根据ＪＤ点处的偏角α确定，左偏取－１，右偏取＋１

KD－距离中线距离，左负，右正 Ｘ? Ｙ? －重新输入待求坐标点

优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887

- 14 -

CASIO fx-5800P实用工程测量程序

七、缓和曲线段坐标换算HHS（示例）：

1．Lbl 0 ：“Z＝”?Z

2. If 0＝Z：Then Goto A：IfEnd

3. If 5＝Z：Then 3448629.12→M ：500455.687→N：23224.21→Z：1→S：

9000→R：490→L：180°7’15” →T：－1→K：Goto B：IfEnd …………………

4. If 0≠Z And 5≠Z ： Then Goto 0 ：IfEnd 5．Lbl A ： “XQ”?M：“YQ”? N：“Z”? Z：“S”? S:“R”? R: “L0”? L: “T”? T: “K”? K 2. Lbl B ：“X”?X：“Y”? Y 3．Z →A ：M→E ：N→F ：T→O 4． Lbl C： Ｐol（X－E，Y－F）→I 5． J≤0 J+360→J

6． J－O→U：A+S I cos（U）→A

8．If Abs(I cos (U)）≤0.001 ：Then A→A: “LC”: A 9. S I sin (U)→B : “KD”: B 10. Goto B : IfEnd

11．RL→C：Abs(A－Z）→D

12．If D＞L： Then “D＞L” 13. Goto B : IfEnd ∧∧∧ 2

14．D－D(5)÷（40C）+D(9)÷（3456C(4)）→V

∧∧∧∧∧

15．D(3)÷(6C)－D(7)÷(336C(3))+D(11)÷(42240C(5))→W 16． Ｐol（V，W）→I

2

17． T+K J→P： T+90 K D÷(Cπ) →O 18. M+I cos( P)→ E： N+I Sin(P)→ F 19. Goto C 程序显示说明

须输入参数：Z=? ：输入放样点里程段号，若该段曲线资料未存入计算器内，

则输入0，重新输入曲线资料。

X0? Y0?－为ZH（或HZ）点坐标（X，Y） （输入Z＝0时，提示输入线路曲线资料） Z?－为ZH（或HZ）点的桩号 S?－由ZH点计算时, S取+1，否则-1 R?－圆曲线半径 优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 15 -

CASIO fx-5800P实用工程测量程序

L0?－缓和曲线长度（L0）

T?－为ZH（或HZ）点至本曲线JD点的方位角

K?－根据JD点处的偏角α确定，左偏取-1，右偏取+1；

当由HZ点计算时，左偏取+1，右偏取-1

Ｘ? Ｙ?－待求点坐标 (0≠Z跳过以上显示)

运算结果: LC－待求点对应桩号

KD－距离中线距离，左负，右正 Ｘ? Ｙ? －重新输入待求坐标点

（D＞L ： 表示该计算点不在该缓和曲线段内，并提示重新输入坐标。）

断面检查 DMJC

1. Lbl 0 ： “K”?K：“KD”? A：“HA”?B 2. K<22340 161.95－（22340－K）×0.011→ G 3. K>23060 161.23－（K－23060）×0.013→ G

4. If K>22340 And K<23060 ： Then Goto 0 ：IfEnd 5. √(A2+(B－G－2.43)2)－7.2→ D：“CQW”：D 6. Goto 0

输入说明： K？ 输入里程

KD？ 距中心宽度 KA？ 测点高程

计算结果： CQW 超欠挖值，（“－”值表示欠挖值，“＋”超挖值）

优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 16 -

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库CASIO fx-5800P实用工程测量程序(3)在线全文阅读。