CASIO fx5800P公路施工放线测量公式及程序11.4.14

一、QXFY 辛甫森公式放样程序1. “X0”? U：“Y0”?V2. “XA”? A：“YA”? B：“CA”? C：“1÷RA”?D：“1÷RB”?E：“KA”?F：“KB”? G3. Lb1 1：“KI”?H：“JJ”?L：“Y+Z－”?R4. If H>G Or H<F : Then Goto 1: IfEnd6. (E-D) ÷Abs(G-F) P: Abs(H –F)→Q：P×Q→Z：D+Z→T7. C+（Z+2D）Q×90÷π→W :“QXFWJ”：8. C+(Z÷4+2D)Q×22.5÷π→M：C+（3Z÷4+2D）Q×67.5÷π→N：C+(Z÷2+2D)Q×45÷π→K9. A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W+L) →X：“X＝”：X10. B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(W))÷12+Rsin (W+L)→Y：“Y＝”：Y11. Pol((X-U)，（Y-V）)If J≤0 Then J+360→J: IfEnd : “FWJ”:J12. “JU”: I13. 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)X0Y0KB本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。

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 是一种非常实用的计算器，在工程测量中有着广泛的应用。

FILE非常好用的卡西欧5800p程序一、坐标反算(XY--FD)Deg：Fix 3↓(换行)Lbl 0↓〝X0=〞?A:〝Y0=〞?B:〝XN=〞?C:〝YN=〞?D↓(换行)Pol（（C-A）,(D-B)）J＜0＝＞J+360→J↓(换行)〝JL=〞：I◢〝FWJ=〞：J：▶DMSGoto 0二、坐标正算(DF--XY)Deg：Fix 3↓(换行)〝X0=〞?A；〝Y0=〞?B：〝L=〞?L：〝C=〞?C↓(换行)A+Lcos(C)→X↓ B+Lsin(C)→Y↓〝X=〞：X◢〝Y=〞：Y◢三、直线段中桩、边桩坐标计算（该程序从起点往终点计算）(ZX)1、Deg：Fix 3↓(换行) 设置小数保留位数2、Lbl 1↓程序标签3、〝X0〞?X：〝Y0=〞?Y：〝K0=〞?E：〝FWJ=〞?J↓赋值起点坐标、桩号、走向方位角4、?K：?L：?A↓输入所求的桩号、边距、相对于主线的方位角（如果只计算中桩坐标，边距及方位角皆为0）5、X+(K-E)cos(J)+Lcos(J+A)→C↓计算坐标X6〝XP=〞：C◢显示坐标X7、Y+(K-E)sin(J)+Lsin(J+A)→D↓计算坐标Y8、〝YP=〞：D◢显示坐标Y9、Goto 1↓转向程序标签循环执行计算四、圆曲线坐标计算程序（该程序从起点往终点计算）(YQX)1、Deg：Fix 3↓(换行)2、Lbl 0：3、〝K0=〞?K：?X：?Y：?A：?R：4、〝L=-1，R=+1〞：?G：5、〝ZS=0，FS≠0〞：?S：6、S≠0 =＞Goto 1↓7、〝Ki〞?Z↓8、90(Z-K)÷(∏R)→B↓9、2RsinB→D↓10、〝Xi=〞：X+Dcos（A+GB）→P◢11、〝Yi=〞：Y+Dsin（A+GB）→Q◢12、A+180G(Z-K)÷(∏R)→0↓13、〝ZBJ〞？E↓14、〝XiL=〞:P+Ecos(0-90) ◢15、〝YiL=〞:Q+Esin(0-90) ◢16. 〝YBJ〞？F↓17、“XiR=”:P+Fcos(O+90)◢18、“YiR=”:Q+Fsin(O+90)◢19、Goto 0↓20.、Lbl 1：21、“XC”?U: “YC”?V↓22、X+Rcos(A+90G)→M↓23、Y+Rsin(A+90G)→N↓24、Pol(U-M,V-N)→H↓25、J＜0 =＞J+360→J↓26.、“PJ=”:R-H→L◢27、“XCCZ=”:M+Rcos(J)→T◢28.、“YCCZ=”:N+Rsin(J)→W◢29 、Pol(T-X,W-Y) →Z↓30.、“CZZH=”: K+sin-1(Z÷2÷R)πR÷90◢31.、Goto 0说明：1.设置小数保留三位。

都是我自己编的，用起来还可以。

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?JX+ICos(J)→U:Y+ISin(J)→V＂X=″:U （待求点的X坐标）＂Y=″:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?VPol(U-X,V-Y):J<0 J+360→J＂I=″:I＂J=″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?RLbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o＂FWJ=″:o DMSGoto 1Lbl 2＂END″说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线＂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″:SJ-T→XJ＋T→YLbl 0＂DQ=″?LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1＂END″说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

