5800缓和曲线
缓和曲线常用计算公式
一、缓和曲线常数1、 内移距P ：3420268824Rl R l P n -= 2、 切垂距m ：2302402R l l m -= 3、缓和曲线基本角：Rl R l πβ000902== 3、 缓和曲线偏角： Rl R l πδ000306== 5、缓和曲线反偏角： Rl R l b π000603== 缓和曲线常数既有线元素，又有角元 素，且均 为圆曲线半径R 和缓和曲线长0l 的函数。
线元素要计算到mm ，角元素要计算到秒。
二、缓和曲线综合要素切线长：()m P R T +⎪⎭⎫ ⎝⎛+=2tan α 曲线长：()0022l R L +-=βα外视距：R P R E -⎪⎭⎫ ⎝⎛+=2cos 0α 切曲差：L T q -=2曲线综合要素均为线元素，且均为转向角 α、圆曲线半径R 和缓和曲线长0l 的函数。
曲线综合要素计算到cm 。
三、缓和曲线任意点偏角计算2020202902306Rl l Rl l Rl l Rl l t t t t t t πβπδ====0202603Rl l Rl l b t t t π==实际应用中，缓和曲线长0l 均选用10m 的倍数。
四、偏角法测设缓和曲线遇障碍 ()()T B B T l l l l Rl 2610+-=βδ ()()()()T F T F T F T F F l l l l Rl l l l l Rl 23026100+-=+-=πδ—B l 为靠近ZH(HZ)点的缓和曲线长； —T l 为置镜点的缓和曲线长；—F l 为远离ZH(HZ)点的缓和曲线长。
五、直角坐标法1、缓和曲线参数方程：5202401a a a l l R l x -= 30373033661l R l l Rl y a a a -= 2、圆曲线m R x b b +=αsin()P R y b b +-=αcos 1式中，b α为圆心O 到切线的垂线方向和到B 的半径方向所形成的圆心角，按下式计算:00βα+-=Rl l b b ()()T B B T l l l l Rl 2610+-=βδ ()()T B B T l l l l Rl 2300+-=π。
卡西欧fx-5800计算器缓和曲线编程
1fx－5800P计算器编程缓和曲线程序14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢“ZHK=”：K◢“HYK=”：K+L→Z[1]◢“YHK=”：K+ Z[13] －L→Z[2]◢“HZK=”：K+ Z[13]→Z[3]◢“ZHX=”：Q+Tcos(F+180)→U◢“ZHY=”：W+Tsin(F+180)→V◢“HZX=”：Q+ Tcos(F+PA)→Z[6]◢“HZY=”：W+ Tsin (F+PA)→Z[7]◢Lb1 0：“CDZH”：?MIf M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If EndLb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→DF＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→HLb1 3“X=”:U＋Dcos(C)→X◢“Y=”:V＋Dsin(C)→Y◢Lb1 B：“ZBJS1，FY－1”：?JIf J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If EndLb1 4：“ZB”：?S“ZBX”:X＋Scos（H－90）◢“ZBY”:Y＋Ssin（H－90）◢“YB”：?N“YBX”:X＋Ncos（H＋90）◢“YBY”:Y＋Nsin（H＋90）◢Goto 0Lb1 5：Z[3]－M→G：（T－G＋G^(5)÷(40L2R2)－G^(9)÷(3456R^(4)L^(4))) sin(A) ＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))＋G^(11)÷(42240R^(5)L^(5))) cos(A)→Z[4]：T＋（T －G＋G^(5)÷(40L2R2)）cos(A) －(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))) sin(A)→Z[5]：√（Z[4]2＋Z[5]2）→D ：F＋Ptg-1(Z[4]÷Z[5])→C：F＋P(A－BG2÷L2) →H：Goto 3Lb1 6：K－M→D：F＋180→C：F→H：Goto 3Lb1 7：M－Z[3]→D：F＋PA→C：C→H：Goto 9Lb1 9：“X=”: Z[6]＋Dcos(C)→X◢“Y=”: Z[7]＋Dsin(C)→Y◢Goto BLb1 A：“N”：?N:“E”：?S：“H”：?I“X=”:（N－X）cos(H)＋(S－Y)sin(H)＋M→Z[10]◢“Y=”:（S－Y）cos(H)－(N－X)sin(H) →Z[11]◢“MS”：1711.15+0.004(Z[10]-85030) →E◢If I≥E+2 ：Then“+－R1”：6.57－√((I－E－2)) 2+ Z[11] 2→OElse If I<E+2 ：Then“+R2”：7.47－√((E+2－I) 2+(Abs( Z[11])+0.9) 2→O◢“﹦＞DB”:(I－E+0.5)→O◢Z[10] →M：If End：If EndGoto 01.1程序说明“DimZ”—内存变量扩充“ZHK”—输入直缓点桩号“R”—输入曲半径“L”—输入缓和曲线长“A”—输入偏角“Y＋1，Z－1”—路线右转输＋1，左转输－1“FWJ”—输入起算方位角“JDX”—输入交点X坐标“JDY”—输入交点Y坐标“ZHK=”：得出直缓点桩号“HYK=”：得出缓圆点桩号“YHK=”：得出圆缓点桩号“HZK=”：得出缓直点桩号“ZHX=”：得出直缓点X“ZHY=”：得出直缓点Y“HZX=”：得出缓直点X“HZY=”：得出缓直点Y“CDZH”—输入待测点桩号“X=”：得出测点桩号中心桩N“Y=”：得出测点桩号中心桩E“ZBJS1，FY－1”—①（坐标计算）施工坐标转大地坐标输+1，“ZB”—输入中桩到左边桩的距离；“ZBX”: 得出待测点左边N值“ZBY”: 得出待测点左边E值“YB”—输入中桩到右边桩的距离；“YBX”: 得出待测点右边N值“YBY”: 得出待测点右边E值②（放样）大地坐标转施工坐标输－1，“N”—输入大地坐标的N坐标；“E”—输入大地坐标的E坐标。
CASIO 5800 QXZB 曲线放样程序
[正确] CASIO fx-5800P QXZB曲线坐标计算CASIO fx-5800P QXZB程序可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：该程序适用于计算器 CASIO fx-5800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。
1、DK(JD)？输入交点桩号2、X(JD)？输入交点坐标X3、Y(JD)？输入交点坐标Y4、T1？输入第一切线长(如果只有一条切线两者都输入一致)5、T2？输入第二切线长(如果只有一条切线两者都输入一致)6、FWJ？输入直线方位角(ZH→JD)7、A？输入转角：左转为负，右转为正8、R？输入圆曲线半径9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)10、LY？输入圆曲线长(L-LS1-LS2)11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)12、X(ZJD)？输入置镜点坐标X13、Y(ZJD)？输入置镜点坐标Y14、JSDK？输入前视点里程15、PL？输入偏距16、PA？输入偏角程序名称：QXZB＂DK(JD)＂?R：＂X(JD)＂?S：＂Y(JD)＂?T：＂T1＂?U：＂T2＂?V：＂FWJ＂?F：＂A＂?W：＂R＂?H：＂LS1＂?I：＂LY＂?J：＂LS2＂?K：＂X(ZJD)＂?D：＂Y(ZJD)＂?EF+W→GIf W>0： Then -1→L ：IfEnd(式中为数字0…括号内不输入)If W<0： Then 1→L ：IfEnd (式中为数字0…括号内不输入)If W=0： Then 0→L ：IfEnd (式中为数字0…括号内不输入)R-U→AS-Ucos( F) →BT-Usin( F) →CS+Vcos( G) →Z[1]T+Vsin( G) →Z[2]180÷π→O(式中为字母0…括号内不输入)Lb1 A＂JSDK＂?MM-A→PIf M<A： Then Goto A ：IfEndIf M>(A+I+J+K)： Then Goto A ：IfEnd＂PL＂?NIf M>(A+I+J) ：Then Goto D：IfEndIf M>(A+I) ：Then Goto C：IfEndLb1 BB+(P-(P^(5)÷40÷H^2÷I^2))cos( F)+(P^(3)÷6÷H÷I-P^(7)÷336÷H^(3)÷I^(3))Lsin( F)→XC+(P-(P^(5)÷40÷H^2÷I^2))sin( F)-(P^(3)÷6÷H÷I-P^(7)÷336÷H^(3)÷I^(3))Lcos( F)→Y“X=”：X+Ncos(F-(P^2÷2÷H÷I)OL+Z) →X ◢(式中OL为字母O…括号内不输入)“Y=”：Y+Nsin(F-(P^2÷2÷H÷I)OL+Z) →Y ◢(式中OL为字母O…括号内不输入)Prog＂ZBFS＂(此处为调用直线程序…括号内不输入)Goto ALb1 CB+(Hsin(((P-I)÷H+I÷2÷H)O)+(I÷2-I^(3)÷240÷H^2))cos(F)-(H(1-cos(((P-I)÷H+I÷2÷H)O))+I^2÷24÷H)(-1)Lsin( F)→X(中间O为字母O)C+(Hsin(((P-I)÷H+I÷2÷H)O)+(I÷2-I^(3)÷240÷H^2))sin(F)+(H(1-cos(((P-I)÷H+I÷2÷H)O))+I^2÷24÷H)(-1)Lcos( F)→Y(式中为字母0…括号内不输入)“X=”：X+Ncos(F-((P-I)÷H+I÷2÷H)OL+Z) →X ◢(式中OL为字母O…括号内不输入)“Y=”：Y+Nsin(F-((P-I)÷H+I÷2÷H)OL+Z) →Y ◢(式中OL为字母O…括号内不输入)Prog ＂ZBFS＂(此处为调用直线程序…括号内不输入)Goto ALb1 D(A+I+J+K-M) →QZ[1]-(Q-Q^(5)÷40÷H^2÷K^2)cos( G)+(Q^(3)÷6÷H÷K-Q^(7)÷336÷H^(3)÷K^(3))Lsin( G)→XZ[2]-(Q-Q^(5)÷40÷H^2÷K^2)sin( G)+(Q^(3)÷6÷H÷K-Q^(7)÷336÷H^(3)÷K^(3))Lcos( G)→Y “X=”：X+Ncos(F-(I÷2÷H+J÷H+K÷2÷H-Q^2÷2÷H÷K)OL+Z) →X ◢(OL为字母O…括号内不输入) “Y=”：Y+Nsin(F-(I÷2÷H+J÷H+K÷2÷H-Q^2÷2÷H÷K)OL+Z) →Y ◢(OL为字母O…括号内不输入) Prog＂ZBFS＂(调用直线程序…括号内不输入)Goto A--------------------------------------------------------------------------------说明：本程序需要扩展变量，方法：20→DimZ附件：本程序附曲线要素坐标计算核对表。
卡西欧fx5800标准曲线竖曲线版
卡西欧fx-5800P程序1坐标反算(ST)Lb1 1：＂X1=＂？A：＂Y1=＂？BLb2 2：＂X2=＂？C：＂Y2=＂？D＂S(1-2)=＂：POL(C－A,D－B)→S▲IF J﹥0：Then J→T：Else J+360→T：If End＂T=＂：T→DMS▲＂K=＂？ＫIf K=1：Then Goto1：If EndIf K=2：Then Goto2：If EndIf K=3：Then C→A：D→B：Goto 2：If End 0说明：1、首先输入架站点坐标X0、Y0（O点）。
2、再输入后视点坐标XP、YP（P点）。
3、计算出O―P的边长S和方位角J。
4、当K＝1时，重新输入O、P点的坐标。
5、当K＝2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。
6、当K＝3时，以原P点坐标为架站点坐标O（X0、Y0），重新输入新的P点坐标，计算出边长S和方位角J。
2 坐标正算(XY)LbI 0：＂X0=＂？A：＂Y0=＂？B：＂P(1→Z，2→F)=＂？PIf P=1：Then Goto2：Else Goto5：If EndLbI 2：＂XA=＂？C：＂YA=＂？D＂S(0－A)=＂：POL(C－A，D－B)→S▲IF J﹥0：Then J→F：Else J+360→F：If End＂T(0－A )=＂：F→DMS▲Goto6Lb1 5：＂T(0－A )=＂？FLb16：＂S(0－P )=＂？S：＂E(∠AOP=)＂？EE+F→T：＂XP=＂：A+Rec(S，T) →X▲＂YP=＂：B+J→Y▲If T≥360：Then T-360→T：If End＂T(0－P)=＂：T→DMS▲＂K=＂？KIf K=1：Then Goto0：If EndIf K=2：Then Goto6：If EndIf K=3：Then X→A：Y→B：T+180→F：Goto6：If End说明：1、首先输入架站点O（X0、Y0）坐标2、输入判断值P: 当P=1时输入后视点的坐标，计算出到后视点距离＂S(0－A)=＂S和方位角T(0－A )=F; 当P=2时直接输入后视点的方位角T(0－A )=F。
5800直线、圆曲线缓和曲线、坐标计算程序
5800直线、圆曲线缓和曲线、坐标计算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=″?R Lbl 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：待求点里程。
缓和曲线常用计算公式
缓和曲线常用计算公式-CAL-FENGHAI.-(YICAI)-Company One1一、缓和曲线常数1、 内移距P ：3420268824Rl R l P n -= 2、 切垂距m ：2302402R l l m -= 3、缓和曲线基本角：Rl R l πβ000902== 3、 缓和曲线偏角： Rl R l πδ000306== 5、缓和曲线反偏角： Rl R l b π000603== 缓和曲线常数既有线元素，又有角元 素，且均 为圆曲线半径R 和缓和曲线长0l 的函数。
线元素要计算到mm ，角元素要计算到秒。
二、缓和曲线综合要素切线长：()m P R T +⎪⎭⎫ ⎝⎛+=2tan α曲线长：()0022l R L +-=βα外视距：R P R E -⎪⎭⎫ ⎝⎛+=2cos 0α切曲差：L T q -=2曲线综合要素均为线元素，且均为转向角 α、圆曲线半径R 和缓和曲线长0l 的函数。
曲线综合要素计算到cm 。
三、缓和曲线任意点偏角计算2020202902306Rl l Rl l Rl l Rl l t t t t t t πβπδ====0202603Rl l Rl l b t t t π==实际应用中，缓和曲线长0l 均选用10m 的倍数。
1 四、偏角法测设缓和曲线遇障碍 ()()T B B T l l l l Rl 2610+-=βδ()()()()T F T F T F T F F l l l l Rl l l l l Rl 23026100+-=+-=πδ—B l 为靠近ZH(HZ)点的缓和曲线长； —T l 为置镜点的缓和曲线长； —F l 为远离ZH(HZ)点的缓和曲线长。
五、直角坐标法1、缓和曲线参数方程： 5202401a a a l l R l x -= 30373033661l R l l Rl y a a a -= 2、圆曲线m R x b b +=αsin()P R y b b +-=αcos 1 式中，b α为圆心O 到切线的垂线方向和到B 的半径方向所形成的圆心角，按下式计算:00βα+-=Rl l b b ()()T B B T l l l l Rl 2610+-=βδ ()()T B B T l l l l Rl 2300+-=π。
5800计算对称缓和曲线任意里程中、边桩坐标及其反算并进行断面分析(修改)
5800计算对称缓和曲线任意里程中、边桩坐标及其反算并进行断面分析一、数据准备1(SUB1)178°14′25.7″→A …起始方位角24834.9621→M …交点X坐标122263.0203→N …交点y坐标33240.160→D …直缓点桩号49°35′8″→B …转角411.172→L …曲线总长65→G…缓和曲线长217.461→T…切线长400→R…半径-1→C…转向左转曲线为-1右转曲线为1-0.16→E…偏移值左偏为-1右偏曲线为133686.189→H…来桩桩号33700.000→K …去桩桩号12.583→Z[20]…变坡点高程33800→Z[21]…变坡点桩号5000→Z[22]…竖曲线半径-0.025→Z[23]…前坡坡度-0.0058→Z[24]…后坡坡度Prog”JS”左线数据2(SUB2)178°14′25.7″→A24831.3338→M122246.4239→N33243.277→D49°35′8″→B411.172→L65→G217.461→T400→R-1→C-0.16→E0→H0→K12.238→Z[20]33800→Z[21]5000→Z[22]-0.025→Z[23]-0.005→Z[24]Prog”JS”右线数据3(SUB3)2.88→Z[31]…第一部分圆弧半径5.43→Z[32]…第二部分圆弧半径1.58→Z[33]…第三部分圆弧半径3.29123→Z[34]…第四部分圆弧半径180°→Z[35]…第一部分圆弧夹角21°27′25″→Z[36]…第二部分圆弧夹角31°24′13″→Z[37]…第三部分圆弧夹角37°08′22″→Z[38]…第四部分圆弧夹角0→Z[39]…第一部分圆弧X坐标0→Z[40]…第一部分圆弧Y坐标-2.55→Z[41]…第二部分圆弧X坐标0→Z[42]…第二部分圆弧Y坐标1.033→Z[43]…第三部分圆弧X坐标-1.408→Z[44]…第三部分圆弧Y坐标0→Z[45] …第四部分圆弧X坐标-0.044→Z[46]…第四部分圆弧Y坐标断面数据二、计算部分QXJS(程序引导部分)“1.SZ=>XY”“2.XY=>SZ”50→DimZ“N”?Q“1→Z”“2→Y”“M”?TIf I=1:Then Prog “1”:Else Prog”2”:IfEndJS(主程序)“FWJ”?A …起始方位角“X→JD”?M …交点X坐标“Y→JD”?N …交点Y坐标“ZHDZH”?D …直缓点桩号“A”?B …转角“L”?L …曲线总长“LS”?G …缓和曲线长“T”?T …切线长“R”?R …半径“CC”?C …转向左转曲线为-1右转曲线为1 “PYZ”?E …偏移值“LZ”?H …来桩桩号“QZ”?K …去桩桩号If Q=1:Then Goto 1:Else Goto 2:IfEndLb1 1“ZHUANGHAO”?FIf (K-H)>0 And F≧K:Then F-(K-H) →F:IfEndIf (K-H)<0 And F<0:Then Abs(F) →F:IfEndIf (K-H)≦0 And F≧K:Then F-(K-H) →F:IfEnd“PIANJU”?O …负值表示左偏，正值表示右偏Prog“SUB1-1”“QXFWJ=”:Z[16]◤DMS◢If O>0:Then“XR=”:Z[10]◢“YR=”:Z[11]◢IfEndIf O<0:Then“XL=”:Z[10]◢“YL=”:Z[11]◢IfEndIf O=0:Then“X=”:Z[10]◢“Y=”:Z[11]◢IfEndGoto 1Lb1 2“X”?JJ→Z[1]“Y”?II→Z[2]“Z”?JJ→Z[49]Prog“SUB1-2”If F>H And (K-H)>0: Then F+(K-H) →F: IfEndIf F>K And (K-H)<0 And F<H: Then -F →F: IfEndIf F≧H And (K-H)<0: Then F+(K-H) →F: IfEnd“S”:F◢“PIANJU”:I-Z[9]◢“QXFWJ=”:Z[16]◤DMS◢Prog“SQXJS”Prog“CQFX”“GMGC”:Z[28] ◢1.995→Z[30]“QGXBG”:Z[28]+Z[30] ◢“C OR Q”:Z[47]Goto 2SUB1-1(正算程序部分)If F<D:ThenGoto 5:IfEndIf F>D+L:ThenGoto 6:IfEndF-D→Z[12]If Z[12]≦G:ThenGoto 1:IfEndIf Z[12]<(L-G) And Z[12]>G:ThenGoto 2:IfEndIf Z[12]≧(L-G):ThenD+L-F→Z[12] Goto 1:IfEndLb1 1Z[12]-Z[12]^5÷(40×R^2×G^2)+Z[12]^9÷(3456×R^4×G^4)-Z[12]^13÷(599040×R^6×G^6)→Z[1 7]Z[12]^3÷(6RG)-Z[12]^7÷(336×R^3×G^3)+Z[12]^11÷(42240×R^5×G^5)-Z[12]^15÷(8985600×R ^7×G^7)→Z[18]If (F-D)<(L-G):ThenGoto 3:ElseGoto 4:IfEndLb1 2Rsin((Z[12]-0.5G)÷R×180÷PI)+G÷2-G^3÷240÷R^2→Z[17]R(1-cos((Z[12]-0.5G)÷R×180÷PI))+G^2÷24÷R→Z[18]E→Z[9]Goto 3Lb1 3M+Tcos(A+180)+Z[17]cos(A)-CZ[18]sin(A)→Z[13]N+Tsin(A+180)+Z[17]sin(A)+CZ[18]cos(A)→Z[15]IfZ[12]≦G:ThenA+CZ[12]^2÷(2RG)×180÷PI→Z[16]:ElseA+C×(Z[12]-0.5G)÷R×180÷PI→Z[16]:I fEnd(F-D)×E÷G→Z[19]Goto 7Lb1 4M+Tcos(A+CB)+Z[17]cos(A+CB+180)+CZ[18]sin(A+CB+180)→Z[13]N+Tsin(A+CB)+Z[17]sin(A+CB+180)-CZ[18]cos(A+CB+180)→Z[15]A+CB-C×Z[12]^2÷(2RG)×180÷PI→Z[16](D+L-F)×E÷G→Z[9]Goto 7Lb1 5M+(D+T-F)cos(A-180)→Z[13]N+(D+T-F)sin(A-180)→Z[15]A →Z[16]O→Z[9]Goto 7Lb1 6M+(F-D-L+T) cos(A+CB)→Z[13]N+(F-D-L+T) sin(A+CB)→Z[15]A+CB→Z[16]O→Z[9]Goto 7If O<0:Then-1→Z[14]:Else1→Z[14]:IfEndZ[13]+Abs(O+Z[9])cos(Z[16]+90Z[14])→Z[10]Z[15]+Abs(O+Z[9])sin(Z[16]+90Z[14])→Z[11]SUB1-2(反算程序部分)Pol(Z[1]-M-Tcos(A+180),Z[2]-N-Tsin(A+180))J→Z[7]Pol(Z[1]-M-Tcos(A+CB),Z[2]-N-Tsin(A+CB))I→Z[8]If Z[7]≦Z[8]:ThenGoto 1:ElseGoto 2:IfEndLb1 1M+Tcos(A+180)→Z[13]N+Tsin(A+180)→Z[15]D→FA→Z[16]Goto 3Lb1 2M+Tcos(A+CB)→Z[13]N+Tsi n(A+CB)→Z[15]D+L→FA+CB→Z[16]Z[16]≧360=>Z[16]-360→Z[16]Goto 3Lb1 3Pol(Z[1]-Z[13],Z[2]-Z[15])J→Z[5]I→Z[6]Z[5]≦0=> Z[5]+360→Z[5]Z[5]-Z[16]→Z[3]Z[6]×cos(Z[3])→Z[4]If Abs(Z[4])≧10^-6:Then F+ Z[4]→FProg“SUB1-1”Goto 3: IfEndZ[3]<0=>-1×I→ISQXJS(竖曲线计算部分)If F<H:Then F+(K-H)→F:IfEndAbs(0.5×Z[22]×Z[23]-Z[24])) →Z[26]If Z[23]-Z[24]>0:Then -1→Z[29]:Else 1→Z [29]:IfEndIf F≦Z[21]:Then Z[20]+Z[23]×(F-Z[21])→Z[25]:If F>Z[21]-Z[26]:Then Z[25]+Z[29]×(F-(Z[21]-Z[26]))2÷(2×Z[22]) →Z [28]:Else Z[25] →Z [28]:IfEndIf F>Z[21]:Then Z[20]+z[24]×(F-Z[21]) →Z[25]If F>Z[21]+Z[26]:Then Z[25]+Z[29]×(F-(Z[21]+Z[26]))2÷(2×Z[22]) →Z[28]: Else Z[25] →Z [28]: IfEnd: IfEndCQFX(超欠分析部分)Z[49]-(Z[30]+Z[28]) →Z[48]If Z[48]≧0:Then √((Abs(I-Z[9])-Z[39])2+(Z[48]-Z[40])2)-Z[31] →Z[47]:IfEndIf Z[48]≧-Z[32]×sin(Z[36]) And Z[48]﹤0:Then √((Abs(I-Z[9])-Z[41])2+(Z[48]-Z[42])2)-Z[32] →Z[47]:IfEndIf Z[48]≧-Z[34] ×cos(Z[38])+Z[46] And Z[48]﹤-Z[32]×sin(Z[36]): Then √((Abs(I-Z[9])-Z[43])2+(Z[48]-Z[44])2)-Z[33] →Z[47]: IfEndIf Z[48]﹤-Z[34] ×cos(Z[38])+Z[46] : Then √((Abs(I-Z[9])-Z[45])2+(Z[48]-Z[46])2)-Z[34] →Z[47]:IfEnd三、断面示意图说明：本程序可以进行曲线上的正反算及竖曲线上的标高计算，支持长、短链，自动计算曲线上内移部分，能进行断面的超欠分析。
CASIO+FX-5800P+综合曲线坐标计算程序(正确)2010.1.17
圆曲线坐标计算交点桩号YK20+734.498；N=2889769.961；E=527002.305 ；方位角314'24'58.3' 转角27'19'31.4' 切线长度T1= 814.345 ；T2= 814.347 ；半径R=3000 ；曲线长度LS1：170；LC=1260.752；LS2= 170 曲线总长=1600.752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。
1、A？输入转(偏)角；左转为负，右转为正。
转角27'19'31.4'2、R？输入曲线半径。
30003、LS？输入缓和曲线长度。
1704、JD（DK）？输入交点里程桩号。
20734.498结果显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151;HY=20090.151; QZ=20720.528; YH=21350.905; HZ=21520.9055、X（JD）？输入本交点X坐标。
2889769.9616、Y（JD）？输入本交点Y坐标。
527002.3057、FWJ？输入直缓(ZH)点切线方位角。
314'24'58.3'8、J？输入0程序计算中桩，输入1程序计算边桩。
09、Z？输入里程桩号。
ZH=19920.151FWJ:314.416 X=2889200.028 Y= 527583.973完（FWJ:314.416=314'24'57.6' ）ZH(2889200.026 527583.975) HY(2889320.140 527463. 682)QZ(2889816.373 527076.808) YH(2890382.383 526801.950)HZ(2890543.311 526747.167)例如2:JD15:4013872.8781;456031.1661 JD16:4015349.321;451808.075ZH:75+137.901 ay:16.45.49.69 R=9000 缓和曲线长：490 T=1571.257 JD(DK) =76709.158 FWJ=289-16-12.85 给我算一下74+400;75+300;75+800;76+500左中线坐标。