5800P计算器程序及使用说明 (1)
CASIO-fx-5800P实用工程测量程序
CASIO-fx-5800P实用工程测量程序今天，我想向大家介绍一款非常实用的工程测量程序：CASIO-fx-5800P。
CASIO-fx-5800P是一款非常实用的计算器，可以用于各种工程测量和计算。
在这篇文章中，我将详细介绍该计算器的功能和使用方法。
什么是CASIO-fx-5800P？CASIO-fx-5800P是CASIO公司的一款高级科学计算器，该计算器集成了丰富的计算功能和工程测量功能，可以帮助用户准确地进行各种计算和测量。
该计算器适用于各种工程测量、科学计算、数据分析等工作。
CASIO-fx-5800P的功能下面是CASIO-fx-5800P常用的功能：1. 基本运算功能CASIO-fx-5800P可以进行各种基本运算，如加减乘除、开方、开方根、倒数等等。
2. 三角函数和反三角函数CASIO-fx-5800P 提供了三角函数和反三角函数的计算功能，如正弦函数、余弦函数、正切函数、反正弦函数、反余弦函数、反正切函数等。
3. 统计学计算CASIO-fx-5800P 提供了各种统计学计算功能，如数据输入、平均数、方差、标准差、偏差等。
4. 矩阵功能CASIO-fx-5800P 可以完成任何矩阵的基本计算，如矩阵乘法、矩阵求逆、矩阵行列式、矩阵分解、矩阵特征向量和特征值等。
5. 工程测量CASIO-fx-5800P 可以进行各种工程测量计算，如距离计算、面积计算、容积计算、温度计算、时间计算等。
6. 复数运算CASIO-fx-5800P 可以进行各种复数运算，如加减乘除、转换成极坐标形式等。
7. 方程求解CASIO-fx-5800P 可以解各种方程，如一次方程、二次方程、三次方程、四次方程、多项式方程、微积分方程等。
CASIO-fx-5800P在工程测量中的应用下面，我将介绍CASIO-fx-5800P 在工程测量中的应用。
CASIO-fx-5800P 是一种非常实用的计算器，在工程测量中有着广泛的应用。
CASIO5800程序编辑说明
CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。
卡西欧5800P矩阵编程计算器说明书
1、程序 PR1，计算一个起点至任意个端点的边长与方位角
"X,Y DIST And BEARING PR1" Deg:ClrStat:FreqOff:Fix 3 "X0(m)="?A:"Y0(m)="?B 0K
② 在您购买的 fx-5800P 上按 键打开机器电源，按
(LINK) (Receive)键使您
的机器处于接收数据状态，屏幕显示“Receiving…”，表示机器正等待接收母机发送来的数据；
③ 在代理商的母机上按 键打开机器电源，按
(LINK) (Transmit) (All)
(Yes)键启动代理商的母机发送数据，屏幕显示“Transmitting…”，表示正在发送数据。
六十进制的角度值，应将光标移动到 List Y 的某个单元，按
键。
2、程序 PR2，极坐标法放样元素计算
"POLAR SETTING-OUT PR2" Deg:ClrStat:FreqOff:Fix 3 "XO(m)="?A:"YO(m)="?B "X0(m)="?C:"Y0(m)="?D Pol(C-A,D-B):Cls If J<0:Then J+360 E:Else J E:IfEnd "DIST O 0(m)=":I "BEAR O 0(DMS)=":E DMS 1 K:I List X[K]:E List Y[K]
提示输入 n 点的 y 坐标 调用极坐标函数并清除屏幕显示
5800P计算器程序
FX5800计算器公路测量常用程序集一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C 型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。
3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。
0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂H=＂:Lcoate 6,4,H-Z[9]：＂I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂LGD=＂:Lcoate 6,4,P：＂RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0.75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfEnd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂LX=＂:Locate 6,4,T：Prog＂ZD＂:＂TW=＂:Lcoate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:”TW=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z →Z[9]:Prog”C”:L→Z[10]:Prog”K”:Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S:S=0=>Goto 1: √(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2)-V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ”LX=”: Locate 6,4,L:Prog”ZD”:“H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos(S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→D:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:H ÷2-H∧(3)÷240÷R2+ H ∧(5)÷34560÷R∧(4)- H ∧(7)÷8386560÷R∧(6)+ H ∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:ILbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名： C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:”FWJ=”: Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
卡西欧fx-5800p计算器 公路测量常用程序
FX-5800p计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
5800P计算器程序及使用说明 (1)
1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛QQ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。
一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。
在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。
所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。
那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。
即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元。
各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。
圆曲线单元是始终保持某一半径和相应曲率不变的线型。
缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。
完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。
于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。
LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZBN(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZBN(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QDBJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC(L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E。
卡西欧5800P计算器程序介绍
卡西欧5800P计算器程序FS反算主程序Lbl 1：已知坐标和近似里程（桩号）Lbl 2：SJK1（数据库）Lbl 3、Lbl 4：求的里程和偏距XJK3Z：实测高程，设计半径等，求的超欠信息GCJS高程计算（张树彬）BGJSSUB1SUB2TYQXJSQXJS 曲线计算DB1 :线元要素输入子程序SUB1：计算SUB2：计算偏距子程序XJK3Z：横坡以及纵坡子程序ZZ：超欠子程序Tanhui 谭辉SUBQ2-81SUBQ2-82SUBQ2-83SUBQ2-84SUBQ2-85SUBQ2-86ZTCZ 隧道左线数据库（主程序）ZTCY 隧道右线数据库（主程序）ZGCJC（左洞高程计算）已知K：里程、A：偏距、Z：判定左右洞、H：高程XJK3Z：右洞纵坡数据库ZFDMYGCJC（右洞高程计算）已知K：里程、A：偏距、Z：判定左右洞、H：高程XJK3Y：右洞纵坡数据库ZFDM：XJK4Y：右洞横坡数据库SJK4Z：左洞横坡数据库YFS：右洞反算主程序SJK2STJS：XJK3Y：纵坡数据库If……：Then……IfEndIf……：Then……Else……IfEndIf……：Then If……Then……Else……IfEnd：Else……IfEnd（有几个If，就要有几个IfEnd。
）Cls：“K=”：Locate 3，1，K：“DP=”：Locate4，2，Z：“X=”：Locate3，3，X：“Y=”：Locate3，4，Y◢Cls：“SJGC=”：M◢。
CASIO Fx-5800P计算器测量计算程序
CASIO Fx-5800P计算器测量计算程序一、井下斜距改成平距和高差的计算程序“SJ=”？S：“CZJ=”？B：“YQG=”？C：“QSG=”？DS×cos(B)→LS×sin(B)-C+D→V“L=”：L◢“GC=”：V◢CLS说明：SJ→斜距；CZJ→垂直角；YQG→仪器高；QSG→前视高；L→平距；GC→高差。
二、测量基本控制导线坐标计算程序“L=”？L：“GC=”？V：“SBJ=”？AW+A→WIF W＜180：Then W+180→W: Else W-180→W: IFEndIF W＜360：Then W→W: Else W-360→W: IFEndIF W＜360：Then W→W: Else W-360→W: IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“FWJ=”:W DMS◢“X=”：X◢“Y=”：Y◢“Z=”：Z◢CLS说明：(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、L→平距；GC→高差；SBJ→水平角；FWJ→方位角；X→X坐标；Y→Y坐标；Z→高程。
三、井下测量导线坐标计算程序“SJ=”？S：“CZJ=”？B：“YQG=”？C：“QSG=”？D ：“SBJ=”？A S×cos(B)→LS×sin(B)-C+D→VZ+V→ZW+A→WIF W＜180：Then W+180→W:Else W-180→W:IFEndIF W＜360：Then W→W:Else W-360→W:IFEndIF W＜360：Then W→W:Else W-360→W:IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“L=”：L◢“GC=”：V◢“FWJ=”:W DMS◢“X=”：X◢“Y=”：Y◢“Z=”：Z◢CLS说明：(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、SJ→斜距；CZJ→垂直角；YQG→仪器高；QSG→前视高；L →平距；GC→高差；SBJ→水平角；FWJ→方位角；X→X坐标；Y→Y坐标；Z→高程。
fx-5800计算器编程(原创)-40页文档资料
第 1 页卡西欧Ｆｘ－５８００Ｐ计算器一、Ｆｘ－５８００Ｐ编程命令１、基本操作命令（１）分隔语句。
不停止程序的执行。
（２）（３）（４）２、关系运算子３、转移命令（１） ｎ。
第 2 页（２）及后面的所有见容。
＜变量＞值为零，则会跳过语句１和语句２以及执行该命令后的所有内容。
（３）＜变量＞值非零，则执行语句１，然后执行语句２以及后面的所有见容。
＜变量＞值为零，则会跳过语句１和语句２以及执行该命令后的所有内容。
（４）４、控制结构命令：（１）（２）之间语句的执行重复进行，每次执行控制变量都加１（从始值开始）。
当控制变量的值到达终值时，执行会跳至Ｎｅｘｔ后面的语句。
如果Ｎｅｘｔ后面没有语句，则停止程序的执行。
（３）第 3 页（４）５、子程序调用命令（１）从当前程序（主程序）执行另一个其它程序（子程序）。
最多可以嵌套１０层子程序。
６、程序控制命令（１）（２） 从子程序返回调用此子程序的程序。
在主程序中，此命令会终止程序。
（３） 强制终止程序执行。
在子程序中执行此命令会终止所有执行，包括所有子程序和主程序。
７、输入／输出命令（１） 返回如下代码之一（对应按的最后一个键）。
如果未按键，则返回０。
８、显示屏幕命令（１） 显示为注释文本。
（２） 清除显示器中的所有表达式和计算结果。
（３）在指定的屏幕位置显示指定值或字符串。
９、逻辑运算子命令（１）运算两端的表达式（相等或不相等），并基于它们的逻辑积返回真或假。
（２）运算两端的表达式（相等或不相等），并基于它们的逻辑积返回真或假。
（３）运算后面紧邻的表达式（相等或不相等），并返回其非值。
１０、清除命令（１）清除所有列表数据。
（２）将所有变量清零。
（３）清除所有矩阵存储器的内容。
（４）清除所有公式变量。
二、Ｆｘ－５８００Ｐ涵数命令１、绝对值２、正弦涵数３、余弦涵数４、正切涵数第 4 页三、ｆｘ－５８００Ｐ计算器编程１、线路坐标计算［ＸＬＪＳ］（主程序）使用说明（１）功能计算线路中桩、边桩坐标。
CASIO fx-5800P线元法坐标正反算程序
CASIO fx-5800P线元法坐标正反算程序说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。
该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。
主程序名：ABCYT第1步Deg：Fix 3：10→DimZ第2步Lbl 3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂DK＂?S：Prog＂ABCYTSJ＂：If P=0：Then 10^(45)→P：IfEnd：If R=0：Then 10^(45)→R：IfEnd第3步1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If W=1：Then Goto 1：Else Goto2：IfEnd第4步Lbl 1：＂W＂?Z：＂α＂?N：Abs(S-O)→W：Prog ＂ABCYTZ＂第5步Cls：＂F=＂：Locate 3,1,F°：＂X=＂：Locate 3,2,X：＂Y=＂：Locate 3,3,Y◢第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate 3,1,H◢第7步1→W：90→N：Goto 3第8步Lbl 2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S第9步Cls：＂K=＂：Locate 3,1,S：＂S=＂：Locate 3,2,Z◢第10步2→W：Goto 3正算子程序名：ABCYTZ第1步0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L第2步1-L→F：1-K→M第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W×D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W×D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y第5步G+Q×E×W×(C+W×D)→F：F+ N→Z[1]第6步X+Z×cos（Z[1]）→X：Y+Z×sin（Z[1]）→Y反算子程序名：ABCYTF第1步Lbl 2：（S-O）→W：0→Z：Prog ＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10]第2步If Abs(Z[10])>0.001：Then S+Z[10]→S：Goto 2：Else Goto 1：IfEnd第3步Lbl 1：(Y-J)÷sin(Z[9])→Z第4步Pol(X-I，Y-J)：If Z<0：Then -1×I→Z：Else 1×I→Z：IfEnd数据库名：ABCYTSJ第1步Goto1第2步Lbl 1：If S<7586.707 Or S>13346.96：Then Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl 1：IF S<7946.707：Then 98°56′56″→G：7586.707→o：3378605.445→U：453648.704→V：0→P：4500→R：360→H：1→Q：Return：IfEnd第5步Lbl 1：IF S<11766.03：Then 101°14′26″→G：7946.707→o：3378544.714→U：454003.518→V：4500→P：4500→R：3819.323→H：1→Q：Return：IfEnd第6步Lbl 1：IF S<12126.03：Then 149°52′11″→G：11766.03→o：3376389.890→U：457018.324→V：4500→P：0→R：360→H：1→Q：Return：IfEnd第7步Lbl 1：IF S<13346.96：Then 152°09′41.68″→G：12126.03→o：3376073.846→U：457190.654→V：0→P：0→R：1220.93→H：0→Q：Return：IfEnd第n步……………………………………………………数据输入说明：第1步Goto1第2步Lbl 1：If S<本条线路起点里程S>本条线路止点里程Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl 1：If S<本线元止点里程：Then线元起点切线方位角→G：线元起点桩号→O：线元起点坐标X→U：线元起点坐标Y→V：线元起点半径（直线为0、曲线为半径）→P：线元止点半径（直线为0、曲线为半径）→R：线元长度→H：线元转向（左转为-1、右转为1、直线为0）→Q：Return：IfEnd第n步Lbl 1：每增加一行则为增加一个线元要素。
fx-5800p计算器程序
X=RB-SC（32005.7801+V(133.9123+0.7032V)）;
S=SinB;C=CosB;V=Sin2B;R=6367558.49686;B为纬度。
T=tgB;h=T2;E=67.385254×10-4；M=W2；W=CosB;
Q=l+E;N=6399698.90178/ ;l=L+L0。
具体操作步骤
步骤
按 健
显 示
步骤
按 健
显 示
1
AC
光标闪动
2
FILE
文件屏幕
3
上下移光标
DA HUAN ZHI
4
EXE
B=?
5
43°42′10″EXE
L=?
6
127°26′51″EXE
A=
7
129 EXE
P=?
8
6EXE
X=4842055.202
9
EXE
Y=22374857.150
10
EXE
OK
计算结果：X=4842055.202;Y=22374857.150
“Y=”：D+（（（（H-18）H-（58H-14）E+5）M÷20+Q-H）M÷6+1）NW◣
”OK”
4、变量名称和存储器内容
此程序是大地坐标化为直角坐标，即B、L坐标化为X、Y坐标。
B-----该计算点的纬度（°′″）；
L-----该计算点的经度（°′″）；
A------经度所在中央子午线度数（°）；
EXE
H=319.709
27
EXE
OK
计算结果
边号
水平距离
[正反算]卡西欧 CASIO fx-5800P连算程序
![[正反算]卡西欧 CASIO fx-5800P连算程序](https://img.taocdn.com/s3/m/e4cb1bef81c758f5f61f6726.png)
CASIO fx-5800P坐标正反算程序[已核对]一、程序内容1、主程序名:ABCYTDeg:Fix 3Lbl 4:＂1.DK=>XY＂:＂2.XY=>DK＂:＂J＂?N:＂DK＂?S:Prog＂CYT1＂↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=>Goto1:Goto2:↙Lbl 1:＂W＂?Z:Abs(S-o)→W:Prog＂CYT2＂:＂X=＂:X◢＂Y=＂:Y◢F-90→F:＂FWJ=＂:F▲DMS◢Goto4↙Lbl 2:?X:?Y:X→I:Y→J:Prog＂CYT3＂:o+W→S:＂DK=＂:S◢＂W=＂:Z◢Goto4↙2、正算子程序名:CYT20.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C +MWD)))→X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C +MWD)))→Y:G+QEW(C+WD)+90→F:X+Zcos（F）→X:Y+Zsin（F）→Y↙3、反算子程序名:CYT3G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→Z:Lbl 0:Prog ＂CYT2＂:T+QEW(C+WD)→L:(J-Y)cos（L）-(I-X)sin（L）→Z:IF Abs（Z）<10^(-6):Then 0→Z:Prog ＂CYT2＂:(J-Y)÷sin（F）→Z↙Else W+Z→W :Goto 0:IfEnd↙4、数据库名:CYT1Goto1↙Lbl 1:IF S<7946.707:Then 98°56′56″→G:7586.707→o:3378605.445→U:453648.704→V:10^(45)→P:4500→R: 360→H: 1→Q:Return:IfEnd↙Lbl 1:IF S<11766.03:Then 101°14′26″→G:7946.707→o:3378544.714→U:454003.518→V:4500→P:4500→R: 3819.323→H: 1→Q:Return:IfEnd↙Lbl 1:IF S<12126.03:Then 149°52′11″→G:11766.03→o:3376389.890→U:457018.324→V: 4500→P: 10^(45)→R: 360→H: 1→Q:Return:IfEnd↙Lbl 1:IF S<13346.96:Then 152°09′41.68″→G:12126.03→o:3376073.846→U:457190.654→V:10^(45)→P: 10^(45)→R:1220.93→H:0→Q:Return:IfEnd↙CYT1数据库说明:Goto1↙表示同时保存多个曲线要素Lbl 1:IF S<***线元终点里程:Then***线元起点方位角→G:***线元起点里程→O:***线元起点X→U:***线元起点Y→V:***线元起点曲率半径→P:***线元终点曲率半径→R: ***线元起点至终点长度→H:0→Q:Return:IfEnd↙（H=0或1、-1，详情附后）。
5800P计算器)程序(附带高程)
一、功能及原理说明1. 功能说明：本程序由一个主程序(1-MAIN)和七个子程序——正算子程序(1-SUB-ZS)、反算子程序(1-SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。
本程序在CASIO FX-5800P计算器运行。
2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<=0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出反算结果。
3. 程序输入计算器后，请根据统计串列List X，Y，freq[N]在程序中实际可能被使用的维数，将其统计矩阵串列改为包含相应维数的任意数据的矩阵，即在list列表中随机输入相应维数的数据，保证矩阵大小符合维数要求。
4. 本程序正算速度在1-2秒左右，反算比正算慢点，可根据需要调整精度加快速度。
本程序可建立曲线要素数据库及高程变坡点数据库，一次输入整条线路数据，计算时自动调用数据库，实现全线贯通，也可临时手动输入线元计算要素进行计算。
5. 本程序由小骆在前人的基础上改进而成，经个人测试可用。
学识浅薄，不足之处，在所难免，欢迎提出改进意见。
交流邮箱：716118673@二、源程序1.主程序(1-MAIN)Deg:fix 320→DimZLbl 0:cls：“INPUT(0),ZX(1),YX(2)”?I (选择手动输入计算参数0，还是调用线路数据1,2）If I=0:Then Prog “1-DAT1”:IfEnd“SZ=>XY(1),XY=>SZ(2)”?N（正算，反算）If N=1 :Then Goto 1Else If N=2 :Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“KP=”?S（输入待求桩号）If S<0:Then Goto 0:IfEnd“JL(m)=”?Z （输入偏距）If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd （输入斜交右角）If I≠0:Then Prog “1-DAT2”:IfEndS-O→W:If W<0:Then Goto 0:Else If W>H:Then cls:locate 6,2,"KP OUT"◢Goto 0:IfEnd:IfEnd(前半条针对“DAT”情况，后半条针对“INPUT”情况。
5800计算器使用说明[1]
![5800计算器使用说明[1]](https://img.taocdn.com/s3/m/eaa682a4284ac850ad024263.png)
5800计算器使用说明1.Norm 1 指数显示Norm 2 小数显示2.?→x 只显示？字符+?→x 显示字符+？？x 显示x?“字符”？x 显示字符+？有→则不显示该变量当前值3.（判断表达式）语句1 : 语句2。
如果判断表达式为真（或非零），则不跳过语句1.如果判断表达式为假（或是零），则会跳过语句1.4. If...then…else…ifend如果语句为真，则执行then（不执行else）,然后执行ifend.如果语句为假，则执行else（不执行then）,然后执行ifend.5. Break 中断语句中断For，Do，While循环，并从该循环的下个命令起继续运行6. Dsz使控制变量递减一，在变量的值为零时执行转移7. IszIsz<变量>:<语句1> <语句2>，变量应为A~Z以 1 为增量逐次增加变量的值，当变量的值不等于0 时，执行语句1，否则执行语句28. ClsDsz<变量>:<语句1> <语句2>。
变量应为A~Z。
以1 为减量逐次减小变量的值，当变量的值不等于0 时，执行语句1，否则执行语句29. Locate 定位显示语句句法1：Locate <列数>, <行数>,<数值>句法2：Locate <列数>, <行数>,<表达式>句法3：Locate <列数>, <行数>, "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符，因此定位语句中的列数值应为大于等于1、小于等于16 的整数，行数值应为大于等于1、小于等于4 的整数。
10. Lbi n ~ Goto n Goto n~Lbl n无条件转移至Lbi n 位置11. Getkey返回与上次按键相对应的代码,Getkey=12. DO ~ LpWhile循环语句Do <语句块> LpWhile<条件>先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。
公路测量计算程序fx-5800P操作手册(无图片版)
fx-5800P矩阵编程计算器《公路测量计算程序操作手册》感谢您fx-5800P矩阵编程计算器公路测量计算程序！本次fx-5800P程序提供公路路线计算、高程计算、测量放样计算、交会计算等计算程序。
本程序特色为公路测量的全部数据（包括路线平面曲线，竖曲线，横坡度，路基宽度，路面结构层，水准点，导线点数据）储存在一台计算器上，紧密结合计算，实现外业或计算过程只要计算器一台，无需设计图纸。
愿它给您的工程测量工作带来更大的方便，有误或有改进的地方敬请向联系作者指出以便完善改进。
本程序只能在fx-5800P 中运行，不能在fx-4500PA、fx-4800P及fx-4850P中运行！主程序名都是以字符、“11…”“23…”开头命名的，其余字符开头的程序均为子序（见下表表备注栏），用户只能运行“11…”~“92…”主程序，不能直接运行子程序。
一、程序名及其功能列于表：二、各程序代码：1、程序11FY，计算输出路线放样坐标及方位角、距离。
"XZ" 显示XZ （提示为测站X坐标）Locate 8,2,Z[1] 显示Z[1]值（测站X坐标）"":"YZ":W▲换行后显示W值（测站Y坐标）Lbl 0Prog "13ZW" 调用13ZWPol(X-Z[1],Y-W)If J<0:then J+360→J:IfEnd 变量J的值在0~360度之间Prog"9" 变量J的转换成度分秒Locate 9,3, J 在9列3行显示J的值Fix 3Locate 1,1, "X" 显示计算结果Locate 1,2, "Y"Locate 1,3, "J···" 角度（度分秒）Locate 1,4, "D(m)"Locate 8,4, I""▲程序暂停，等待用户输入EXE后继续ClsProg"DLP"Goto 02、程序12CZZB，输入测站数据（XY），可输入已储存控制点编号"XZ"？W 提示XZ，输入测站X坐标If W<2000:Then Prog "62DS":Else W→Z[1] 2000表示编号少于2000，如大于2000则认为是X坐标值"YZ"？W"X":Z[1]▲"Y":W▲IfEnd3、程序13ZW，输入桩号，计算设计坐标10→DimZ 增加10个扩展变量L→Z[10] Z[10]为中间变量，以实现桩号自动递增或递减Prog "P""JJ"?M 提示JJ，输入与路线前进方向的右交角"DR+L-"?N 提示DR+L-，输入与中桩的距离，右正左负F+M→F 计算出中点至所要计算点的方位角Fix 3：X+Ncos(F) →XClsLocate 8,1,X 输出X坐标Y+Nsin(F) →YLocate 8,2,Y输出Y坐标4、程序HB-B^(5)÷(40A^(4))+B^(9)÷3456÷A^(8)→CB^(3)÷(6A2)-B^(7)÷336÷A^(6)+B^(10)÷42240÷A^(10)→DB2÷2÷A2÷π×180→E5、程序GS注：本程序可设定改线范围后，参照程序PP储存数据。
卡西欧FX5800P编程计算器应用及程序.
1
号点，后视为 2 号点。
Prog FXA
Norm 1:?N:N=2=>Goto 0:N=2=>Goto 1: “ = ”: ◢
“ X0+Y0i ” ?M:List X[M]+List Y[M]i->C:Lb1 0“ X+Yi”?T:T=0=>Goto 1:T->K:?L:List
FX5800卡西欧计算器应用及程序
第一章 计算器语法与模型
一、复 数 部 分
1.1 、计算中的复数形式
5800P 计算器只能对直角坐标与极坐标表示的复数进行计算，其数学表示形式分别如 下：
（ 1-1 ）
（ 1-2 ）
要求 在计算器中的表示格式为：
为复数的实部（测量系中的 X 坐标）， 为复数的虚部（测量系中的 Y 坐标）。
该值。最多可以输入 199 个数据，输入的数据直到删除与使用复位计算器时才会丢失数据。
在 SD模式下，虽然只显示 X 值，但计算器内部会对 X 值提供一个 Y 值，只不过始终为 0 而
已。
且行天涯
804963666
1
FX5800卡西欧计算器应用及程序
插入行，在 SD或 REG模式下将光标移到要插入行的位置，按 以在光标所处的行的上面行插入新行了。需要删除输入的数据时，在 FUNCTION-> 5-> 1-> 2 再“确认”就可删除统计储存器中的数据。
式中 A 是点号， C 是任意储存单元。具体示例详见“程序部分” -> “极程序放样”
（ 2）、利用统计计算（ SD/REG）
1、以
形式输入坐标的复数并存入相应的单元后，就可以使用复数运算命令提取
单元中的复数了。例 ( 坐标换算的尺度比例计算 )
卡西欧fx-5800p计算器测量程序
卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。
卡西欧CASIOfx5800P使用说明书
附录A CASIOfx-5800P 编程计算器使用简介
h
58 L/O/G/O
h
59 L/O/G/O
h
60 L/O/G/O
h
61 L/O/G/O
h
62 L/O/G/O
h
63 L/O/G/O
h
64 L/O/G/O
h
65 L/O/G/O
h
66 L/O/G/O
h
67 L/O/G/O
h
68 L/O/G/O
h
69 L/O/G/O
[例A-10] 编写一个程序，计算表中 0点分别→1，2，3，4点的边长与方位角， 要求方位角以六十进制度显示。
• 可对矩阵进行加、减、乘、行列式、转置与求逆计算。
• ⑦ 可计算二元~五元线性方程组及一元二次与一元三次 方程的数值解。
• ⑧ 数据通讯。可以在两台fx-5800P间进行数据通讯，便 于用户相互交换程序及其它数据。
h
7
两台fx-5800P相互传输程序
h
8 L/O/G/O
fx-5800P数据通讯口
h
21 L/O/G/O
h
22 L/O/G/OBiblioteka h23 L/O/G/O
h
24 L/O/G/O
线性与数学显示格式案例
h
25 L/O/G/O
h
26 L/O/G/O
h
27 L/O/G/O
h
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛QQ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。
一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。
在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。
所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。
那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。
即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元。
各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。
圆曲线单元是始终保持某一半径和相应曲率不变的线型。
缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。
完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。
于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。
LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZBN(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZBN(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QDBJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC(L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E。
+(X-D)÷C+H(X-D)2),D,O)→ZB+∫(Sin(E。
+(X-D)÷C+H(X-D)2),D,O)→Y“FYD ZB N(X)=”:Z+I→Z:Z◢“FYD ZB E(Y)=”:Y+J→Y:Y◢Pol(Z-R,Y-S)If J＜0:Then J+360→J:IfEndIf J≥360:Then J-360→J:IfEnd“CZD-FYD FWJ=”:J▶DMS◢“CZD-FYD PJ=”:I◢“＋－×÷END＋－×÷”:Goto A:Lbi B:”CHAO CHU DAN YUAN FAN WEI”:Goto A:Lbi C:”DAN YUAN FANG YANG JIE SHU”:Goto D三，注意事项：上面程序适用于直线、圆曲线、完全缓和曲线和不完全缓和曲线的各类型的计算。
所以，该程序适用于铁路、公路任何线型线路单元的中桩切线方位角和中、边桩坐标计算的通用公式。
实际使用上述程序时，还应注意一下几点：1.若计算直线单元时，则起终点的半径均为正的无穷大（取Ra=Rb=1×1010）;2.若计算圆曲线单元时，则起、终点的半径均等于其圆曲线的半径（Ra=Rb=R）;3.若计算完全缓和曲线单元时，则与直线相连接的一端，其半径为无穷大（取R=1×1010）；与圆曲线相连接的一端，其半径为所连接的圆曲线半径；4.若计算不完全缓和曲线单元时，则起终点半径分别为其两端所连接的圆曲线半径；5.若用于曲线单元的计算，则由线路单元的起点向终点方向确定曲线的左、右转向6.一般情况下，线路单元的起终点是顺里程方向确定的，即起点里程小于终点里程，其起终点和单元任一待求中桩点的里程均为正数（LA、LB、Li均为正）。
若线路单元的起终点是???绿里程方向确定的，即起点里程大于终点大于终点里程，则其起、终点和单元上任一待求中桩点的里程均为负数（LA、LB、Li均为负），且起点切线方位角，线路的左、右转向及线路的左、右边均与上述相反。
四，计算器屏幕字符提示说明1.输入已知数据的提示GTL ZHY ZBZ FYJS(提示公路铁路直缓圆中边桩放样计算的程序已启动)CZD ZB N(X)=?(提示输入测站点坐标N(X))CZD ZB N(X)=?(提示输入测站点坐标E(Y))DY QD ZB N(X)=?(提示输入单元起点坐标N(X))DY QD ZB E(Y)=?(提示输入单元起点坐标E(Y))DY QD BJ (R1)=?(提示输入单元起点半径(R1))DY QD LC (L1)=?(提示输入单元起点里程(L1))DY QD QX FWJ=?(提示输入单元起点切线方位角)DY ZD BJ(R2)=?(提示输入单元终点半径(R2))DY ZD LC(L2)=?(提示输入单元终点里程(L2))DY QD—ZD QX ZX （Z=-1；Y=+1）=？（提示输入单元起点一终点曲线转向（左输入-1，右输入+1））FYD DY ZZ LC=？（提示输入放样点对应中桩里程）ZZ—BZ FXJ（Z--；Y+）=？（提示输入中桩—边桩方向角（左边桩输入负角，0~180；右边桩输入正角，0~180））ZZ—BZ PJ=？（提示输入中桩—边桩平距，平距不分正负，均输入正数）任何线型的线路单元，均需要输入以上13个已知数据，可从线路设计文件资料中查取。
2.程序计算数据的提示ZZD QX FWJ=（提示计算的中桩点的切线方位角）FYD ZB N(X)=（提示计算的放样点坐标N(x)）FYD ZB E(Y)=（提示计算的放样点坐标E(Y)）CZD—FYD FWJ=(提示计算的测站点—放样点方位角) CZD—FYD PJ=（提示输入的测站点—放样点平距）＋－×÷EDN＋－×÷（提示一点的计算已经结束）CHAO CHU DAN YUAN FAN WEI （提示放样中桩点的里程已经超出单元范围）DAN YUAN FAN YANG JIE SHU （提示本线型单元放样结束）五．程序算例一段公路、铁路中线各单元端点的线路设计资料2．公路立交匝道完全与不完全缓和曲线中边桩坐标的计算程序（BWZHQXZBZ JS）一，计算程序Deg;fix 4:O→I：O→J“HHQX QD ZB N(X)=”?A”:”HHQX QD ZB E(Y)=”?B：”HHQX QD QX FWJ=“?C:”HHQX QD LC(L1)=”?D:”HHQX QD BJ(R1)=”?E:”HHQX ZD BJ (R2)=”?F:”HHQX ZD LC(L2)=”?GIf E＞F:Then GotoB:E1se Goto C:IfEndLbi B:1→Z:”R1＝＞R2 QX ZX(Z=-1,Y=1)=”?Q:If Q=1:Then 1→U:E1se -1→U:IfEnd:Goto DLbi C:If Z=-1:”R1=＞R2 QX ZX(Z=-1,Y=1)=”?Q:If Q=-1:Then 1→U:E1se -1→U:IfEndLb1 D:Abs(G-D)→H:Abs(FH÷(E-F))→K:√(EK)→L:C-90QK2÷(∏L2) →MLbI A:”CSD DY ZX LC=”?S:”Z-Y PXJ=”?V:”Z-Y PJL= “?R:IF E﹥F:Then Goto E:Goto f:IfEndLb1 E:If D<G:Then K+S-D→N:E1se K-S+D→N:I fEnd:Goto GLb1 F:D<G:Then K-s+D→N:E1se K+S-D→N:IfEndLb1 G:”ZXD QX FWJ=”:M+90QN2÷(∏L2)→T:T▶DMS ◢N-K-(N∧(5)-K∧(5)) ÷(40L∧(4)+(N∧(9)-K∧(9)÷(3456L ∧(8))-(N∧(13)-K∧(13))÷(599040L∧(12))+(N∧(17)-K∧(17))÷(17542600L∧(16))→O:(N∧(3)-K∧(3))÷(6L2)-(N∧(7)-K∧(7)) ÷(336L∧(6))+(N∧(11)-K∧(11))÷(42240L∧(10))-(N∧(15)-K∧(15))÷(9676800L∧(14))+(N∧(19)-K∧(19))÷(3530097000L∧(18))→PT+V→W:Rec(R,W):”CSD ZB N(X)=”:A+ZOcos(M)-UPsin(M)+I→X:X◢“CSD ZB E(Y)=”:B+ZOsin(M)+UPcos(M)+J→Y:Y◢“+ -×÷END+ -×÷”:GOTO A二，屏幕提示在应用计算程序计算中边桩点的坐标时，根据程序计算步骤和顺序，计算器显示屏上显示以下输入已知数据和程序计算结果的提示：HHQX QD ZB N(x)=？（提示输入缓和曲线起点（R1点）的N（X）坐标）HHQX QD ZB E(Y)=？（提示输入缓和曲线起点（R1点）的E（Y）坐标）HHQX QD QX FWJ=？（提示输入缓和曲线起点（R1点）的切线方位角）HHQX QD LC=？（提示输入缓和曲线起点（R1点）的里程）HHQX QD BJ（R1）=？（提示输入缓和曲线起点（R1点）半径R1）HHQX ZD BJ（R2）=？（提示输入缓和曲线终点（R2点）半径R2）HHQX ZD LC=？（提示输入缓和曲线终点（R2点）的里程）R1=＞R2 QX ZX：Z（-1）；Y（+1）=？（当R1＜R2时，提示输入缓和曲线从R1→R2的曲线转向系数。
左转输入-1，右转输入+1；当R1＞R2时，提示输入缓和曲线从R1→R2的曲线转向系数。
左转输入+1，右转输入-1；）CSD DY ZX LC=？（提示输入缓和曲线段的测设点对应于中线里程）Z—Y PJL=？（提示输入左，右测设点距中线桩的距离，距离一律输入正数）ZXD QX FWJ=（提示计算的缓和曲线中线点的切线方位角（由R1→R2切线方向））ZBZ ZB N（X）=（提示计算的缓和曲线中，边桩点的N（X）坐标）ZBZ ZB E（Y）= （提示计算的缓和曲线中，边桩点的E（Y）坐标）＋－×÷END＋－×÷（提示一点计算已结束）三，程序算例1，已知：X1=6064.571 Y1=3236.072 L1=K0+489.154 R1=200 X2=6041.694 Y2=3270.856 L2=K0+531.154 R2=60L12=42（左转向曲线，输入系数-1）2，计算：（1）计算ɑ值，ɑ=136 36 21.38（2）计算X ZH，Y ZH值：X ZH=6077.462，Y ZH=3223.512（3）计算不完整缓和曲线段各桩号左（10m），中，右（10m）点的坐标程序算例计算数据汇总表四，程序应用说明1.本计算程序既可用于连接大半径的圆曲线的不完全缓和曲线的计算，也可以用于连接小半径圆曲线的不完全缓和曲线的计算；既可以用于R1﹥R2的不完全缓和曲线的计算，也可以用于R1﹤R2的不完全缓和曲线的计算；既可以用于由R1到R2顺里程的不完全缓和曲线的计算，也可以用于R1到R2的逆里程的不完全缓和曲线的计算，既可以从不完全缓和曲线两端的任一端来计算。