目录一、坐标正算基本公式………………………………………………………０２二、坐标反算原理 (04)三、高程数据库录入变换 (05)四、计算器程序………………………………………………………０7 ０1、ZBZS(坐标正算)………………………………………………………０702、ZBFS(坐标反算)………………………………………………………０803、ＧＣJF(高程积分） (09)04、PＪFＹ(坡脚放样)………………………………………………………1０05、ＪFCＸ（积分程序) (11)0６、ZＢFY(坐标放样)………………………………………………………１１０７、ＤT(递推） (12)08、H P(横坡） (13)０9、LK(路宽)………………………………………………………１410、SJK1(平面数据库) (14)11、SＪK２(纵面数据库)………………………………………………1４12、SJK3(左路宽度数据库） (15)１3、SＪＫ4(右路宽度数据库) (15)1４、SJＫ5(横坡数据库)......................................................1６１5、SＪK６(下边坡数据库) (16)16、SJK7(左上边坡数据库)………………………………………………1７17、ＳＪK８（右上边坡数据库）………………………………………………1８五、后记 (19)CASIO 58０0计算器公路工程测量程序一、正算所涉及得计算公式 X R i d XαβBd Y d l d βI图表 错误!不能识别的开关参数。

在图1中,A 点为回旋曲线起点,B 点为回旋曲线止点,I 点为所求坐标点。

设: Ａ点得X 坐标为X A ,Y 坐标为Y Ａ ,Ａ点得切线方位角为α,A 点得曲率为ρＡ,A 点得里程为ＬＡ，B 点得曲率为ρＢ,Ｂ点得里程为L Ｂ,I 点得曲率为ρI ,Ｉ点得里程为ＬI 。

卡西欧5800P 测量程序汇总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程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿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: “M”？→M：180*（M-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*（M-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*（M-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时曲线右转。

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。

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时曲线右转。

卡西欧5800道路施工逐桩坐标计算程序说明：本程序包括了一个完整复合曲线的所有计算，其中需要输入的要素也是对应的完整复合曲线的要素，对不完整的曲线需要将要素进行必要的计算，转换后方能使用该程序，本程序已经包括了边桩几斜交边桩坐标的计算，参见要素说明.本程序是通过4800，4850程序的改编而来，详细程序如下：?D:?A:?R:?C:?N:?E:?F （输入计算要素，见后）C2÷6÷R－C4÷336÷R3+C6÷42240÷R5－R(1-COS（90C÷R÷∏）)→XC－C3÷40÷R2＋C5÷3456÷R4－RSin（90C÷R÷∏）－C7÷599040÷R6→Y90C÷∏÷R→B(R＋X)tan(Abs(A))÷2)＋Y→T(Abs(A)－2B) ∏R÷180＋2C→LD－T→GG＋C→HG＋L÷2→IG＋L－C→KG＋L→MA÷Abs(A) →SF＋A÷2＋90S→U(R＋X)÷cos(A÷2)→VN＋V cos(U)→BE＋V sin(U)→OLbl 1?Z 输入待求点桩号If Z≤GThenT＋G－Z→LF＋180→VF→UGoto 2IfEndIf Z≤HThenZ－G→LGoto 7IfEendThenF＋A÷2＋180＋90S＋(Z－I)×180S÷R÷∏→LL＋90S→UGoto 5IfEendIf Z≤MThenM－Z→LGoto 7IfEndIf Z＞MThenZ－M＋T→LF＋A→VV→UGoto 2IfEndLbl 2“X=”:N＋Lcos(V)→X ▲“Y=”:E＋Lsin(V)→Y ▲Goto 6Lbl 3“X=”:X＋Abs(J)cos(V)→X ▲“Y=”:Y＋Abs(J)sin(V)→Y ▲Goto 1Lbl 4“X=”:N＋Tcos(J)＋Vcos(Y)→X ▲“Y=”:E＋Tsin(J)＋Vsin(Y)→Y ▲Goto 6Lbl 5“X=”:B＋Rcos(L)→X ▲“Y=”:O＋Rsin(L)→Y ▲Goto 6Lbl 7L－L5÷(40 R2 C2)＋L9÷3456÷R4÷C4－L13÷599040÷（C6R6）→VL3÷（6RC）－L7÷336÷（C3R3）＋L11÷42240÷（C5R5）→JStan-1(J÷V) →U√（V2+J2）→VIf Z≤G+CThenGoto 8If Z≤MThenGoto 9IfEendLbl 8F+180→JF+U→YF+90SL2÷(RC∏)→UGoto 4Lbl 9F+A→JJ+180－U→YJ－90SL2÷(RC∏) →UGoto 4Lbl 6“BZ=”:?→J 开始计算边桩坐标，J为斜距，左侧输负，右侧输正90→V 斜交角度，如果不是正交改为：？→VIf J=0 如果不计算边桩坐标J输0直接返回到桩号输入ThenGoto 1IfEndIf J＜0ThenU－180＋V→VGoto 3IfEndIf J＞0ThenU+V→VGoto 3IfEnd要素说明：D—交点桩号，该交点为完整复合曲线的大交点，如果不满足条件需要转换A—转角值，路线右偏输正，左偏输负。