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计算器工程应用程序.
卡西欧5800计算器测量专用程序一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。
3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY”:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”: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≠-1(反算带显示设计高程和横坡.在2ZD程序中修改这:Prog＂QX＂:"KM"?Z:Do: Prog＂K＂:＂XO＂?X:X=-1=>Stop:X=-2=>Break:＂Y0＂?Y: Porg＂B＂:Prog＂H＂: Prog＂ZD＂: ＂ H=＂: Locate 6,4,H：＂ I=＂:Locate 6,4,I◢LpWhile X≠-1 )3.主程序：任意点高程计算及横坡程序名:3GCP rog＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂ H=＂: Locate 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=＂: Locate 6,4,P：＂ RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂K M＂?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:IfE nd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂ LX=＂:Locate 6,4,T：Prog＂ZD＂:＂ TW=＂: Locate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: P rog＂K＂: ?D: Porg＂A＂:Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:P rog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:” T W=”: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”: LpWhi le 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: If End: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:Ret urn:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→Z: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)÷154 828800÷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:9 0S2÷Π÷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:LbI 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=”: Lo cate 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时。
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子程序名QXJSSUB0 (数据库)IF S<终点里程:THEN 起点坐标（X）→U:起点坐标（Y）→V:起点里程→O:起点方位位角→A:弧长→L:半径（顺+；逆—）→P: 半径（顺+；逆—）→R: Return:IfEnd↙（圆曲线）IF S<里程（HZ）:THEN 坐标X（YH）→U:坐标Y（YH）→V:里程（YH）→O:方位角（YH）→A:缓和曲线长→L: 半径（顺+；逆—）→P: 10^45（顺+；逆—）→R: Return:IfEnd↙（第二缓和曲线长）IF S<终点里程:THEN 起点坐标（X）→U: 起点坐标（Y）→V: 起点里程→O: 起点方位位角→A:直线长度→L: 10^45→P:10^45→R: Return:IfEnd↙（直线）IF S<里程（HY）:THEN坐标X（ZH）→U: 坐标Y（ZH）→V:里程(ZH)→O:方位角(ZH)→A:缓和曲线长→L: 10^45（顺+；逆—）→P:半径（顺+；逆—）→R: Return:IfEnd↙(第一缓和曲线长）IF S<终点里程(ZD):THEN坐标X(YH)→U: 坐标Y(YH)→V:里程(YH)→O:方位角(YH)→A:缓和曲线参数A2÷R→L: 半径（顺+；逆—）→P: 10^45（顺+；逆—）→R: Return:IfEnd↙(卵形曲线YH-ZD)IF S<终点里程(HY):THEN坐标X(起QD)→U: 坐标Y(起QD)→V: 里程(起QD)→O: 方位角(起QD)→A:非完整缓和曲线弧长→L: 缓和曲线参数A2÷(缓和曲线参数A2÷R—L)→P: 半径（顺+；逆—）→R: Return:IfEnd↙(卵形曲线QD-HY)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) →Z↙Return说H（高程主程序）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 3子程序名SQXZL（竖曲线数据库）If Z≤竖曲线终点里程:Then 半径→R:切线长→T:竖曲线交点里程→H: 竖曲线交点高程→D:第一纵坡(有正;负区分)→P: 第二纵坡(有正;负区分)→Q:Return:IfEnd↙明：QXJS-000 主程序1.SZ=>XY（正算线路中边桩坐标；切线方位角）2.XY=>SZ（坐标反算里程；距中）1，2=?输1↙LICHENG=?欲算里程OUT JL=?距中（右+：左—；中桩0）OUT JD=?算边桩角度（正交90;斜交另输角度;中桩输0）XZB=；YZB=欲算坐标QXFWJ=欲算点切线方位角QXJS-000 主程序1.SZ=>XY（正算线路中边桩坐标；切线方位角）2.XY=>SZ（坐标反算里程；距中）1，2=?输2↙LICHENG=?欲算里程（输0↙）XZB=?YZB=?输欲算距中，里程的坐标LICHENG=算出欲算里程OUT JL=算出欲算距中（右+：左—；中桩0）G 主程序（直坡计算中，边桩标高）Fix3：Lb1 3：“K”？K：“D”？D：“B”？B：Prog“GCJS”：“H=”：S+（K—E）I—DB→H◢Goto3↙子程序名GCJS (数据库)If K≤终点里程:Then 起点高程→S: 起点里程→E:坡度→I:Return:IfEnd↙SQXJS 主程序（竖曲线计算中，边桩标高）Fix3：Lb1 4：“K”？K：“D”？D：“B”？B：Prog“XLJS”：K—E+T→A↙tag-1（I）→J↙S—Tsin（J）→G↙90A÷R÷π→P↙“H=”：G+A sin（J—NP）—DB→H◢Goto4↙子程序名XLJS(数据库)If K≤终点里程:Then ±1→N：半径→R：交点里程→E:交点高程→S：第一纵坡→I:切线长→T：Return:IfEnd↙。
卡西欧5800计算器编程入门程序集
fx-5800P易学易用程序集卡西欧(中国)贸易有限公司版程序列表备注；；用户对用本书疑问，请发邮件到：gongchengji@ 。
欢迎交流！卡西欧的客服热线：400-700-6655。
联系:gongchengji@ 。
G1G2G3G4G5G6G7G8G9G10G111-1G12G12-10-10-2fx-5800P G2011-9-30...常用测量程序1极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名5 J<0J+360→J把小于6 7 "FWJ="：J DMS ◢显示方位角2已知边长方位角计算坐标程序，程序名3建筑轴线偏移程序(或扩大基础程序)。
程序名（）（）4测角前方交会坐标计算，程序名5测角后方交会坐标计算，程序名3 Pol((C –A),(D –B)) : J<0J+360→J : J →Z[4] 计算点（）的方位角4 Pol((E –A),(F –B)) : J<0J+360→J : J →Z[5]计算点（）的方位角5 6 Z[1]<0Z[1]+360→Z[1]计算点（）的顶角并存贮到变量 7 Pol((E –C),(F –D)): J<0J+360→J : J →Z[4] 计算点（）的方位角 8 Pol((A –C),(B –D)): J<0J+360→J : J →Z[5] 计算点（）的方位角9Z[4]-Z[5]→Z[2]方位角计算顶角10 Z[2]<0Z[2]+360→Z[2]计算点（）的顶角并存贮到变量 11 Pol((A –E),(B –F)) : J<0J+360→J :J →Z[4] 计算点（）的方位角 12 Pol((C –E),(D –F)) : J<0J+360→J : J →Z[5]计算点（）的方位角13 14 Z[3]<0Z[3]+360→Z[3]计算点（）的顶角并存贮到变量 15 tan(Z[1]) tan(G) ÷(tan(Z[1])- tan(G))→Z[7] 计算点（）的参数 计算点（）的参数 计算点（）的参数（）（）（）6坐标转换计算程序，程序名-D （）（）（）7直线中边桩坐标计算程序,程序名8圆曲线中边桩坐标计算程序,程序名9完整缓和曲线中边桩坐标计算程序,程序名fx-5800P 程序使用流程：本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A ，将匝道A 所有的曲线线元参数输入A文件里。
fx5800程序
fx－5800魔鬼程序终结版程序DD (线路调度)2000→Dimz↙扩展额外变量（根据内存情况定义）""："Z A B C D E F G"↙从8条线路中选择1条Do↙If Getkey=27：Then 45→Z[41]：305→Z[42]：386→Z[43]：Break：IfEnd↙If Getkey=51：Then440→Z[41]：672→Z[42]：744→Z[43]：Break：IfEnd↙If Getkey=52：Then 792→Z[41]：996→Z[42]：1059→Z[43]：Break：IfEnd↙If Getkey=53：Then1101→Z[41]：1277→Z[42]：1331→Z[43]：Break：IfEnd↙If Getkey=54：Then1367→Z[41]：1515→Z[42]：1560→Z[43]：Break：IfEnd↙If Getkey=55：Then1590→Z[41]：1710→Z[42]：1746→Z[43]：Break：IfEnd↙If Getkey=56：Then1770→Z[41]：1862→Z[42]：1889→Z[43]：Break：IfEnd↙If Getkey=43：Then1907→Z[41]：1971→Z[42]1989→Z[43]:Break:IfEnd↙LpWhile Getkey≠73↙Z[41]4.数据输入：SRZ[41→C ：Z[42→W ：Z[43→M←┘”PW”?N:N≠2013=>Step←┘输入密码2013“ZB1,GC2,CG3” ?N:Cls: 坐标数据按1，高程数据按2，超过数据按3。
N=2＝>Goto 2：N=3＝>Goto 3：Lbl 1:Z[C→A: ”K”?A: A→Z[C]: 输入线源起点桩号Z[C+1→A: ”X”?A: A→Z[C+1]: 输入线源起点坐标XZ[C+2→A: ”Y”?A: A→Z[C+2]: 输入线源起点坐标YZ[C+3→A: ”FW”?A: A→Z[C+3]: 输入线源起点切线方位角Z[C+4→A: ”P”?A: A→Z[C+4]: 输入线源起点半径Z[C+5→A: ”R”?A: A→Z[C+5]: 输入线源终点半径Z[C+7→A: ”Q”?A: A→Z[C+7]: 输入线源方向，直线输入0，左转输入-1，右转输入1 C+7→C: Goto 1←┘Lbl 2:Z[W→A: ”GC”?A: A→Z[W]: 输入变坡点高程Z[W+1→A: ”JD”?A: A→Z[W+1]: 输入边坡点桩号Z[W+2→A: ”R”?A: A→Z[W+2]: 输入竖曲线半径（起点与终点半径输入0）W+3→W: Goto 2←┘Lbl 3:Z[M→A: ”Q(-Z+Y)”?A: A→Z[M]: 输入平曲线方向，左转输入-1 右转输入1。
CASIO5800公路卵型曲线及标准曲线和高程计算一体化公式(附件)
CASIO5800公路卵型曲线、直线及标准曲线计算公式（积木法，建立数据库的计算公式,本公式可以与以下高程计算公式连贯使用）1、FQX(计算运行程序)10→DimZ“K=0,1”？→Z[3]Lb1 1C1s“E”？E:“KC=”？S：If E=1：Then Prog“A”：IfEnd ↵If E=2:Then Prog“Z1”:Goto 2: IfEnd :If E=3:Then Prog “Z2”: Goto 2: IfEnd : If E=4:Then Prog “Z3”: Goto 2: IfEnd : If E=5:Then Prog “Z4”: Goto 2: IfEnd : If E=6:Then Prog “Z5”: Goto 2: IfEnd :If E=7:Then Prog “Z6”: Goto 2: IfEnd : If E=8:Then Prog “Z7”: Goto 2: IfEnd :If E=9:Then Prog “Z8”: Goto 2: IfEnd : If E=10:Then Prog “Z9”:Goto 2: IfEnd:Lb1 2: Prog“FJS”: “D=0”?D: If D＞0: Then “PIANJIA O”?T:X+Abs(D)cos(F+T) →X:Y+Abs(D)sin(F+T) →Y: IfEnd↵ C1s“KC=”：Locate 5,1,S↵“X=”：Locate 5,2,X↵“Y=”：Locate 5,3,Y◢↵Z[3]=1⇒Prog“GCJS”↵Goto 1 ↵2、FJS（计算程序）If P=0：Then Goto 1：E1se Goto 2：IfEnd↵Lb1 1：（S-A）→L：（M+Lcos（F））→X：（N+Lsin（F））→Y：Goto 3↵Lb1 2：If P≠1：Then Goto 4：E1se Goto 5：IfEnd ↵Lb1 4：If P=2：Then 0→Z[4]：IfEnd：If P=3：Then（C÷R）→Z[4]：IfEnd ↵Lb1 0：If G=1:Then（Z[4]+S-A）→L：IfEnd：If G=-1:Then（Z[4]-S+A）→L：IfEnd：（F-（9OGZ[4]2 ）÷（Cπ））→F：（L-Z[4]-（L^（5）-Z[4]^（5））÷（40C2）+（L^（9）-Z[4]^（9））÷（3456C^（4））-（L^（13）-Z[4]^（13））÷（599040C^（6）））→I ↵（（L^（3）-Z[4]^（3））÷（6C）-（L^（7）-Z[4]^（7））÷（336C^（3））+（L^（11）-Z[4]^（11））÷（4240 C^（5））-（L^（15）-Z[4]^（15））÷（9676800 C^（7）））→J ↵（M+GIcos（F）-Jsin（F））→X：（N+GIsin（F）+Jcos（F））→Y：（F+（90GL2）÷（πC））→F ↵Goto 3↵Lb1 5：（S-A ）→L ：（F+（180L ）÷（R π））→Z[5]：（M+R （sin （Z[5]）-sin （F ）））→X ：（N-R （cos （Z[5]）-cos （F ）））→Y ：Z[5]→F ：Lb1 3 ↵ 3．A （建立卵型曲线、直线及标准曲线数据库，此数据仅供参考，新修线路要重新按下面方法输入数据）（以下数据是卵形曲线的数据库建立）If S ≦72932.70:Then 125808.846→M;540693.466→N:72682.70→A:341º51´14.4"→F:2→P:1→G:1100→R:274995.36→C:Goto 2:If End ↵If S ≦73203.68:Then 126049.052→M;540624.697→N:72932.70→A:348º21´53.98"→F:1→P:1→G:1100→R: Goto 2:If End ↵If S ≦73353.68:Then 126318.489→M;540603.124→N:73203.68→A:362º28´46.38"→F:3→P:-1→G:1100→R:366666.5809→C:Goto 2:If End ↵If S ≦73818.69:Then 126467.651→M;540618.276→N:73353.68→A:368º32´4.82"→F:1→P:1→G:2000→R: Goto 2:If End ↵If S ≦74138.69:Then 126915.390→M;540739.886→N:73818.69→A:381º51´22.42"→F:3→P:-1→G:2000→R:64000→C:Goto 2:If End ↵Lb1 2 （以上数据见下图）S ≤曲线的结束里程：M=起点X 坐标:N=起点Y 坐标:A=计算起点桩号: F=计算起点方位角:R=半径:C=缓和曲线参数（A 2=C ）：P=判断线型类别（P=0计算直线，=1计算圆曲线，=2计算第一缓和曲线，=3计算第二缓和曲线）:G=左转右转：E=？输入要计算的线路编号，本程序计算只输入1：KC=？输入所求点桩号：D=0？输入计算边桩边距：PRIANJAO ？边桩与中桩夹角，右90度，左270度，也可以输任意夹角。
卡西欧5800基本测量程序
卡西欧5800程序（完整版）Lbl 31If A>P-T+L:Then P-T+S-B-I^Z: Else P-T+B+I-Z:IfEndlIf K=l:Then If A<P-T+S-L:Then D-E -> B: Else E-D-B:IfEnd:IfEndlIf K=-l:Then If A<P-T+S-L:Then E・D - B: Else D ・E- B:IfEnd:IfEndFSHHQX1Z[5]->X:Z[6]->Y:Z[l]+90K->JlProg " HHQX u IX—Z[3]:Y—Z[4]lRYJ+2Fr+90K—JlProg " XZBH " IX—G:Y—Z1Z[3]->X:Z[4]->Y IProg、' DOTLINE u JDZBProg ” QDZB IZ[5]-Z[3]:Z[6]-Z[4] IIf O=-l:Then P-T+S—A: Prog n QDZB n :Z[3]^Z[5]:Z[4]^ Z[6]: Else Z[l]+90K+K(L^(6R))r^J:L-L A34-(9eR2)^C: Prog ”XZBH ” "End I(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[l]))^(tan(Z[2])-tan(Z[l]))->G ItanZ[2](G-X)+Y->ZlProg n FWJ HZFXZ If M=6:Then Prog " ZSPD " : Else Prog n FSTJ n :IfEndFSLINE Prog ” QDZB IX—G:Y—Z:J—NlProg M FWJ H IN—J:F-J—FlIcos(F)-GlIf G<D:Then If A>P-T+S-L:Then P・T+S+G—Z:Isin(F)-B:Else P-T-G^Z:-Isin(F)^B:IfEnd :1-A:2-O: Else 0-A:IfEndXZBHX+Ccos(J)^XlY+Csin(J)-YHENG PO If A<P-T+L-Z[10] :Then Z[8]->V:Gotol:IfEndlE:Z[8] + （A-P+T-L+Z[10]）E->V: Goto l:IfEndlIf A<P-T+S-L:Then Z[9]^V:Goto l:IfEndlIf A<P-T+S-L+Z[10]:Then （Z[8]-Z[9]）vZ[10]->E:Z[9] + （A-P+T-S+L）E->V: Goto l:IfEndlZ[8]->V ILbl 1GAO CHENG……（交点桩号）-0：……（交点高程）-D:……（小桩号坡度）-N:……（切线长度）-G:……（圆曲线半径）-R I If A<O-G:Then 0^K: Goto l:IfEndlIf A<O+G:Then 1-K: Goto l:IfEndl（K=0为直线、K=1为凸圆、K二・l为凹圆）……（同上）Lbl l:Prog " HENG PO " IK （ A6G ） 2+（2R）-P ID+N（A-O）-P+WV^Fl FWJJS （测回法测坐标）A 1 XA u:B ” YA n :C H XB ':D " YB 1: K H CHANG DU ” :G11JIAO DU 11I=0:J=0:Pol（C-A,D-B）:J<0 J=J + 360zlE=J+GlJ " FWJ 1X"X " =A+KcosE，Y ' Y n二B+KsinE，”END M说明：H JIAO DU ”顺时钟为正、逆时针为负,“ XA “、' YA ”为测站点坐标.”XB“. ”YB”为后视点坐标，“X”. “Y”为前视即待测点坐标，" CHANG DU ”为测站点到待测点距离。
4800P、5800程序使用说明
5800程序使用说明书一、匝道放样程序（ZDJS)1.屏幕显示“K?”，输入待算点里程；2.屏幕显示“X=”，计算出待算点坐标X；3.屏幕显示“Y=”，计算出待算点坐标Y；4.屏幕显示“W?”，输入夹角；5.屏幕显示“L?”，输入左边距；6.屏幕显示“I?”，输入右边距；7.屏幕显示“XL=”，计算出待算点左边距坐标X；8.屏幕显示“YL=”，计算出待算点左边距坐标Y；9.屏幕显示“XR=”，计算出待算点右边距坐标X；10.屏幕显示“YR=”，计算出待算点右边距坐标Y。
（继续按“确认”将返回步骤1）二、匝道子程序（S1)If K≤304.758（终点桩号）:Then000.000（起点桩号）→Q:304.758（终点桩号）→Z:2762282.155（起点X坐标）→A:If K≤终点桩号：Then起点桩号→Q:终点桩号→Z：起点X坐标→A:起点Y坐标→B：起点切线方位角→F：起点曲率1/R1→D:终点曲率1/R2→R: （如是直线均输0）Goto 0:If End换行下一个线元要素输入同上。
Lb1 0：Return ↙三、坐标正反算（2-ZBFS、4-ZBZS）（一）、坐标反算1.屏幕显示“X1=?”，输入置镜点（已知点）X坐标；2.屏幕显示“Y1=?”，输入置镜点（已知点）Y坐标；3.屏幕显示“X2=?”，输入后视点（已知点）X坐标；4.屏幕显示“Y2=?”，输入后视点（已知点）Y坐标；5.屏幕显示“D=”，计算出两点之间的平距；6.屏幕显示“FWJ=”，计算出两点之间的坐标方位角；7.返回步骤3，屏幕显示“X2=?”，输入后视点X坐标。
（二）、坐标正算1.屏幕显示“X1=?”，输入置镜点（已知点）X坐标；2.屏幕显示“Y1=?”，输入置镜点（已知点）Y坐标；3.屏幕显示“D=？”，输入已知点与待算点之间的平距；4.屏幕显示“FWJ=？”，输入已知点与待算点之间的坐标方位角；5.屏幕显示“X2=”，计算出待算点X坐标；6.屏幕显示“Y2=”，计算出待算点Y坐标；7.返回步骤3，屏幕显示“D=？”，输入已知点与待算点之间的平距。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5800缓和曲线程序清单
Deg:Fix4:9→DimZ
“XJD=”?C:”YJD=”?D:”FWJ=”F:”ZXJ=”?K:?R:”LH=
=”?W:”ZHLC=”?M
“P=”:L2/(24R)-L∧(4)/(2688R∧(3)) →P◢
“Q=”:L/2-L∧(3)/(240R2) →Q◢
“E=”:(R+P)/(cos(Abs(K))/2) →E◢
“T=”:(R+P)tan((Abs(K))/2)+Q→T◢
“S=”:(л/180)*R*(Abs(K))+L→S◢
If F≥180:Then F-180→Z[1]:Else 180+F→Z[1]:IfEnd
C+T*cos(Z[1]) →Z[3]
D+T*sin(Z[1]) →Z[4]
Lbl 1
“CDLC=”?Z
“LJK=”?V
Z-M→U
If K≥0:Then V→Z[2]:Else (-V)→Z[2]:IfEnd
If Z[2]≤0:Then Z[5]→Z[2]:Else If U<0:Then Z[5]→
Z[2]:Else If U≤L:Then Z[2]+(U/L)*W→Z[5]:Else If
U
IfEnd: IfEnd: IfEnd
If U<0:Then Goto 3:Else If U≤L:Then Goto 4: Else If
U
IfEnd: IfEnd
Lbl 2
If K<0:Then Z[8]=-Z[8]: IfEnd
“X=”: Z[3]+ Z[7]*cos(F)- Z[8]*sin(F)→X◢
“Y=”: Z[4]+ Z[7]*sin(F)+ Z[8]*scos(F)→Y◢
If K<0:Then F-Z[1]→H:Else F+Z[1]→H:IfEnd
If H<0:Then H+360→H:Else If H≥360:Then H-360→H:
IfEnd: IfEnd
“QXFWJ=”:H◆DMS◢
Goto 1
Lbl 3:”ZX1”
Z[1]→0
Z[7]→U
Z[8]→Z[5]
Goto 1
Lbl 4:”HH1”
90U2/(лRL)→Z[1]
U-U∧(5)/(40 R2 L2)+U∧(9)/(3465R∧(4) L∧(4))-Z[5]*sin(Z[1])→
Z[7]
U∧(3)/(6RL)-U∧(7)/(336R∧(3)L∧(3))+ U∧(11)/(42240 R∧(5)L∧(5))+
Z[5]*cos (Z[1])→Z[8]
Goto 2
Lbl 5:”YQ”
90(2U-L)/(лR)→Z[1]
Rsin(Z[1])+Q-Z[5]*sin(Z[1])→Z[7]
R(1-cos(Z[1]))+P+Z[5]*cos(Z[1])→Z[8]
Goto 2
Lbl 6:”HH2”
(S-U)-(S-U) ∧(5)/(40 R2 L2)+(S-U) ∧(9)/ (3465R∧(4)L∧(4))→Z[6]
(S-U) ∧(3)/(6RL)-(S-U) ∧(7)/(336R∧(3)L∧(3))+(S-U) ∧(11)/
(42240R∧(5)L∧(5))→Z[9]
Abs(K)-90*(S-U) 2/(лRL)→Z[1]
T+(T-Z[6])*cos(Abs(K))-Z[9]*sin(Abs(K))-Z[5]*sin(Z[1])→
Z[7]
(T-Z[6])*sin(Abs(K))+Z[9]*cos(Abs(K))+Z[5]*cos(Z[1]) →Z[8]
Goto 2
Lbl 7:”ZX2”
Abs(K)→Z[1]
T+(U-S+T)*cos(Z[1])- Z[5]*sin(Z[1])→Z[7]
(U-S+T)*sin(Z[1])+Z[5]*cos(Z[1])→Z[8]
Goto 2