弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2、输入与显示说明
SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO
N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。
3、盖板涵斜交操作说明： （以左前点为例）
先把盖板涵斜交角度减９０后＝Ａ
再盖板涵左长度*ＣｏｓＡ＝Ｂ，盖板涵左长度*ＳｉｎＡ＝Ｃ，盖板涵身宽度/ＣｏｓＡ＝Ｄ
利用YQXJS程序计算此桩号正交时Ｂ宽度的坐标值，及法线方位角。
再转到NE程序，Ｘ，Ｙ，Ｆ三项不要修改，只改Ｌ＝Ｃ＋Ｄ/２（计算后点Ｄ前为—） 4、SUB3数据库说明：
S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角，
P曲线起点半径， R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右转1）
CASIO fx5800P公路施工放线测量公式及程序
一、已知座标，求平距和方位角(座标反算)： 公式： D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2 ）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。输出：D为平距，Q为方位角。二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“C”？→C：“D”？→D：“Q”？→Q：“Z”？→Z：“U”?→U：“T”？→T：“V”？→V：Lbl 1: “L”？→L：Abs（L-Z）→W：“X=”：C+W*cos(Q)→X ⊿“Y=”： D+W*sin(Q)→Y ⊿ If U≤0:Then Goto1:Else “XL=”:X+U*cos(Q-V)→A ⊿“YL=”：Y+U*sin(Q-V)→B⊿“XR=”:X+T*cos(Q+V)→E⊿“YR=”：Y+T*sin(Q+V)→F⊿ Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。“U”
为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。输出：（X，Y）为中 桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式） 弦的方位角:Q=Qo±ψ （曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”： ？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “L”？→L：180*（L-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then “X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（L-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（L-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P ⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点 方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。四、已知直缓点坐标（M，N）、方位角Q、桩号Z，缓和曲线全长S和连接圆半径R，求缓和 曲线上任一点（桩号为L）的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： θ=30L2/(πRLs) C=L-L5/(90R2Ls2) α=α±90Ls2/(πA2)程序：“M”？→M：“N”？→N：“R”→R：“A”？→A：“S”?→S：“Z”？→Z：“Q”？→Q：“W=-1，1”：？→W：“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→ T：Lbl 3:“L”？→L：Abs (L-Z)→H:30*H2/(πRS)→D:H-H5/(90R2S2)→C:If W=-1:Then “X=”：
M+C*cos(Q-D)→X⊿“Y=”：N+C*sin(Q-D)→Y ⊿ A =0 =＞Goto 3:“Q=”:Q-90H/(πA）→E ⊿ Else If W=1:Then “X=”：M+C*cos(Q+D)→X⊿“Y=”：N+C*sin(Q+D)→Y ⊿ A=0 =＞Goto 3:“Q=”:Q+90*H/(πA）→E ⊿IfEnd:IfEnd:T=0=＞Goto 3：“XL=”:X+Z[1]*cos(E-T)⊿“YL=”：Y+Z[1]*sin(E-T)
⊿“XR=”:X+Z[2]*cos(E+T)⊿“YR=”： Y+Z[2]*sin(E+T)⊿ Goto 3说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。五、已知卵形曲线（即非完整缓和曲线）大圆半径R，小圆半径r，缓和曲线参数A，以大圆的圆缓点为起点，其坐标为（C，D），其方位角为Q，其桩号为Z，求桩号为L的点的中桩坐 标（X，Y），左、右边桩坐标（XL，YL）、（XR，YR）。 公式：偏角：
θ=arctg[(Yp-Yo)/(Xp-Xo)]-90LR/(πR)Xj=Lj-Lj5/(40A4)+Lj9/3456A8-?? ， Yj=Lj3/(6A2)-Lj7/(336A6)+Lj11/(42240A10)-?? Lj=A/Rj(Rj为曲率半径）
22
S=√(Xp-Xo)+(Yp-Yo)（弦长公式）α=Q±θ（弦线方位角公式） Xp=Xo+S *cosα , Yp=Yo+sinα程序：“A”？→A：“C”？→C：“D”？→D：“R”？→R：“Q”？→Q：“Z”？→Z：“W=-1，1”？→W：A
/R→J:J-J5/(40*A4)+J9/(3456*A8)→E:J3/(6*A2)-J7/(336*A6)+J11/(42240*A10)→F:90*J/(πR)→B:“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→T：Lbl 4:“L”？→L: J+Abs(L-Z)→S:S-S5/(40*A4)+S9/(3456*A8)→M:S3/(6*A2)-S7
/(336*A6)+S11/(42240*A10)→N:Abs(M-E)→G:Abs(N-F)→H:√(G2+H2)→K:arctg(H/G)→I:If I＜0:Then I+360→U:Else I→U: IfEnd: If W=-1:Then Q-(U-B)→V:“X=”：
C+K*cos(V)→X⊿“Y=”：D+K*sin(V)→Y ⊿“Q=”:Q-90*S2/(πA2)-90*J2/(πA2) →O ⊿
Else If W=1:Then Q+(U- B)→V:“X=”：C+K*cos(V)→X⊿“Y=”：D+K*sin(V)→Y⊿“Q=”: Q+90*S2/(πA2)-90*J2/(πA2) →O ⊿IfEnd:IfEnd:T=0=＞Goto 4:“XL=”:X+Z[1]*cos (O-T)⊿“YL=”：Y+Z[1]*sin(O-T) ⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]* sin(O+T)⊿ Goto 4说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不计算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 六、竖曲线计算 公式：H=X2/(2R)程序：“A”？→A：“H”？→H：“D”？→D：“T”？→T：“R”？→R：“I1”？→U：“I2”？→V：“K(ZHONG-DIAN)”：D+T→B ⊿“LY=”：B-A→E ⊿ Lbl 6:“K”？→K：V＞U=＞1→G：V＜U=＞-1→G：If K≤A:
2
Then D-K→L:H-LU→P:IfEnd:If K＞A And K＜D: Then K-A→L:H-U(D-K)+GL/(2R)→P: IfEnd:If K＞D And K＜B:Then B-K→L:H+V(K-D)+GL2/(2*R)→P:IfEnd:If K≥B: Then K-D→L:“H(SHEJI)=”：P ⊿ Goto 6说明：“A”为竖曲线起点桩号，“H”为起点高程，“D”为交点桩号，“T”为切线长，“R”为 竖曲线半径，“I1”、“I2”为第一、二坡度。输出：“H(SHEJI)=”为设计高程。注意的是：计算范围不能超出到下一个竖曲线范围内。
5800计算器全线坐标计算放样程序（修改版）
“XLZBJSCX” ◢ （ 第一个程序） Lb1 0 ↙
Cls : Fix 4 : 30→Dimz ↙
“XHS=\( 后视点 X) :\( 后视点 Y) :\( 置镜点 X) :\( 置镜点 Y) :Pol(G-M,L-N):\后视距 ) ◢ J<0=>J+360→J:\?DMS ◢ ( 后视方位角 )
Lbl 1 ↙ ( If （如果的意思） And （和字的意思） Then （然后的意思） ) “K=”?K ◢ （计算里程） ( 下面有色的是数据库 )
If （如果） K< 51760.052 本曲线 缓直点 桩号 And （ 和） K≥ 51048.785 上一个曲线 缓直点 桩号 ： Then （然后） 本曲线 缓直点 桩号 51760.052 →Z[1] : 上一个曲线 缓直点 桩号 51048.785 →Z[2] ： 1 -1 →O （注： 左偏曲线输 入 - 1→O, 右偏曲线输入 1→O ） : 偏角 12 ’ 23 ’ 19.5 ’ →A ： 半径 3289.486 →R : 第一缓和曲线 长度 0 →Z[6] : 第二缓和曲线 长度 0 →Z[7] : 交点 X 坐标 →B : 交点 Y 坐标 →C : 小里程向交点 方位角 →E : 交点向大里程 方位角 →F : Goto 2 : IfEnd ↙ ( 重兰字是输入的数字 )
???? （曲线段分段输入） 补充直线段输入如下
If （如果） K< 本段直线 终点 里程 And （ 和） K≥ 本段直线 起点 里程 :Then （然后） 1→O: 本段直线 终点 里程 →Z[3]: 终点 坐标 X→Z[16]: 终点 坐标 Y→Z[17]: 方位角 →E:Goto 4:IfEnd ↙ Lb1 2 ↙ （曲线要素计算）
Z[6] ÷ 2- Z[6]^ 3 ÷ (240R^2)+ Z[6]^ 5 ÷ (34560*R^4) →Z[8] ↙ （ M1 不输）
Z[7 ] ÷ 2- Z[7]^ 3 ÷ (240R^2)+ Z[7]^ 5 ÷ (34560 R^4) →Z[9] ↙ （ M2 不输） Z[6]^ 2 ÷ (24R)- Z[6]^ 4 ÷ (2688R^3) →Z[10] ↙ （ P1 不输） Z[7]^ 2 ÷ (24R)- Z[7]^ 4 ÷ (2688R^3) →Z[11] ↙ （ P2 不输） (πAR ) ÷ 180+0. 5 × ( Z[6]+ Z[7])→S ↙ （曲线总长）
90 × Z[6 ] ÷ ( R × π) →Z[14] ↙ （第一缓和曲线总偏角） ( ×÷以后自己改 ) 9 0 × Z[7 ] ÷ ( R × π) →Z[15] ↙ （第二缓和曲线总偏角 , 可以省略） Z[8] ＋（ R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12] ↙ ( 切线 T1) Z[9] ＋（ R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13] ↙ ( 切线 T2) B+ Z[12]*COS (E+180)→ Z[16] ↙ （ ZH 点 X ） C+ Z[12]*SIN(E+180)→ Z[17] ↙ （ ZH 点 Y ） Z[1]-S→Z[3] ↙ (ZH 点里程 ) Z[3]+ Z[6]→Z[4] ↙ (HY 点里程 ) Z[1]- Z[7]→Z[5] ↙ (YH 点里程 ) GOTO 3 ↙
LB1 3 ↙ ( 判断里程点与曲线关系 )
If K≤Z[3] And K> Z[2] : Then Goto 4 : IfEnd ↙ If K≤Z[4] A nd K> Z[3] : T hen Goto 5 : IfEnd ↙ If K≤Z[5] A nd K> Z[4] : T hen Goto 6 : IfEnd ↙ If K≤Z[1] A nd K> Z[5] : T hen Goto 7 : IfEnd ↙ LB1 4 ↙ （里程小于直缓点直线独立坐标）
K- Z[3] →X : 0→Y : E→T : Prog“TYZBCX” ： Goto 1 ↙ Lb1 5 ↙ （第一缓和曲线独立坐标） K- Z[3] →H ↙
H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →X ↙ H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Y ↙ 90*H^2/( R*π* Z[6]) →T ↙
IF O >0 ： Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙ PRrog“TYZBCX” ： Goto 1 ↙ Lb1 6 ↙ （圆曲线独立坐标） K- Z[4] →H ↙
H*180/( R*π)+ Z[14]→T ↙ R*SIN( T)+ Z[8]→X ↙
R*(1-COS (T))+ Z[10]→Y ↙
IF O >0 ： Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙ Prog“TYZBCX” ： Goto 1 ↙
Lb1 7 ↙ （第二缓和曲线独立坐标）
Z[1] -K →H ↙
H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7 ]^4) →U ↙ H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙ 90*H^2/( R*π* Z[7]) →T ↙
Z[13]COS (A)+ Z[12]-U*COS( A)-V*SIN (A)→X ↙
Z[13]*SIN( A)-U*SIN( A)+V*COS (A)→Y ↙
IF O >0 ： Then F-T→T : T<0=>360+T→T : Else F+T →T : IfEnd ↙ Prog“TYZBCX” ： Goto 1 ↙ 子程序：
“TYZBCX” ↙ （统一坐标计算） （ 第 2 个程序） IF O<0 : Then -Y→Y : IfEnd ↙
“QXJ=” :T ◢ （计算里程点切线方位角，可以不显示） Z[16]+X*COS (E)-Y*SIN( E)→Z[18] ↙
Z[17]+X*SIN (E ） +Y*COS (E ） →Z[19] ↙ “XI=” : Z[18] ◢ （ XI 中线 X ） “ YI =” : Z[19] ◢ （ YI 中线 Y ）
Pol(Z[18]-M,Z[19]-N):\ J<0=>J+360→J:\?DMS ◢ （ 中桩放样方位角）
“ PJ =”?P ◢ ( 输入边桩与线路夹角 PJ ，左偏 – 90 右 +90 ) “ PD =”?D ◢ （输入边桩距 PD ） Z[18]+D*COS(T+P) →Z[20] ↙ Z[19]+D*SIN(T+P) →Z[21] ↙
“XP=”: Z[20] ◢ （ XP 边桩 X ） “YP=”: Z[21] ◢ （ YP 边桩 Y ）
Pol(Z[20]-M,Z[21]-N):\ J<0=>J+360→J:\? DMS ◢ （边桩放样方位角）
Return ↙ （以上都要输进计算器）注解不输 K 里程 XI 中线 X YI 中线 Y PD 输入边桩距 XP 边桩 X 坐标 YP 边桩 Y 坐标 I 边桩放样距
PJ 输入边桩与线路夹角，左偏 – 90 右 +90 ) I 中桩放样距
T 计算里程点切线方位角，可以不显示