5800缓和曲线计算程序

合集下载

5800 计算程序

5800 计算程序Fx-5800 计算器程序QXJS-000 主程序Fix 3:Deg:Lbl 4:“1.SZ=>XY”:“2.XY=>SZ”: “ 1,2= ” ? →Q:” LICHENG= ” ? →S:Prog“QXJSSUB0” ↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd ↙Lbl 1:”OUT JL=”? → Z: “OUT JD=”?G:Prog“QXJSSUB1”:“XZB=”:N →N ◢“YZB=”:E →E ◢“QXFWJ=”:F →F:F ▲ DMS ◢Goto4 ↙Lbl 2: “XZB=”? →B: “YZB=”? →C:B→N:C→E:Prog“QXJSSUB2”: “LICHENG=”:S →S ◢“OUT JL=”:Z →Z ◢Goto4 ↙说明：Q: 代表正反算，其中 1 为正算， 2 为反算； S: 代表里程； Z ：代表偏移距离； G ：代表偏移角度（以线路前进方向为 X 方向，顺时针转为正； N ： X 坐标； E ： Y 坐标； F ：切线方位角；QXJSSUB0 ( 数据库 )Goto1 ↙Lbl 1IF S<157687.528:THEN2884169.2517→U:471475.6573→V:157547.528→O:98 ° 32 ′ 43.08″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙IF S<157993.605:THEN2884148.1260→U:471614.0539→V:157687.528→O:98 ° 56 ′ 46.93″ →A:306.0771→L:10000→P:10000→R: Return:IfEnd ↙IF S<158133.605:THEN2884095.9086→U:471915.6318→V:157993.605→O:100 ° 42 ′ 0.22″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙IF S<163641.879:THEN2884069.2735→U:472053.0744→V:158133.605→O:101 ° 6 ′ 4.07″ →A:5508.274→L:10^45→P:10^45→R: Return:IfEnd ↙IF S<163781.879:THEN2883008.7030→U:477458.2815→V:163641.879→O:101 ° 6 ′ 4.08″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙IF S<164195.661:THEN2882981.4268→U:477595.5984→V:163781.879→O:101 ° 30 ′ 7.93″ →A:413.7833→L:10000→P:10000→R: Return:IfEnd ↙IF S<164335.661:THEN2882890.5519→U:477999.2492→V:164195.6623→O:103 ° 52 ′22.82 ″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙IF S<171831.142:THEN2882856.3502→U:478135.0069→V:164335.6623→O:104 ° 16 ′26.67 ″ →A:7495.481→L:10^45→P:10^45→R: Return:IfEnd ↙IF S<171961.1406:THEN2881008.2613→U:485399.0830→V:171831.1404→O:104 ° 16 ′26.65 ″ →A:130→L:-10^45→P:-11000→R: Return:IfEnd ↙IF S<172204.6898:THEN2880976.4567→U:485525.1322→V:171961.1406→O:103 ° 56 ′7.81 ″ →A:243.5492→L:-11000→P:-11000→R: Return:IfEnd ↙IF S<172334.6898:THEN2880920.4244→U:485762.1431→V:172204.6898→O:102 ° 40 ′0.93 ″ →A:130→L:-11000→P:-10^45→R: Return:IfEnd ↙说明： S ：里程； 157547.528→O 为线元终点里程；2884169.2517→U 为线元起点 X 坐标； 471475.6573→V 为线元起点Y 坐标； 98 ° 32 ′ 43.08 ″ →A 线元起点切线方位角； 0^45→P 线元起点半径（左转为负右转为正）； 10000→R 线元终点半径（左转为负右转为正）QXJSSUB1 正算子程序0.5 （ 1÷R-1÷P ） ÷L→D:S-O→X ↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙A+(X÷P+DX2)×180÷π→F ↙N+Zcos(F+G) →N:E+Zsin(F+G) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z ： 1→Q ： Prog“QXJSSUB0”: 0.5 （ 1÷R-1÷P ）÷L→D:S-O→X ↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙A+(X÷P+DX2)×180÷π→F ↙N+Zcos(F+90) →N:E+Zsin(F+90) →E :Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S ↙IfAbs(W)>0.0001 :Then Goto1:IfEnd ↙Lbl 2: 0→Z ： Prog“QXJSSUB1”:(C-E) ÷sin(F+90) →ZReturnH （高程主程序）Fix 3 ： Lb1 3: ” LICHENG= ” ?Z: Prog“SQXZL”:(P-Q) ÷Abs(P-Q) →W ↙If Z<(H-T):Then(H-Z) × P →X:Goto 2:IfEnd ↙If Z ≥ (H-T) And Z<H:Then (H-Z) × P+(Z-H+T)2 ÷ (2WR)→X:Else (H+T-Z)2 ÷ (2WR)-(Z-H) × Q→X: Goto 2:IfEnd ↙Lb1 2: ” GAO CHENG= ” D-X →X ◢Goto 3SQXZL （竖曲线数据库）Goto 1Lb1 1If Z ≤ 157893.75:Then25000→R:93.75→T:157800→H:421.977→D:-0.0045→P:0.003→Q:Return:IfEnd ↙If Z ≤ 159000:Then25000→R:150→T:158850→H:425.127→D:0.003→P:0.015→Q:Return:IfEnd↙If Z ≤ 165017.5:Then25000→R:117.5→T:164900→H:515.877→D:0.015→P:0.0056→Q:Return:IfEnd ↙If Z ≤ 168207.5:Then25000→R:107.5→T:168100→H:533.797→D:0.0056→P:-0.003→Q:Return:IfEnd ↙If Z ≤ 172175:Then25000→R:75→T:172100→H:521.797→D:-0.003→P:0.003→Q:Return:IfEnd ↙说明： 157893.75 代表竖曲线终点里程， 25000→R 代表竖曲线半径； 93.75→T 代表竖曲线切长； 421.977→D 代表边坡点标高（未改正之前）； -0.0045→P 代表前段坡度，上坡为正，下坡为负；0.003→Q 代表后段坡度，上坡为正，下坡为负；Fx-5800路线高程程序GCQX-000 主程序Lbl 1: Prog“GCQX-SUB000” ↙If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+RSin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙Lbl 2: “H=”:H: Goto1GCQX-000 数据库Goto0↙Lbl 0↙If S<***: Then ***→A(线元起点里程): ***→B(线元起点高程):***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Return:IfEnd↙If S<***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Return:IfEnd↙………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。

卡西欧5800直线缓和曲线程序(1)

卡西欧5800直线、缓和曲线程序1. 主程序：TYQXJS″1.SZ=>XY″：″2.XY=>SZ″：″N″？N：″XA″？U：″YA″？V：″DKA″？O：″CA″？G：″LS″？H：″RA″？P:″RB″？R：″Q″？Q： 1÷P→C:（P-R）÷（2HPR）→D： 180÷π→E：If N=1: Then Goto1:Else Goto 2:ifEndLBI 1: ″DKI″?S: ″D″?Z:Abs(S-O)→W:Prog″SUB1″: ″XS″:X⊿″YS″:Y⊿″FS″:F-90⊿Goto 1LbI 2：″X″?X: ″Y″?Y：X→I:Y→J：Prog″SUB2″：O+W→S:″S″:S⊿″Z″:Z⊿Goto 22. 子程序：SUB10.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+ FWD))+Acos(G+QEMW(C+MWD))→X:Y+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)→Y3. 子程序：SUB2G-90→T： Abs((Y-V)cosT-(X-U)sin(T))→W:0→Z： Lbl 0：Prog″SUB1″:T +QEW(C+WD)→L :(J-Y)cos(L)-(I-X)sin(L)→Z:IfAbs(Z)<1*10-6: Then Goto1:ElseW+Z→W:Goto0:IfEndLbl 1: 0→Z: Prog″SUB1″: (J-Y) ÷sin(F)→Z4. 输入与显示说明N ：选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。

分享5800程序

[分享] CASIO fx-5800p交点法计算缓和曲线内任意点计算程序关于“5800p求缓和曲...”的内容本站搜索更多关于“5800p求缓和曲线要素”的内容SpiraL curve（缓和曲线任意点坐标计算）程序说明：本程序是基于计算对称性缓和曲线而编写的程序，是以交点法为基础，故输入数据多了点。

程序思路：根据曲线的交点数据，进而推算曲线要素，并进行曲线内任意点的坐标计算。

