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

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

一、QXFY 辛甫森公式放样程序

1. “X0”? U：“Y0”?V 2. “XA”? A：“YA”? B：“CA”? C： “1÷RA”?D： “1÷RB”?E：

“KA”?F：“KB”? G 3. Lb1 1： “KI”?H：“JJ”?L：“ Y+Z－”?R 4. If H>G Or H

8. C+(Z÷4+2D)Q×22.5÷π→M：C+（3Z÷4+2D）Q×67.5÷π→N：C+(Z÷2+2D)Q×45÷π→K 9. A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W+L) →X：“X＝”：X

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

If J≤0 Then J+360→J: IfEnd : “FWJ”:J DMS 12. “JU”: I 13. Goto 1

程序显示说明：

须输入参数： X0:置镜点X (对应变量U)

Y0:置镜点Y (对应变量V)

XA:曲线起算点X (对应变量A) YA:曲线起算点Y (对应变量B) CA：曲线起算点切线方位角 (对应变量C)

1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负 (对应变量D) 1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负 (对应变量E) KA:起算点里程 (对应变量F) KB:曲终点里程 (对应变量G) KI:待求点里程 (对应变量H) JJ:夹角(与前进方向切线向右的夹角) (对应变量L)

D“Y + Z－：偏距，右正 左负 (对应变量R)

计算结果: W: 待求点切线方位角 (对应变量W)

X:计算点x (对应变量X) Y:计算点y (对应变量Y) FWJ:放样方位角 (对应变量J) S:放样距离 (对应变量I)

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

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

置镜点 KBFWJX0Y0S切线方位角WRB夹角JJ计算里程 KICA边桩 右正左负起算里程 KAXAYARA 本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点

分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。考虑到程序中调用变量较多与其它程序变量冲突，造成不方便来回交叉使用，便把反算程序嵌套其中，作为一个完整独立放样和坐标计算程序，不含子程序

当输入待求里程超出该曲线单元范围时程序会拒绝运算，并提示重新输入里程，避免计算错误结果；如要求另一曲线单元内里程须重新进入程序输入相应曲线元参数计算

由于应用中待求里程不一定按从小到大顺序便去掉了把计算里程替代为起算里程的语句，造成待求里程与起算里程距离较远时精度会略有影响，但对于一般工程中较大半径曲线，影响非常小仅在毫米上可以忽略不予考虑。

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

- 2 -

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

二、坐标反算ZBFS

1. “X0”？ U： V“Y0”？V

2. Lbl 0： “X”？ X： “Y”？ Y：Pol((X－U),(Y－V)) 3. If J≤0：Then J+360→J：IfEnd ：“FWJ” ：J 4. “JU”： I 5. Goto 0 程序显示说明：

须输入参数： X0？: 起算点

X Y0？: 起算点Y X ？: 计算点X Y？ : 计算点

Y

计算结果: FWJ: 反算方位角

JU: 反算距离

X ？Y？: 重新输入计算点X Y

三、坐标正算ZBZS

1. “X0”?X：“Y0”? Y：“S”? S：“T”? T 2. “X1”:X+Scos(T)→M

“Y1”:Y+Ssin (T)→N

程序显示说明：

须输入参数： X0？: 起算点X

Y0？: 起算点Y S？: 正算距离 T？: 方位角

计算结果: X1: 计算点X

Y1: 计算点Y

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

- 3 -

QQ:330890887

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

四、竖曲线SQX

1. “R＝”? A：“T＝”? B：“I1＝”? C：“I2＝”? D：“K0

＝”?E：“H0＝”? F

2. If C>D : Then －1→T : Else 1→T : IfEnd 3. Lbl 0：“K＝”?K：Abs(E－K）→S： 4. If S>B : Then Goto 0 : IfEnd

5. If E≥K : Then Goto 1: Else Goto 2 :IfEnd 6. Lbl 1：F－SC+T（B－S）2÷2÷A→ G:“G”: G 7. Goto 0 8. Lbl 2：F+SD+T（B－S）2÷2÷A→ G:“G”: G 9. Goto 0 程序显示说明：

须输入参数： R＝？: 竖曲线半径

T＝？: 切线长

I1＝？: 变坡点前坡度值，上坡为正，下坡为负（如-2.5%则输-0.025） I2＝？: 变坡点后坡度值，上坡为正，下坡为负 K0＝？：变坡点里程

H0＝？：变坡点坡线高程 K＝？：待求点里程

计算结果: G: 待求点曲线高程

K＝？：重新输入待求点里程

注：计算里程仅在竖曲线范围内

H坡I1H曲TI2RRRRI1H曲H坡TI2凸型竖曲线凹型竖曲线

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

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

五、直线段坐标换算ZXZH (X,Y)→(A,B) 1. “X0”?M：“Y0”? N：“K”? Z：“T”? T

2. Lbl 0 ：“X”?X ：“Y”?Y

3． (X－M) cos(Ｔ)＋(Y－N)sin(Ｔ)＋Ｚ→Ａ: “LC”: A 4． (Y－N)cos(Ｔ)－(X－M)sin(Ｔ)→Ｂ: “KD”: B 5． Goto 0 程序显示说明：

须输入参数：X0? Y0?－直线起算点坐标（Ｘ，Ｙ） (对应变量M N)

K?－起算点桩号 (对应变量Z) Ｔ?－起算点至ＪＤ的方位角 (对应变量T) Ｘ? Ｙ?－待求点坐标 (对应变量X Y)

计算结果: LC－待求点对应桩号 (对应变量A )

KD－距离中线距离，左负，右正 (对应变量B )

Ｘ? Ｙ? －重新输入待求坐标点

圆心OX Y K ：里程X ：X坐标Y : Y坐标α切 ：指向前进方向切线方位角α右法：指向右侧法线方位角R=线∞HZRR圆曲线段缓YHR=∞直线段R=∞缓和曲线段QZHYZH K X Y α切 K X Y α切 Kα右法 JD

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

- 5 -

和曲段α

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 -

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 -

本文来源：https://www.bwwdw.com/article/1jz6.html