LbL 0：Cls19→DimZ 变量赋值“INTα(s)=”?F 输入交点坐标方位角“JD PEG=”?K 输入交点桩号“INT X(JD)=”?X 输入交点X坐标“INT Y(JD)=”?Y输入交点Y坐标“INT R(s)=”?R 输入缓和曲线半径“INT L(s)=”?L 输入缓和曲线长“TURNING ANGLE=”?A输入转角“TURNING DIRECTION –L,+R=”?I 输入路线转向：左负右正I赋值为1L2÷(24×R)→PL÷2-L3÷(240×R2)→Q90×L÷（π×R）→B（R+P）Tan（A÷2）+Q→T 计算切线长R（A-2B）×π÷180→O 计算圆曲线长R（A-2B）×π÷180+2L→C 计算曲线长（R+P）÷cos（A÷2）-R→E 计算外距2T-C→D 计算切曲差K-T→Z[3] ZH点Z[3]+L→Z[4] HY点Z[4]+O→Z[5] YH点Z[5]+L→Z[6] HZ点Z[6]-C÷2→Z[7] QZ点X+Tcos（F+180）→Z[16] ZH点X坐标Y+TsIn（F+180）→Z[17] ZH点Y坐标L-L3÷（90R2）→GZ[16]+Gcos(F+30×I×L÷(π×R) )→Z[8] HY点X坐标Z[17]+Gsin(F+30×I×L÷(π×R)) →Z[9] HY点Y坐标Z[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[14] QZ点X坐标Z[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[15] QZ点Y坐标Z[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[10] YH点X坐标Z[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[11] YH点Y坐标X+Tcos（F+I×A）→Z[12] HZ点X坐标Y+TsIn（F+I×A）→Z[13] HZ点Y坐标LbL 2“XIAN SHI QXYS 0→YES,1→NO”→？Z:CLs 显示曲线要素？输入：0→YES,1→NOIf Z=0:Then GoTo 3ELse If Z=1:Then GoTo 4:IfEnd:IfEndLbL 3 <本段为曲线要素显示结果部分>“QIE XIAN C=”:T▲“QU XIAN C=”:C▲“Y QU XIAN=”:O▲“WAI JU=”:E▲“QIE QU CHA=”:D▲“ZH PEG=”:Z[3] ▲“X(ZH)=”:Z[16] ▲“Y(ZH)=”:Z[17] ▲“HY PEG=”:Z[4] ▲“X(HY)=”:Z[8] ▲“Y(HY)=”:Z[9] ▲“QZ PEG=”:Z[7] ▲“X(QZ)=”:Z[14] ▲“Y(QZ)=”:Z[15] ▲“YH PEG=”:Z[5] ▲“X(YH)=”:Z[10] ▲“Y(YH)=”:Z[11] ▲“HZ PEG=”:Z[6] ▲“X(HZ)=”:Z[12] ▲“Y(HZ)=”:Z[13] ▲GoTo 0LbL 4 <本段为待求点桩号计算部分>“INT P PEG=”?H 输入待求点桩号If H<Z[3]:Then GoTo 4:IfEndIf H≥Z[3]And H<Z[4]:Then GoTo AELse If H≥Z[4] And H<Z[5]:Then GoTo BELse If H≥Z[5] And H≤Z[6]:Then GoTo C :IfendIfend : IfendIf H>Z[6]:Then GoTo 4:IfendLbL A{待求点位于ZH到HY段上时}“PIAN JIAO -L ,+R = ”? V 输入边桩与路线中心线夹角：左负右正“PIAN JU = ”? W 边桩与路中法线距离H–Z[3]→JJ–J5 ÷(90×R2×L2)→SZ[16]+S cos(F+30×I×J2÷(π×R×L)→MZ[17]+S sin(F+30×I×J2÷(π×R×L)→NM+W×cos(F+90×I×J2÷(π×R×L +V) →Z[18]N+W×sin(F+90×I×J2÷(π×R×L +v) →Z[19]“X(p)= ”: Z[18] ▲“Y(p)= ”: Z[19] ▲GoTo 4LbL B {待求点位于HY到YH段上时}“PIAN JIAO -L ,+R = ” ? V“PIAN JU = ”? WH–Z[4]→JZ[8]+2Rsin(90×J÷(π×R)cos[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→MZ[9]+2Rsin(90×J÷(π×R)sin[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→NM+Wcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →Z[18]N+Wsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →Z[19]“X(P)= ”: Z[18] ▲“Y(P)= ”: Z[19] ▲GoTo 4LbL C {待求点位于YH到HZ段时}“PIAN JIAO -L ,+R = ” ?V“PIAN JU = ”? WZ[6] –H →JJ–J5÷(90×R2×L2)→SZ[12]+Scos(F+I×A+180-30×I×J2÷(π×R×L)→MZ[13]+Ssin(F+I×A+180-30×I×J2÷(π×R×L)→NM+Wcos(F+I×A-90×I×J2÷(π×R×L)+V) →Z[18]N+Wsin(F+I×A-90×I×J2÷(π×R×L)+V) →Z[19]“X(p)= ”: Z[18] ▲“Y(p)= ”: Z[19] ▲GoTo 4程序补充说明：本程序需要输入：坐标方位角，交点桩号，坐标，缓和曲线半径，缓和曲线长，转角，转向（左负右正），程序运行时会显示说“XIAN SHI QXYS 0→YES,1→NO”→Z:CLs：显示曲线要素0→显示，1→不显示。

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：待求点里程。

卡西欧5800缓和曲线坐标计算程序

缓和曲线段坐标计算HHQXZBJS第一缓和曲线段任意里程位各点的坐标计算。

程序如下:曲线起点里程→Q:曲线起点X坐标→E:曲线起点Y坐标→F:曲线起点前进切线方位角→T:圆曲线半径→R:缓和曲线长度→U:曲线转向方向(左转取-1,右转取+1)→P:Lbl 0:5→DimZ:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Abs(L-Q)→Z[1]:Pol(Z[1]-Z[1]^(5)÷(40R²U²)+Z[1]^(9)÷(3456(RU)^(4)), Z[1]^(3)÷(6RU)-Z[1]^(7)÷(336(RU)^(3))+Z[1]^(11)÷(42240(RU)^(5))):J→Z[2]:Rec(I,T+Z[2]P):E+I→Z[3]:F+J→Z[4]:T+Z[2]P+60PZ[1]²÷(RUπ)+90→Z[5]:If K=1:Then Rec(S,Z[5]):Else Rec(S,Z[5]+180):IfEnd:Z[3]+I→X:Z[4]+J→Y:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,X: X坐标显示在第一行Locate 7,2,Y◢Y坐标显示在第二行Goto 0注解:如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。

这里是按第一缓和曲线编制的,在应用于第二缓和曲线时,起算点和转向方向都要改变,同时原路线方向上的左侧变成了右侧,原路线方向上的右侧变成了左侧,等等,这点要注意。

FX5800缓和加圆曲线坐标正反算(原创)

缓和曲线与圆曲线正反算程序一、正算程序：ZD-ZS※※→X※※→Y※※→N※※→E※※→C※※→D※※→T※※→I※※→R※※→S（本线到中线的距离,向左为负，向右为正）Lbl 1arcCos（（N-X）÷√((N-X) 2 +(E-Y) 2 ) )→Aif E>Y：Then A: ELSE 360-A→A：IFENDarcCos（（C-N）÷√((C-N) 2 +(D-E) 2 ) )→Uif D>E：Then U: ELSE 360-U→U：IFEND1→KIF A>U：Then K：ELSE K-2→K：IFEND0→MIf K=1 ：Then M ：ELSE M+1→M：IFENDN+T×（X-N）÷√（（N-X）2+（E-Y）2）→CE+T×（Y-E）÷√（（N-X）2+（E-Y）2）→DLbl 2“L”？→OO-※※(曲线起点里程)→LL>I=>Goto 5C+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI ÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→V◢D+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×sin（A-K×L2×180÷2÷R÷I÷3.1415926+90）→Q◢※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差）→J◢Lbl 3“XZWY”? →GG=1=>Goto 2G=2=>Goto 4Lbl 4“S”? →Z“H”? →HV+Z×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）◢Q+Z×sin（A-K×L2×180÷2÷R÷I÷3.1415926+90）◢H+J◢Goto 3Lbl 5R×Sin(90×(2L-I)÷3.1415926÷R)+I÷2-I~(3)÷240÷R2→YK(R×(1-COS(90×(2L-I)÷3.1415926÷R))+I2÷24÷R-I~(4)÷2688÷R~(3)) →X√(X2+Y2)→FA+ArcTan(Y÷X)+M×180-90→UC+F×Cos（U）+S×COS(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→V◢D+F×Sin（U）+S×Sin(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→Q◢※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差）→J◢Lbl 6“XZWY”? →GG=1=>Goto 2G=2=>Goto 7Lbl 7“S”? →Z“H”? →HV+ Z×COS(A-K×180×(2×L-I)÷2÷301415926÷R+90)◢Q+ Z×Sin(A-K×180×(2×L-I)÷2÷301415926÷R+90)◢H+J◢Goto 6二、反算程序：ZD-FS ※※→X※※→Y※※→N※※→E※※→C※※→D※※→T※※→I※※→R※※→S（本线到中线的距离,向左为负，向右为正）※※→W(曲线起点里程)※※→V(圆心N)※※→Q(圆心E)※※→B(HY---N)※※→J(HY---E)arcCos（（N-X）÷√((N-X) 2 +(E-Y) 2 ) )→Aif E>Y：Then A: ELSE 360-A→A：IFENDarcCos（（C-N）÷√((C-N) 2 +(D-E) 2 ) )→Uif D>E：Then U: ELSE 360-U→U：IFEND1→KIF A>U：Then K：ELSE K-2→K：IFEND0→MIf K=1 ：Then M ：ELSE M+1→M：IFENDN+T×（X-N）÷√（（N-X）2+（E-Y）2）→CE+T×（Y-E）÷√（（N-X）2+（E-Y）2）→DLbl 1“N”? →X“E”? →Y“H”? →H1→G：IF D>J：Then G ：Else -1→G：IfEndK×G×X→OK×G×((V-B)×Y÷(Q-J)+V-(V-B)×Q÷(Q-J))→FIF O>F：Then O ：GOTO 2：IfEndW→O√（（X-C）2+（Y-D）2）→G：While G>0.001 ：G+O→O：O-※※(曲线起点里程)→LC+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）→ND+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI ÷L2-3×L2÷20÷R÷I）+180×M-90）→EA-K×L2×180÷2÷R÷I÷3.1415926+90 ×(N-X)÷√（N-X）2→UarcCos（（N-X）÷√((N-X) 2 +(E-Y) 2 ) )→Fif E>Y：Then F: ELSE 360-F→F：IFEND√（（X-N）2+（Y-E）2）sin（√（F-U）2）→G：WhileEnd：O+G→O◢O-※※(曲线起点里程)→LC+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→TD+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→Z(X-N)÷√（N-X）2×√（（T-X）2+（Z-Y）2）→P◢H-（※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差））→G◢Lbl 2G- 2.785→G6.93→ZG>=0 => “zy=” :√P2-√(Z2+G2)◢“SX=”:G-√(Z2-P2)◢GOTO 1G<=0: G>=-0.97 =>”ZY=”:√P2-Z◢GOTO 1G<=-0.97:G>=-3.05 =>”ZY=”:√P2-(Z-0.36×(-G-0.97)÷2.08)◢GOTO 1G<=-3.05G>=-3.886 =>”ZY=”:√P2-√(2.912-(1.2+G)2)◢GOTO 1G<-3.886:√P2<=4.83 =>”SX=”: G+(√(15.272-P2)-3.67-Z)◢GOTO 1G<-3.886:√P2>4.83 =>”ZY=”: P-√(15.272-(3.67+Z-G)2)◢GOTO 1Lbl 3arcCos（（X-V）÷√((X-V) 2 +(Y-Q) 2 ) )→Uif Y>Q：Then U: ELSE 360-U→U：IFEND3.1415926×R×(A+K×90-U)÷180÷K＋I÷2→LL+ W→O◢R×Sin(90×(2L-I)÷3.1415926÷R)+I÷2-I~(3)÷240÷R2→EK(R×(1-COS(90×(2L-I)÷3.1415926÷R))+I2÷24÷R-I~(4)÷2688÷R~(3)) →N √(X2+Y2)→FA+ArcTan(Y÷X)+M×180-90→UC+F×Cos（U）+S×COS(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→TD+F×Sin（U）+S×Sin(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→Z(X-N)÷√（N-X）2×√（（T-X）2+（Z-Y）2）→P◢H-（※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差））→G◢LbI 4G- 2.785→G6.93→ZG>=0 => “zy=” :√P2-√(Z2+G2)◢“SX=”:G-√(Z2-P2)◢GOTO 1G<=0: G>=-0.97 =>”ZY=”:√P2-Z◢GOTO 1G<=-0.97:G>=-3.05 =>”ZY=”:√P2-(Z-0.36×(-G-0.97)÷2.08)◢GOTO 1G<=-3.05G>=-3.886 =>”ZY=”:√P2-√(2.912-(1.2+G)2)◢GOTO 1G<-3.886:√P2<=4.83 =>”SX=”: G+(√(15.272-P2)-3.67-Z)◢GOTO 1G<-3.886:√P2>4.83 =>”ZY=”: P-√(15.272-(3.67+Z-G)2)◢GOTO 1。

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左中线坐标。

5800不等缓和曲线程序

5800不等缓和曲线程序1.10→Dimz换行【【扩展变量Z为10个】】2.“JDKM”？→A：【【交点桩号】】3.“JDX”？→B：【【交点X坐标】】4.“JDY”？→C：【【交点Y坐标】】5.“FWJ”？→D：【【起点方位角】】6.“PJ”？→V：【【交点偏角，左偏输入负值；右偏输入正值】】7.“R”？→R：【【圆曲线半径】】8.“LS1”？→E：【【第一缓和曲线长度】】9.“LS2”？→F换行【【第二缓和曲线长度】】10.Lbi 0换行【【标签0】】11.E/2-Eˇ（3）/（240R2）→Z[1]：【【第一缓和曲线切垂足】】12.F/2-Fˇ（3）/（240R2）→Z[2]：【【第二缓和曲线切垂足】】13.E2/（24R）-Eˇ（4）/（2688Rˇ（3））→Z[3]：【【第一缓和曲线圆曲内移值】】14.F2/（24R）-Fˇ（4）/（2688Rˇ（3））→Z[4]：【【第二缓和曲线圆曲内移值】】15.Z[1]+（R+Z[3]）/tan(180-Abs(V))+ （R+Z[4]）/sin(180-Abs(V)) →Z[5]：【【曲线一切线长】】16.Z[2]+（R+Z[4]）/tan(180-Abs(V))+ （R+Z[3]）/sin(180-Abs(V)) →Z[6]：【【曲线二切线长】】17.Abs(V)*Rπ/180-(E+F)/2→L：【【圆曲线长度】】18.B-Z[5]*cos(D) →X：【【直缓点X坐标】】19.C-Z[5]*sin(D) →Y：【【直缓点Y坐标】】20.A-Z[5] →Z[7]：【【直缓点里程】】21.Z[7]+E→Z[8]：【【圆缓点里程】】22.Z[8]+L→Z[9]：【【缓圆点里程】】23.Z[9]+F→Z[10]换行【【缓直点里程】】24.LBI 1换行【【标签1】】25.“P---K---M”? →P：【【待求点桩号】】26.“I I”? →K：【【边桩偏角度数，左偏输入负值；右偏输入正值】】27.“I------I”? →S：【【边桩距中桩距离，正值】】28.D→J:E→G：29.If P≤Z[7]：30.Then31.D+K→H：32.P-Z[7] →M:33.0→N:34.Goto5:35.Else if P≤ z[8]:Then P-Z[7] →I:36.90*I2/(RπE) →H:37.V＜0＝＞ -H→H:38.H+K+D→H:39.Goto 3:Else If P≤ Z[9]:40.Then P-Z[8] →I:41.Goto4:Else Goto 2:IfEnd:IfEnd:IfEnd:IfEnd换行42.Lbi 2换行43.B+Z[6]*cos(D+V) →X:44.C+Z[6]*sin(D+V) →Y:45.D+V+180→J:46.G→F:47.If P≤ Z[10]:Then Z[10]-P→I:48.90*I2/(RπF) →H:49.V＞ 0＝＞ -H→H:50.H+J+K+180→H51.Goto 3:Else P-Z[10] →I:52.-I→M:53.0→N:54.J+K+180→H:55.Goto 5:IfEnd换行56.Lbi 3换行57.I-I﹀(5)/(40R2G2) →M:58.I﹀(3)/(6RG)-I﹀(7)/(336R﹀(3)) →N:59.Goto 5换行60.Lbi 4换行61.90(E+2I)/( Rπ) →H:62.R*sin(H)+Z[1] →M:63.R*(1-cos(H))+Z[3] →N:64.V＜0＝＞ -H→H:65.J+H+K→H：66.Goto 5换行67.Lbi 5换行68.If P＜Z[9]:Then -N→N:69.X+M*cos(J)-N*sin(J)+S*cos(H) →X:”PX＝”:X▲70.Y+M*sin(J)-N*cos(J)+S*sin(H) →Y:”PY＝”:Y▲71.Goto 072.73.功能：计算完整曲线（直+缓+圆+缓+直）任意点坐标;两缓和曲线可以不相等；可以不存在（提示时输入0即可）。

5800缓和曲线程序

正算主程序(ZS)Lb1 0FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O) →W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢Goto 0S代表正算桩号Z代表偏距左负右正XS所求点的X坐标YS所求点的Y坐标H所求桩号设计高程反算主程序(FS)Lb1 0FIX4：?X：?Y：Prog“PM-SJ”：X→I:Y→J: Prog "SUB2"："S="：O+W→S◢"Z="：Z◢Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢Goto 0X测点的X坐标Y测点的Y坐标S测点的桩号Z测点的偏距左负右正H测点所在桩号的设计高程正算子程序(SUB1)：1÷P→C: (P-R)÷(2HPR) →D：180÷π→E：0.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+ZcosF→X：Y+ZsinF→Y反算子程序(SUB2)：G-90→TAbs((Y-V)cosT-(X-U)sin（T）) →W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ<1E-6：thenGoto1：ElseW+Z→W：Goto 0：IfEnd←┘：Lbl 1:0→Z：Prog "SUB1"：(J-Y)÷sinF→Z子程序（平面线形数据库）PM-SJ直线ifS≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then19942.837 →U（线元起点X坐标）：28343.561 →V（线元起点Y坐标）：500 →O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265 →H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘缓和曲线ifS≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787.34 →U（线元起点X坐标）：28563.378→V（线元起点Y坐标）：769.256→O（线元起点里程）：125°16°31°→G（线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘圆曲线ifS≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then19766.566→U（线元起点X坐标）：28594.574→V（线元起点Y坐标）：806.748→O（线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘缓和曲线ifS≥919.527（线元起点里程）AndS＜999.812（线元止点里程）：Then19736.072 →U（线元起点X坐标）：28701.893 →V（线元起点Y坐标）：919.527→O（线元起点里程）：91°17°30.63°→G（线元起点方位角）：80.285→H（线元长度）：221.75→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘直线ifS≥999.812（线元起点里程）：Then19744.038 →U（线元起点X坐标）：28781.659→V（线元起点Y坐标）：999.812→O（线元起点里程）：80°40°50°→G（线元起点方位角）：100→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘子程序（竖曲线数据库）SQX-SJifS≤999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）→F：600→R（竖曲线半径）：780→G（变坡点里程）：110→C（变坡点高程）：IfEnd←┘子程序（竖曲线计算公式）SQXE-F→J：ifJ＞0：then-R→R：ElssR→R：Abs（R*J÷2）→T：IfEnd←┘ifS≤G-T：thenG-S→L：C-LE→H：IfEnd←┘ifS＞G-T And S≤G：thenG-S→L：（S+T-G）2÷2÷R→N：C-LE+N →H：IfEnd←┘ifS＞G And S≤G+T：then S-G→L：（G +T- S）2÷2÷R→N：C+LF+N →H：IfEnd←┘ifS＞G+T ：thenS-G→L：C+LF →H：IfEnd←┘三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

CASIO5800CYT综合曲线坐标计算程序V1.0.

[作者原创] CASIO fx-5800P CYT 综合曲线坐标计算程序V1.0说明:本程序适用于卡西欧计算器 CASIO fx-5800P,能进行全线贯通计算。

可计算:第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角,该程序主要针对不对称缓和曲线设计以及对现场施工放样减少了计算方位角和距离的繁琐。

主程序名:CYT第1步50→DimZ:Deg:Fix 6第2步"1=>XY":"2=>DK":?J:If J=1:Then Goto A:IfEnd:If J=2:Then Goto B:IfEnd第3步Lb1 A:"JSDK"?Z:"W"?P:"α"?Q:Prog"YT":Goto C:Lb1 B第4步"QJD(X"?U:"QJD(Y"?V:"JD(X"?N:"JD(Y"?E:"JD(DK"?D:?R:"LS1"?S:"LS2"?T:"α"?A 第5步"JSDK"?Z:"W"?P:"α"?Q:Lb1 C第6步 POL(N-U,E-V:J→F:IF J<0:Then J+360→F:IfEnd第7步S^(2÷24÷R-S^(4÷2688÷R^(3→Z[5]:T^(2÷24÷R-T^(4÷2688÷R^(3→Z[6]第8步S÷2-S^(3÷240÷R^(2→Z[7]:T÷2-T^(3÷240÷R^(2→Z[8]第9步90×S÷π÷R→Z[9]:90×T÷π÷R→Z[10]第10步(Abs(A-Z[9]-Z[10]×R×π÷180→Z[2]第11步(R+Z[5]×tan(Abs(A÷2+(Z[6]-Z[5]÷sin(Abs(A+Z[7]→Z[11]第12步(R+Z[6]×tan(Abs(A÷2+(Z[5]-Z[6]÷sin(Abs(A+Z[8]→Z[22]第13步(R+Z[5]÷COS(Abs(A÷2-R→Z[1]第14步Z[2]+S+T→L:D-Z[11]→Z[12]:Z[12]+S→Z[13]:Z[13]+Z[2]→Z[15]:Z[12]+L→Z[16]第15步Cls:"T1=":Locate 4,1,Z[11]:"T2=":Locate 4,2,Z[22]:"E=":Locate4,3,Z[1]:"L=":Locate 4,4,L◢第16步Cls:"ZH=":Locate 4,1,Z[12]:"HY=":Locate 4,2,Z[13]:"YH=":Locate4,3,Z[15]:"HZ=":Locate 4,4,Z[16]◢第17步F+180→Z[17]:If Z[17]>360:Then Z[17]-360→Z[17]:IfEnd第18步N+Z[11]×Cos(Z[17]→Z[18]:E+Z[11]×Sin(Z[17]→Z[19]第19步F+A→Z[20]:If Z[20]>360:Then Z[20]-360→Z[20]:IfEnd第20步N+Z[22]×Cos(Z[20]→Z[21]:E+Z[22]×Sin(Z[20]→Z[23]第21步 If A<0:Then -1→H:Else 1→H:IfEnd:Goto 2:Lb1 1第22步"JSDK"?Z:"W"?P:"α"?Q:Lb1 2第23步If Z≤Z[12]:Then Goto D:IfEnd:If Z≤Z[13]:Then Goto E:IfEnd第24步If Z≤Z[15]:Then Goto F:IfEnd:If Z≤Z[16]:Then Goto G:IfEnd第25步If Z≥Z[16]:Then Goto H:IfEnd:Lb1D:If Z≤Z[12]:Then Z[12]-Z→G:IfEnd第26步Z[18]+G×Cos(Z[17]+P×Cos(F+Q→X:Z[19]+G×Sin(Z[17]+P×Sin(F+Q→Y:F→Z[27]第27步Goto 3:Lb1 E:If Z≤Z[13]:Then Z-Z[12]→W:IfEnd:If A<0:Then -1→H:Else 1→H:IfEnd第28步 (Z-Z[12]^(2÷2÷R÷S×180÷π→Z[26]第29步F+Z[26]×H→Z[27]:W-W^(5÷40÷R^(2÷S^(2→Z[28]:W^(3÷6÷R÷S→Z[29]第30步 Z[18]+Z[28]×Cos(F-H×Z[29]×Sin(F+P×Cos(Z[27]+Q→X第31步Z[19]+Z[28]×Sin(F+H×Z[29]×Cos(F+P×Sin(Z[27]+Q→Y第32步Goto 3:Lb1 F:If Z≤Z[15]:Then Z-Z[12]→K:IfEnd:If A<0:Then -1→H:Else 1→H:IfEnd第33步 ((Z-Z[12]-0.5×S÷R×180÷π→Z[32]第34步F+Z[32]×H→Z[33]:R×Sin(Z[32]+Z[7]→Z[34]:R×(1-Cos(Z[32]+Z[5]→Z[35]第35步 Z[18]+Z[34]×Cos(F-H×Z[35]×Sin(F+P×Cos(Z[33]+Q→X第36步Z[19]+Z[34]×Sin(F+H×Z[35]×Cos(F+P×Sin(Z[33]+Q→Y:Z[33]→Z[27]第37步Goto 3:Lb1 G:If A>0:Then -1→H:Else 1→H:IfEnd:If Z≤Z[16]:ThenZ[16]-Z→M:IfEnd第38步Z[20]+180→Z[42]:If Z[42]>360:Then Z[42]-360→Z[42]:IfEnd第39步M^(2÷2÷R÷T×180÷π→Z[38]:Z[20]+Z[38]×H→Z[39]第40步 M-M^(5÷40÷R^(2÷T^(2→Z[40]:M^(3÷6÷R÷T→Z[41]第41步 Z[21]+Z[40]×Cos(Z[42]-H×Z[41]×Sin(Z[42]+P×Cos(Z[39]+Q→X第42步Z[23]+Z[40]×Sin(Z[42]+H×Z[41]×Cos(Z[42]+P×Sin(Z[39]+Q→Y:Z[39]→Z[27]第43步Goto 3:Lb1 H:If Z≥Z[16]:Then Z-Z[16]→O:IfEnd第44步Z[21]+O×Cos(Z[20]+P×Cos(Z[20]+Q→X:Z[23]+O×Sin(Z[20]+P×Sin(Z[20]+Q→Y:Z[2 0]→Z[27] 第45步 Goto 3:Lbl 3第46步 Cls:"F=":Locate 3,1,Z[27]°:"X=":Locate 3,2,X:"Y=":Locate 3,3,Y◢第47步"Z(X"?B:"Z(Y"?C第48步 POL(X-B,Y-C:If J<0:Then J+360→J:Else J→J:IfEnd第49步 Cls:"F=":Locate 3,1,J°:"S=":Locate 3,2,I◢第50步 Goto 1数据库名:YTGoto 1Lbl 1:If Z<10000:Then3378226.731→U:456053.721→V:3373351.385→N:458628.379→E:9557.84→D:2040→R:260→S:280→T:-14°18ˊ10″→A:Return:IfEndLbl 1:IfZ<…………………………………………………………………………………………………………………………………………………………………………………………Lbl 1:If Z<本交点HZ里程或下个交点ZH里程:Then 前交点坐标X→U:前交点坐标Y→V:本交点坐标X→N:本交点坐标Y→E:交点里程→D:曲线半径→R:第一缓和曲线长→S:第二缓和曲线长→T:转角→A:Return:IfEndLbl 1每增加一行则为增加一个曲线要素,……表示下一个曲线要素。

卡西欧5800曲线坐标计算程序-正确

CASIO4800改5800p坐标计算程序-角度以度为单位1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。

2、A？输入转角：左转为负，右转为正3、R？输入圆曲线半径4、LS？输入缓和曲线长度5、JD？输入交点桩号6、J？输入0程序计算中桩，输入1程序计算边桩7、N？E？输入交点X、Y坐标8、FW 待求点切线方位角9、当计算交角为60°时，则公式改为（U+60），（U-120）1 ？A：？R：“LS”？C：“JD”？D2 C∧2/24/R-C∧4/2688/R∧3→P 求缓和曲线内移、值3 C/2-C∧3/240/R∧2→Q 切距差4 90C/兀/R→B 缓和曲线角度β05 (R+P)tan(AbsA/2)+Q→T 切线长6 (R+P)/cos(A/2)-R→W 外矢距7 ((AbsA)-2B)兀R/180+2C→L 缓和曲线长8 D-T→G 直缓点里程9 G+C→H 缓圆点里程10 G+L/2→I 曲中点里程11 G+L-C→K 圆缓点里程12 G+L→M 缓直点里程13 ？N：？E：？F：？Ｊf为方位角14 If A＜0：Then -1→S：Else 1→S：IfEnd15 F+A/2+90S→U16 W+R→V17 N+VcosU→B18 E+VsinU→O19 Lbl 120 ？Z21 If Z≤G：Then T+G-Z→L22 F+180→V23 F→U24 Goto 225 IfEnd26 If Z≤H：Then Z-G→L27 L-L∧5/(90R∧2C∧2)→V28 30L∧2S/(兀RC)→L29 F+180→P30 F+L→Q31 “FW=“：F+3L→U◢32 Goto 433 IfEnd34 If Z≤K：Then F+A/2+90S-180+180(Z-I)S/R/兀→L35 “FW=“：L+90S→U36 Goto 537 IfEnd38 If Z≤M：Then M-Z→L39 L-L∧5/(90R∧2C∧2)→V40 30SL∧2/(兀RC)→L41 F+A→P42 F+A+180-L→Q43 F-3L+A→U44 Goto445 IfEnd46 If Z>M：Then Z-M+T→L47 F+A→U48 U→V49 Goto 250 IfEnd51 Lbl 252 “X=“：N+LcosV→X◢53 “Y=“：E+LsinV→Y◢54 Goto 655 Lbl 356 ？W57 “XL=”：X+Wcos(U-90) ◢58 “YL=”：Y+Wsin(U-90) ◢59 “XR=”：X+Wcos(U+90) ◢60 “YR=”：Y+Wsin (U+90) ◢61 Goto 162 Lbl 463 ”X=“：N+TcosP+VcosQ→X◢64 ”Y=“：E+TsinP+VsinQ→Y◢65 Goto 666 Lbl 567 “X=”：B+R cosL→X◢68 “Y=”：O+RsinL→Y◢69 Goto 670 Lbl 671 J=1=> Goto 372 Goto 1注：◢为输出指令，只要在后面加上，即把前面的结果输出在屏幕上。

正确5800计算器公式

]一、曲线程序5800“Q”?Q:“W”?W:“K”?K:“R”?R:“F”?F:“N”?N:“V”?V:“G”?G◢“M=”:V÷2-V∧(3) ÷(240R2) →M◢“P=”:V2÷(24R)-V∧(4) ÷(2688R∧(3)) →P◢“L=”: ΠRN÷180+V→L◢“T=”:（R+P）tan(N÷2)+M→T◢“A=”:Q-T→A◢“B=”:A+V→B◢“D=”:A+L→D◢“C=”:D-V→C◢Rec(T,F+180)回车键“Z[1]= ”:W+I→Z[1] ◢“Z[2]= ”:K+J→Z[2] ◢Rec(T,F+GN) 回车键“Z[3]= ”:W+I→Z[3] ◢“Z[4]= ”:K+J→Z[4] ◢Lbl 零回车键“S”?S:“H”?H:“E”?E 回车键S÷(Abs(S+10×10-9))→U:Abs(S)→S回车键If H＜A:Then Goto1:Else If H＜B:Then Goto 2：Else If H ＜C:Then Goto 3: Else If H＜D:Then Goto 4: Else Goto 5:If End If End If End If End If End回车键Rec(Q-H,F+180)回车键W+I→X:K+J→Y回车键Rec(S,F+180-(180-E)U)回车键X+I→X◢Y+J→Y◢SU→S回车键Goto 零回车键Lbl 2回车键H-A→Z◢90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3)+ Z∧(11)÷42240 R∧(5)V∧(5)→Z回Lbl 6回车键Rec(X,F) 回车键Z[1]+I→X:Z[2]+J→Y回车键Rec(Z,F+90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+OG+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 3回车键H-A-V→Z回车键180V÷(2RΠ)→T回车键180Z÷(RΠ)+T→O回车键“X=”:Rsin(o)+M→X回车键R(1-cos(O))+P→Z回车键Goto 6 回车键Lbl 4回车键D-H→Z回车键90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3))+ Z∧(11)÷(42240 R∧(5)V∧(5))→Z回车键Rec(X,F+GN+180) 回车键Z[3]+I→X:Z[4]+J→Y回车键Rec(Z,F+GN+180-90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+GN+180-OG-(180-E)U) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 5回车键Rec(H-D+T，F+GN) 回车键W+I→X:K+J→Y回车键Rec(S，F+GN+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零Q说明：1、Q?交点桩号列37+549、输37549，W?交点X坐标，K?交点Y坐标，R半径，F？方位角，N转角值，V?缓和曲线，G?左右转角列-1左、1右，S?左右边桩距离左负右正，H?所求点桩号，E?公路角度。

卡西欧5800完整程序

卡西欧5800计算程序（请仔细核对）（程序输完毕后记得先在普通模式扩展变量，输入：35→Dimz，按EXE键，出现Done,扩展成功）ZHYHZ（不运行，该程序为主线坐标的计算程序）E2÷24÷R→Z[1]: E÷2-E^（3）÷(240R2) →Z[2]: F2÷24÷R→Z[3]: F÷2-F^3÷(240R2) →Z[4]: (R+Z[1])tan(H÷2)+Z[2]-（Z[1]-Z[3])÷sin （H）→Z[5]： (R+Z[3])tan (H÷2)+Z[4]+(Z[1]-Z[3])÷sin (H)→Z[6]: tan-1 ((R+Z[1])÷(Z[5]-Z[2]))→ Z[7]: tan-1 ((R+Z[3])÷(Z[6]-Z[4])) →Z[8]: E÷R×90°÷π→Z[9]: F÷R×90°÷π→Z[10]: G+DH→Z[11]: A-Z[5]→Z[12]: Z[12]+E→Z[13]: Z[13]+( 90°-Z[7]-Z[9])Rπ÷180°→Z[14]: Z[13]+(H-Z[9]-Z[10]) Rπ÷180°→Z[15]: Z[15]+F→Z[16]: B+Z[5]cos (G-180°)→Z[17]: C+Z[5]sin (G-180°)→Z[18]: B+Z[6]cos （Z[11]）→Z[19]: C+Z[6]sin （Z[11]）→Z[20] ←┚If K≤Z[14]:Then E→Q: K-Z[12] →L: Else F→Q: Z[16]-K→L:IfEnd ←┚If K≤Z[12]: Then Goto 1：Else If K＞Z[12] And K≤Z[13]: Then Goto 2: Else If K＞Z[13] And K≤Z[14]: Then Goto 3: Else If K ＞Z[14] And K≤Z[15]: Then Goto 4: Else If K＞Z[15] And K≤Z[16]: Then Goto 5: Else If K＞Z[16]: Then Goto 6:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd←┚LbI 1:G→Z[26]: Z[17]-Lcos (G-180°)→Z[21]: Z[18]-Lsin(G-180°) →Z[22]: Goto 9←┚LbI 2: L-L^5÷(40R2Q2) →Z[23]: L^（3）÷(6RQ)- L^（7）÷(336R^（3）Q^（3）) →Z[24]: G+DL2×90°÷(QRπ) →Z[26]: Goto 7←┚LbI 3: (L-Q)×180°÷(Rπ)+Z[9]→Z[25]: Rsin （Z[25]）+Z[2]→Z[23]: R(1-cos （Z[25])）+Z[1]→Z[24]: G+DZ[25]→Z[26]: Goto 7←┚LbI 4: (L-Q)×180°÷(Rπ)+Z[10]→Z[25]: Rsin（ Z[25]）+Z[4]→Z[23]: R(1-cos （Z[25]）)+Z[3]→Z[24]: Z[11]-DZ[25]→Z[26]: Goto 8←┚LbI 5: L-L^5÷(40R2Q2)→Z[23]: L^（3）÷(6RQ)- L^7÷(336R^（3）Q^（3）)→Z[24]: Z[11]-DL2×90°÷(QRπ)→Z[26]: Goto 8←┚LbI 6: Z[11]→Z[26]: Z[19]-L×cosZ[11]→Z[21]: Z[20]-Lsin （Z[11]）→Z[22]: Goto 9←┚LbI 7: Z[17]+Z[23]cos（G）+Z[24]cos(G+D×90°)→Z[21]: Z[18]+ Z[23]sin（G）+Z[24]sin（G+D×90°)→Z[22]: Goto 9←┚LbI 8: Z[19]+Z[23]cos(Z[11]+180°)+Z[24]cos(Z[11]+ D×90°)→Z[21]: Z[20]+Z[23]sin(Z[11]+180°)+Z[24]sin（Z[11]+D×90°)→Z[22]: Goto 9←┚LbI 9: ＂JJ＂?N:＂PJ＂?P: ＂X=＂：Z[21]+Pcos(z[26]+N)→X◢＂Y=＂: Z[22]+Psin(Z[26]+N)→Y◢＂QXFWJ=＂DMS◢←┚ZXZB（该程序为主线程序，只运行该程序）＂CZX＂?S:＂CZY＂?W ←┚LbI 0: ＂K＂?K: If K＜54074.263（第1条曲线的终点桩号带大桩号，也就是是缓直点桩号，下面同上）: Then Goto A：Else If K＜56247.409 （第2条曲线的终点桩号带大桩号）And K≥54074.263（第1条曲线的终点桩号带大桩号）: Then Goto B:Else If K＜58007.266 And K ≥56247.409: Then Goto C:IfEnd:IfEnd:IfEnd←┚（有几条曲线就是几个IfEnd）LbI A: 53203.87266（第1条曲线的交点桩号）→ A: 3560815.660（第1条曲线交点的X坐标）→B:484158.7230（第1条曲线交点的Y 坐标）→ C:76°10＇54.56＂（计算方位角）→G: 16°49＇2.2＂（转角）→ H:-1（路线左右偏，左-，右+）→D:4500（半径）→R:430→（第1缓和曲线的长度）E:430（第2缓和曲线的长度）→F:Prog＂ZHYHZ＂: GotoW←┚（下面同上）LbI B: 55278.9644→ A: 3561878.191→B: 485952.830→ C: 59°21＇52.34＂→G: 19°22＇48.7＂→ H:+1→D:4500→R:430→E:430→F:Prog＂ZHYHZ＂: GotoW←┚LbI C: 57236.8579→ A: 3562263.305→B: 487888.000→ C: 78°44＇41＂→G:14°13＇19.1＂→ H:-1→D:4500→R:430→E:430→F:Prog＂ZHYHZ＂: GotoW←┚LbI W:＂PJ1＂?T←┚If T=0：Then X→Z: Y→M: GotoP: Else GotoV: IfEnd←┚LbI V:＂JJ1＂?O←┚＂X1=＂: X+Tcos（Z[26]+N+O）→U◢＂Y1=＂：Y+Tsin（Z[26]+N+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢＂FWJ=＂DMS◢Goto0显示：1、CZX？（输入仪站X坐标）2、CZY？(输入仪站Y坐标)3、K？（输入所求桩号，带大桩号）4、JJ？（输入夹角，正交输90°，斜交输夹角）5、PJ？（输入偏距，左负右正，中桩输0）6、X=（所求X坐标）7、Y=（所求Y坐标）8、QXFWJ（所求曲线方位角）9、PJ1?（输入左右边桩再偏距离，前负后正，不需要再偏输0）10、JJ1？（输入左右边桩再偏夹角，上面输0，该步不会显示）11、X1= (所求左右边桩再偏X坐标)12、Y1= (所求左右边桩再偏Y坐标)13、JL= （仪站点至所求点的距离）14、FWJ=（仪站点至所求点的方位角）再往下继续计算Z-ZBFSLbI 0＂DQX＂?W:＂DQY＂?S←┚＂JDX＂?A:＂JDY＂?B:＂A0＂?G:＂ZJ＂?H:＂Z(-1)Y(1)＂?D:＂R＂?R:＂LS1＂?E:＂LS2＂?F:＂K＂?K←┚LbI 1←┚Norm 1: Prog＂ZHYHZ＂: Pol(W-Z[21],S-Z[22]): If J＞0：Then J →J:I→I: Else J+360°→J: I=I:IfEnd←┚J-Z[26]→Z[27]:Icos(Z[27])→Z[28]:K+Z[28]→K: If Abs（Z[28]≥0.001：Then Goto1：Else Fix 3：IfEnd：Isin（Z[27]）→Z[29]: Fix 3:＂FSJL=＂:Z[29] ◢＂FSK=＂:K◢Goto 0反算时要在反算区域正算一次，获取曲线要素显示1、DQX?(输入反算时的X坐标)2、DQY?(输入反算时的Y坐标)3、然后一直按＂EXE＂出现下面的字符4、FSJL= (所求反算左右偏距，左负右正)5、FSK= (所求反算的桩号)6、再按继续运算WN（不运行）＂ZS=1,FS=2＂？N: 1÷P→C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚LbI 1:1→I:0→Z：Abs(K-Ｏ)→W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：Z[7]+Lcos(F+K)→Z[3]◢＂ZY=＂: Z[8]+Lsin(F+K)→Z[4]◢＂QXFWJ=＂DMS◢Abs(Z)→Z：Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）1÷P→C:(P-R)÷(2HPR)→D: 180÷π→E0.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）））→Z[7]：V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Z[8]：G+QEW（C+WD）+90→F：Z[7]+ZcosF→Z[7]：Z[8]+ZsinF→Z[8]3反算子程序（FS）（不运行）G-90→T：Abs（（Z[8]-V）cosT-（Z[7]-U）sinT）→W：0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Z[8]）cosL-（I-Z[7]）sinL→Z：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非完整曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤218.50（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤373.307 And K＞218.50: Then Goto B:Else If K≤526.691 And K＞373.307: Then Goto C：Else If K≤946.255 And K＞526.691: Then Goto D IfEnd:IfEnd:IfEnd: IfEnd←┚LbI A:3803701.508（起点X坐标）→U:494281.813（起点Y坐标）→V:0起点桩号→O:293°47＇49＂（方位角）→G:218.50（曲线长度）→H:3990.75 （起点半径）→P:3990.75 （止点半径）→R:+1（路线左右偏，左负右正）→Q:Prog ＂WN＂:Goto WLbI B:3803795.099→U:494084.403→V:218.50→O:296°56＇2.4＂→G:154.807→H:10^45 →P:10^45 →R:0→Q:Prog ＂WN＂:Goto W LbI C:3803865.221→U:493946.388→V:373.307→O: 296°56＇2.4＂→G:153.384→H:10^45 →P:496.5 →R:+1→Q:Prog ＂WN＂:Goto W LbI D:3803941.562→U:493813.538→V:526.691→O: 305°47＇3.15＂→G:419.564→H:496.5 →P:496.5 →R:+1→Q:Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂?O←┚（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+K+O）→U◢＂Y1=＂ :Z[4]+Tsin（F+K+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢（仪站至测点的距离）＂FWJ=＂DMS◢（仪站至测点的方位角）Goto01．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0°2．当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值：当位于中线右侧时，Z取正值°当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替°3．当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径°4．当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替°与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径°5．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°二、输入与显示说明1.输入部分：2.. 输入3.ZS=1，FS=2，选择计算方式，输入1正算；输入2反算4.数据库的输入5.U？线元起点的X坐标6.V？线元起点的Y坐标7.O？线元起点的里程8.G？线元的起点切点方位角9.H？线元的长度10.P？线元起点的曲率的半径11.R？线元止点的曲率的半径.12.ZY？线元左右偏标志（左偏Q=-1，右偏Q=1，直线段Q=0）13.计算时：14.K？正算时所求的里程15.JJ？夹角，（正交90°，斜交直接输角度）16.PJ？偏距（左负右正）17..结果18.ZX=正算时，计算得出的测点的X坐标19.ZY=正算时，计算得出的测点的Y坐标20.QXFWJ=正算时，测点对应中线点的切线方位角21.PJ1?：左右桩号再偏距离，不需要时输022.JJ1? :左右边桩再偏角度23.JL=仪站与测点的距离24.FWJ=仪站与测点的方位角25.反算时输入：26.X？反算时所求点的X坐标27.Y？反算时所求点的Y坐标28.结果29.FSZH=反算时，计算得出的所求点的里程30.FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏）GCJSAbs(C-D)×R÷2→Z[1]: A-Z[1]→Z[2]: A+Z[1]→Z[3]:If D-C＞0：Then 1→E:Else -1→E:IfEnd←┚If K≤Z[2] ：Then Goto 1：Else If K＞Z[2] And K≤A: Then Goto 2: Else If K＞A And K≤Z[3]: Then Goto 3: Else IF K>Z[3]:then Goto 4:IfEnd:IfEnd:IfEnd:IfEnd←┚LbI 1： Z[2]-K→L: B-(Z[1]+L)×C→H: Goto 5←┚LbI 2: K-Z[2]→L: B-(Z[1]-L)×C+E×L2÷R÷2→H: Goto 5←┚LbI 3: Z[3]-K→L: B+(Z[1]-L)×D+E×L2÷R÷2→H: Goto 5←┚LbI 4: K-Z[3]→L: B+(Z[1]+L)×D→H:Goto 5←┚LbI 5:＂EL=＂：H◢←┚主线高程（ZXGC）LbI 0: ＂K＂?K: If K≤552.156（第1条竖曲线的终点下面同上）: Then Goto A：Else If K≤1352.805 And K＞552.156: Then Goto B:Else If K≤2045.311 And K＞1352.805: Then Goto C:Else If K≤2493.942 And K＞2045.311: Then Goto D：Else If K≤3265.244 And K＞2493.942: Then Goto E：IfEnd:IfEnd:IfEnd:IfEnd: IfEnd←┚LbI A: 501.436（边坡点桩号）→ A: 226.395（边坡点高程）→B: -0.0257（边坡点前坡比）→ C: -0.005（边坡点后坡比）→D:4900（半径）→R: Prog＂GCJS＂: Goto F←┚（下面同上）LbI B: 1303.305→A: 222.386→B: -0.005→ C: 0.04→D:2200→R: Prog＂GCJS＂: Goto F←┚LbI C: 1985.311→A: 249.666→B: 0.04→ C: -0.04→D:1500→R: Prog＂GCJS＂: Goto F←┚LbI D: 2425.578→A: 232.055→B: -0.04→ C: -0.0218→D:7500→R: Prog＂GCJS＂: Goto F←┚LbI E: 2849.694→A: 222.823→B: -0.0218→ C: -0.03→D:6000→R: Prog＂GCJS＂: Goto F←┚LbI F：If K≤309.562（第1条曲线的终点）: Then Goto 1：Else If K≤1053.022 （第2条曲线终点）And K＞309.562: Then Goto 2:Else If K≤1354.954 And K＞1053.022: Then Goto 3:Else If K≤1613.025 And K＞1354.954: Then Goto 4：Else If K≤1863.124 And K＞1613.025: Then Goto 5：Else If K≤2937.433 And K＞2312.560: Then Goto 6：Else If K≤3145.553 And K＞2937.433: Then Goto 7：IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:←┚LbI 1: -0.015（直线段横坡）→ F: -0.02（圆曲线线段横坡）→G: 126.9（第1缓和曲线起点）→ I: 176.9（第1缓和曲线终点）→J:259.562（原曲线终点）→L: 309.562(第2缓和曲线终点)→M: 1(方向,左负右正)→N :Goto G←┚（下面同上）LbI 2: -0.015→ F: -0.02→G: 860.749→ I: 920.749→J:993.022→L: 1053.022→M:-1→N :Goto G←┚LbI 3: -0.015→F: -0.02→G: 1248.441→I: 1283.441→J:1319.954→L: 1354.954→M:+1→N :Goto G←┚LbI 4: -0.015→F: -0.02→G: 1439.731→I: 1489.731→J:1563.025→L: 1613.025→M:-1→N :Goto G←┚LbI 5: -0.015→ F: -0.02→G: 1712.165→ I: 1757.165→J:818.124→L: 1863.124→M: 1→N :Goto G←┚LbI 6: -0.015→F: -0.02→G: 2121.544→I: 2121.544→J:2312.560→L: 2312.560→M: 1→N :Goto G←┚LbI 7: -0.015→F: -0.02→G: 2752.223→I: 2812.223→J:2877.433→L: 2937.433→M: 1→N :Goto G←┚LbI 8: -0.015→F: -0.02→G: 3060.515→I: 3060.515→J:3145.553→L: 3145.553→M:-1→N :Goto G←┚LbI G:IfK≤I:Then Goto H :Else If K≤J And K＞I: Then Goto I: Else If K≤L And K＞J: Then Goto J: Else If K≤M And K＞L: Then Goto K: Else If K＞M: Then Goto L: IfEnd:IfEnd:IfEnd:IfEnd: IfEnd←┚LbI H:F→Z:F→Y: Goto 9LbI I:J=I=＞Goto J:（(K-I)× (Abs(F)+ Abs(G))）÷(J-I) -Abs(F)→Z[1]:If N=-1: Then Goto M: Else Goto N: IfEnd←┚LbI M:Z[1]→Y:If Z[1]≤-F:Then F→Z:Else –Z[1]→Z: IfEnd :Goto 9LbI N:Z[1]→Z:If Z[1]≤-F:Then F→Y:Else –Z[1]→Y: IfEnd :Goto 9LbI J:If N=-1:Then G→Z:-G→Y:Else -G→Z: G→Y: IfEnd: Goto 9←┚LbI K: M=L=＞Goto L: (M-K)×(Abs(F)+ Abs(G))÷(M-L)- Abs(F)→Z[2]: If N=-1: Then Goto P: Else Goto Q: IfEnd←┚LbI P:Z[2]→Y:If Z[2]≤-F:Then F→Z:Else –Z[2]→Z: IfEnd :Goto 9LbI Q:Z[2]→Z:If Z[2]≤-F:Then F→Y:Else –Z[2]→Y: IfEnd :Goto 9LbI L:F→Z:F→Y: Goto 9Lbl 9:＂ZC=1,YC=2＂?X:If X=1:Then Goto V:EIse Goto W: IfEnd Ibl V:” BJZ”?J:”BHZ=”:H+J×Z◢Goto 0Ibl W:” BJY”?S:”BHY=”:H+S×Y◢Goto 0显示K？输入桩号显示结果：EL= 所求点中桩高程显示“ZC=1,YC=2”？左侧边桩输1，右侧边桩输2显示“BJZ”或“BJY”输入左右边桩的距离显示结果：“BHZ=”或“BHY=”所求点左右边桩的高程。

卡西欧5800计算器程序

CASIO fx—5800 计算器工程测量与公路测量程序1、坐标正算"X0=' X：Y0=' Y: I= "：: J='' JX+ICos(J) tU:Y+Isin(J) tV"X=' : U (待求点的X坐标)"丫=" : V (待求点的丫坐标)说明：X0 Y0:已知点坐标I:两点的距离J:方位角2、坐标反算Lbl 0"X1=' X： Y1=' Y: X2=' U: Y2='VPol(U-X,V-Y):J<0 J+360 t 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) - ( n R) T E2Rsin tFReC(Abs(F),D+: Cls: X=' :X+I+KCos(D+E+90) tA :Y=' :Y+J+Ksin(D+E+90) tBD+Eto:o<0 360+o t0o: FWJ=' :o DMsGoto 1Lbl 2"END说明：XOYO:起始点的坐标, 半径，DQHAO：FWJ:起始点的方位角，QDHAO :起点里程，ZDHAO终点里程，R: 待求点里程，PY:偏移量4、竖曲线: QZHAO '= J: : H+B =B：' 11 =" C: 12=" D: R=' R: T=" T: ((D-C) - 100)"T :S-ACS((D-100) T A:Ab-CD - 100) T SJ-T T XLbl O"DQ= LIf L<X:Then Goto 1:Else If L >Y:Then Goto 1:If End:If End "GC= :B+C(LJ) - 100+A(L-J+T 十(2R) T HGoto 0Lbl 1" END '说明：QZHAO :曲中点里程，H+B:曲中点高程，11:第一坡度，12:第二坡度，R :半径，T : 切线长，DQ :待求点里程。

Fx-5800计算器程序(含定向及放样方位角、距离计算)

Fx-5800计算器程序一、道路放样（含定向及放样方位角、距离计算）1、主程序：1JDZB（利用第一交点坐标，第二交点坐标，第三交点坐标及里程，偏角，半径，缓和曲线长度计算）20→DimZ“JD1X=”:?X:X→Z[1]:“JD1Y=”:?Y:Y→Z[2]: 输入JD1坐标“JD2X=”:?X:X→U:“JD2Y=”:?Y:Y→V: 输入JD2坐标“JD3X=”:?X:X→Z[3]:“JD3Y=”:?Y:Y→Z[4]: 输入JD3坐标I=PoI(U-Z[1],V-Z[2]):If J＜0:Then J+360→J:EIse J→J:IfEnd：J→F:"F12=":F►DMS▲显示起始边方位角I=PoI(Z[3]-U,Z[4]-V):If J＜0:Then J+360→J:EIse J→J:IfEnd：J→Z[5]："F23=":Z[5]►DMS▲显示结束边方位角F-Z[5]→A：If A<-180:Then A+360→A:EIse A→A:If End:"A=":A►DMS▲显示偏角Prog“2FJDA”2、次主程序：2FJDA（利用起始方位角，交点坐标及里程，偏角，半径，缓和曲线长度计算）"HX="?X:"HY="?Y: 输入定向（后视点）坐标"ZX="?H:"ZY="?K: 输入测站点坐标Prog“J”显示定向（后视点）距离和方位角“A=”?A：输入偏角（左“-”右“+”），当利用1JDZB程序时，不用再次输入“R=”?R：输入平曲线半径“LS=”?L：输入缓和曲线长度“JDL=”?N：输入平曲线交点里程“JDX=”?U：输入交点X坐标，当利用1JDZB程序时，不用再次输入“JDY=”?V：输入交点Y坐标，当利用1JDZB程序时，不用再次输入“F=”?F：输入起边方位角，当利用1JDZB程序时，不用再次输入180/R/π→Z:ZL/2→B: “B=”:B►DMS▲缓和曲线角“P=”:L^(2)/（24R）-L^(4)/（2688R^(3)）→P▲内移距“Q=”:L/2-L^(3)/(240R^(2))+L^(5)/(34560R^(4))→Q▲切线增长“T=”:(R+P)tan(Abs(A/2))+Q→T▲显示平曲线切线长度“E=”:(R+P)/Cos(Abs(A/2))-R→E▲显示平曲线外距值“L=”:(Abs(A)-2B)/Z+2L→o▲显示平曲线曲线长度“D=”:2T-o→D▲显示球曲差30→DimZ“ZH=”:N-T→Z[1]▲显示直缓点里程“HY=”:Z[1]+L→Z[2]▲显示缓圆点里程“QZ=”:Z[1]+o/2→Z[3]▲显示曲中点里程“YH=”:Z[1]+o-L→Z[4]▲显示圆缓点里程“HZ=”:Z[1]+o→Z[5]▲显示缓直点里程“ZHX=”:U+Tcos(F+180)→Z[7]▲显示直缓点X坐标“ZHY=”:V+Tsin(F+180)→Z[8]▲显示直缓点Y坐标“HZX=”:U+Tcos(F+A)→Z[15]▲显示缓直点X坐标“HZY=”:V+Tsin(F+A)→Z[16]▲显示缓直点Y坐标0→C:0→W:L-L^(3)/(90R^(2))→C:ZL/6→W:If A<0:Then -W→W: EIse W→W: If End:“HYX=”:Z[7]+Ccos(F+W)→Z[9]▲显示缓圆点X坐标“HYY=”:Z[8]+Csin(F+W)→Z[10]▲显示缓圆点Y坐标“YHX=”:Z[15]+Ccos(F+A+180-W)→Z[13]▲显示圆缓点X坐标“YHY=”:Z[16]+Csin(F+A+180-W)→Z[14]▲显示圆缓点Y坐标If A<0:Then -B→B:EIse B→B:If End:0→S:0→C:0→W:o/2-L→S:SZ/2→W:2Rsin(W)→C:If A<0:Then -W→W: EIse W→W:If End:“QZX=”:Z[9]+Ccos(F+B+W)→Z[11]▲显示曲中点X坐标“QZY=”:Z[10]+Csin(F+B+W)→Z[12]▲显示曲中点Y坐标LbI8:“LP=”?→M:Prog“3ZBJS”:Goto8 输入放样点P里程3、子程序：3ZBJS20→DimZ0→S:0→W:0→D:0→G:If M≤Z[1]:Then F+180→W:F+90→G:N-M→S:U→P:V→Q:Goto5: Else If M≤Z[2]:Then M-Z[1]→S:Z[7]→P:Z[8]→Q:Goto1:Else If M＜Z[4]:Then M-Z[2]→S:Z[9]→P:Z[10]→Q:Goto2:Else If M＜Z[5]:Then Z[5]-M→S:Z[15]→P:Z[16]→Q:Goto1: Else F+A→W:W+90→G:T+M-Z[5]→S:U→P:V→Q:Goto5:If End:LbI 1:ZS^(2)/(6L)→W:3W→G:S-S^(5)/(90R^(2)L^(2))→S:If A<0:Then -W→W:-G→G:EIse W→W:G→G:If End:If M＜Z[2]:Then F+W→W:F+G+90→G:EIse F+A+180-W→W:F+A+180-G-90→G:If End:Goto5:LbI 2:SZ/2→W:2W→G:2Rsin(W)→S:If A<0:Then -W→W:-G→G:EIse W→W:G→G:If End:F+B+W→W:F+B+G+90→G:Goto5:LbI 5:“X=”:P+Scos(W)→Z[13]▲“Y=”:Q+Ssin(W)→Z[14]▲Z[13]→X：Z[14]→Y：Prog“J”：显示放样点（前视点）距离和方位角Goto6:LbI 6:“BZ=”?D: 输入偏距（左“-”右“+”）“X=”:Z[13]+Dcos(G)→Z[17]▲“Y=”:Z[14]+Dsin(G)→Z[18]▲Z[17]→X:Z[18]→Y:Prog“J”显示放样点（前视点）距离和方位角4、子程序：JI=PoI(X-H,Y-K):If J＜0:Then J+360→J:EIse J→J:IfEnd："S=":I▲"F=":J►DMS▲。

卡西欧5800程序使用说明

“SBJS”坐标计算程序
此说明适用于有对称完整的缓和曲线，圆曲线
“X0”后视点X坐标，
“Y0”后视点Y坐标，
“X1”测站点X坐标，
“Y1”测站点Y坐标，
“ANGLE”测站点坐标方位角，
“DIST”测站点到后视点的距离，
“KJD”交点桩号
“XJD”交点X坐标，“YJD”交点Y坐标
“FWJ”方位角，“O”转角，“FH”左转为-1，右转为1
“A1”第一个缓和曲线的缓和参数，“R”第一个缓和曲线的半径
“A2”第二个缓和曲线的缓和参数，
“T1、T2”第一、二切线长，
“K”放样点桩号，“DD1”距中桩的距离（左边为正数，右边为负数），“JJ1”与路线方向的右夹角（90度时为0，95度时为5度，85度时为-5度）
“DD2，JJ2”全部输0，
“X2，Y2”所求点的坐标，“ANGLE”测站点于所求点的方位角，“DIST”测站点到所求点的距离。

“SJGC”计算路面标高的程序
“KJD”交点桩号，
“HJD”交点桩号的高程，
“I1、I2”前、后纵坡值（这个值最好自己算，多保留几位小数，图纸上的数据只保留了三位小数，使用图纸的数据可能计算出来的标高有差异），
“R”竖曲线半径，
“K”所求桩号，
“DD”距中桩的距离（方向是与路线方向成90度角的，计算中桩时输0），
“HP”横坡值（边桩比中桩高时输正数，边桩比中桩低时输负数），“HZ”所求点中桩高程，
“HB”所求点边桩高程。

(完整word版)缓和曲线计算程序说明

缓和曲线测设数据计算程序说明（一）缓和曲线测设数据计算程序设计框图根据《测量学》(第四版）§10-4中所介绍的计算公式，设计“缓和曲线测设数据计算程序”（Ecurve。

lsp）。

其步骤如下：(1）设计“缓和曲线测设数据计算程序”的数据输入对话框（文件名为:Ecurve。

dcl）,用以输入道路中线的已知数据（交点桩号和坐标、前后转点坐标），设计数据（圆曲线半径、缓和曲线长度、曲线分段长度、道路半宽）等.（2) 设计“从编辑框取值”子程序，将字符型数据变换为实数型。

（3）应用“方位角函数"按道路中线点坐标计算中线方位角和交点处的道路偏角;根据交点桩号、偏角和曲线的设计数据计算曲线元素（切线长、曲线长、外矢距）,曲线主点桩号和坐标。

（4) 在独立坐标系中计算缓和曲线细部点及其边线点、圆曲线细部点及其边线点的独立坐标,然后变换为大地坐标；在CAD屏幕绘制曲线的主点和细部点.(5) 文件输出曲线测设所需要的主点和细部点的坐标数据。

图1为缓和曲线测设数据计算程序设计框图.图1 缓和曲线测设数据计算程序框图（二）缓和曲线坐标计算程序中变量的标识符规定1。

设计数据S2 —注记字高(单位：毫米）;PNjd —交点桩号（以后PN代表其余各桩桩号的开头）；JD —交点点位；Xj, Yj - 交点坐标；FD， BD —前视转点，后视转点的点位（F-fore,B—back）;Xf， Yf， Xb，Yb —前视转点,后视转点的坐标;R —圆曲线设计半径;Ls —缓和曲线设计长度；LN, N —缓和曲线分段间距，分段数；CN —圆曲线整桩间距;D —道路半宽；W —道路设计宽度。

2。

道路转向偏角和曲线计算元素Ab，bA,Af，fA —交点至前视转点、后视转点的正、反方位角（A-azimuth）;Am —内矢距方向的方位角;LR —判断路线左偏或右偏（1—左偏，2—右偏）；A —路线偏角；m， p —增设缓和曲线后的曲线增长，曲线内移距；B0 - 缓圆点切线方位角βo；ZH，HY，QZ,YH,HZ —曲线主点：直缓、缓圆、曲中、圆缓、缓直点的点位；ZH1，HY1,QZ1，YH1，HZ1 —直缓、缓圆、曲中、圆缓、缓直点的注字点位；Aq, Ah, Az - QZ、HY、YH点的注字方向的方位角；Xe，Ye — YH或HY点的独立坐标（在转换为大地坐标前）；L, Lc - 曲线总长度，圆曲线长度；TT， EE —切线长,外矢距;HY0，YH0 — HY点、YH点在切线上的投影点位。