fx5800p道路程序(ROAD)终极版)
5800road
5800公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。
运行时只要运行文件名A的程序就可以了，具体运行流程见下图：二、数据文件的编写（一）交点法数据文件编辑交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。
交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。
下图是一段市政道路设计参数数据。
根据上图提供的数据，可以编辑成如下的数据文件：文件名：CHLNR3→DimZ “X0”?A：”Y0”?B：“Ln”?L：Abs(L)-Int(Abs(1000L))/1000→Z[3]：Lbl 0：If Z[3]≠0.0001： Then ?L： Else “Xp”?X：”Yp”?Y：X→Z[1]：Y →Z[2]：IfEnd：Lbl 1：If L>0 ：Then 98°39°35.12°→C：4474.384→D：2 415.861→E：140→F：31°17°23°→G：410.007→H：600→R：IfEnd： If L> 1060 Then 129°56°58.19°→C：4206.421→D：3093.946→E：70→F：-33°5 0°48°→G：1285.437→H：600→R：IfEnd：Prog”XLJS”：If Z[3]≠0.0001：T hen Goto 0：Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N：L＋N→L：－(Z [1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：E lse “L=“：L◢“K=”：K◢IfEnd：Goto 0： IfEnd在面程式中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C：4774.384→D： 2415.861→E：140→F：31°17°23°→G：410.007→H：600→R：IfEnd If L>1060：Then 129°56°58.19°→C：4406.421→D： 3093.946→E：70→F：-33°50°48°→G：1285.437→H：600→R：IfEnd……如果还有其他弯道，可以继续完后加。
5800曲线道路全线坐标正反算(已验证)
CASIO fx-5800P线元法坐标正反算程序V2.0说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。
该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。
主程序名：ABCYT第1步Deg：Fix 3：10→DimZ第2步Lbl 3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂K0+＂?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：＂E＂?Z90=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：＂E=＂：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数据库名：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：每增加一行则为增加一个线元要素。
fx5800P程序(曲线任意里程中边距坐标正反算及高程)
fx5800P程序（曲线任意里程中边距坐标正反算及高程）TYQXJS(主程序）LbI 6:"1.SZ→XY"↙"2.XY→SZ"?S:?N:Prog"SUB0"↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=＞Goto1:Goto2↙LbI 1:?Z:Abs(S-O)→W↙<LbI1:?K:K-2.35→Z:Abs(S-O)→W↙> Prog"SUB1"↙(红字换成后面的就是以中线）"XS=":X◢↙"YS=":Y◢↙"FS=":F-90▶DMS◢↙Goto 6↙LbI 2:?X:?Y↙X→I:Y→J↙Prog"SUB2":O+W→S:Cls↙"S=":S→S◢↙"Z=":Z◢↙<"Z=":Z-2.35◢↙>(上述中红色均可以换成<...>里的，计算出来的偏距为中线准）(顶点高程)→A:(上导高程）→B:（中导高程）→K:：（下导高程）→T:（仰拱低高程）→L↙(本程序现为3台阶7部法施工设计的，如有不同情做适当修改;同时,上述各高程必须与下面计算的S相对应，就是必须是同一里程的数据）"AH=":A+(<标点里程﹥-S）×1.08％◢↙"BH=":B+(<标点里程﹥-S）×1.08％◢↙"CH=":K+(<标点里程﹥-S）×1.08％◢↙"DH=":T+(<标点里程﹥-S）×1.08％◢↙"EH=":L+(<标点里程﹥-S）×1.08％◢↙"Z=":Z◢↙Goto 6↙SUB1（子程序）0.1739274226→A:0.3260725774→B↙0.0694318442→K:0.330009482→L↙1-L→F:1-K→M↙G+QEKW(C+KWD)→Z[1]↙G+QELW(C+L WD)→Z[2]↙G+QEFW(C+FWD)→Z[3]↙G+QEMW(C+MWD)→Z[4]↙A×cos(Z[1]﹚→X↙X×Bcos(Z[2]﹚→X↙X×Bcos(Z[3]﹚→X↙X×Acos(Z[4]﹚→X↙U+WX→Y↙Asin(Z[1])→Y↙Y+Bsin(Z[2])→Y↙Y+Bsin(Z[3])→Y↙Y+Asin(Z[4])→Y↙V+WY→Y↙G+QEW(C+WD)+90→F↙X+Zcos(F)→X↙Y+Zsin(F)→Y↙SUB2（子程序）G-90→T↙(Y-V)cos(T)-(X-U)sin(T)→W↙Abs(W)→W:0→Z↙LbI 6:Prog"SUB1"↙T+QEW(C+WD)→L↙(J-Y)cos(L)-(I-X)sin(L)→Z↙If Abs(Z)﹤0.000001:Then 0→Z:Prog"SUB1"↙(J-Y)÷sin(F)→Z↙Else W+Z→W:Goto 0:IfEnd↙SUB 0LbI 1:If S＜(元线终点里程）：Then(元线起点里程）→O:（元线起点X 坐标）→U:（元线起点Y坐标）→V:(元线起点计算方位角）→G:(元线起点半径）→P:(元线终点半径）→R:(元线长度）→H:(元线偏向标志-为左+为右）→Q:Return:IfEnd↙.............................................(可无限重复，有多少段就可以输入多少段得要素）注意：显示S代表里程，Z代表偏距，N代表选择（1）正算或（2）反算，X.Y为坐标。
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:F ix 3:" X ="：Locate 6,4,X丄" Y =": Locate 6,4, Y丄P rog" 3JS” :Goto 0:Lb1 2:Fix 3:"KM="：Locate 6,4,Z丄"D =": Locate 6,4, D丄G oto 02 .主程序2:高程序横坡程序（设计任意点高程及横坡）程序名：2GCLbI 0:Norm 2“ KM” ?Z:?D:Prog ” H" :Fix 3:H="" :Locate 6,4,比“ 1=” : Locate 6,4/Goto 03. 主程序3:极坐放样计算程序（计算放样点至置仪点方位角及距离）程序名: 3JSX: Y: 1268 . 123 T K置仪点X坐标）2243 . 545^L （置仪点Y坐标，都是手工输入，也可以建导线点数据库子程序，个人认为太麻烦）Y-L T E：X-K T F： Pol（F,E）:IF J<0:Then J+360 T J：|nt（J）+O.O1lnt（60Frac（J））+0.006Frac（60Fr不（J））习惯小数点后四位为角度显示的，也可以用命令J丄DMS丄来直接显示）Fix 4: ” FWJ=' : Locate6,4,J J （不习惯小数点后四位为角度显示的，也可以用命令J J DMS J来直接显示）Fix 3: ”S=” :Locate 6,4J4. 主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序 3 中输入置仪点坐标后计算放样点至置仪点方位角及距离）程序名：4JH-XYLbI 0:Norm 290 T Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1 t F:Prog ” THB” :?L:Z[2]-Z[1] T E:X+L COS(E)T X:Y+Lsin(E) T Y:Fi X3=:"：Locate 6,4,XJ" Y =": Locate 6,4, YJP rog" 3JS” :Goto 0:5. 主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18t DimZ:2 t F:90 t Z[1]:Prog“THB” :Z:D: ” M0” ?M:M t Z[4]:D t Z[3]:Prog ” 6IfGD”D<:L0:T t heZn[6]:0.75-L t D:Goto H:ElseL-0.75 t D:Goto H:IfEndt G:Goto T Lbl H:Prog ” H”03-Z[4] T Z[5]:Z[6] T L:lf Z[5]<0:Then —z[5] T G:Goto W:Else Z[5]LbI W:Prog “W0” :Z[10]+Z[11t] A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:lfEnd:Lbl 1:L+Z[12]+Z[13]+Z[14]+(G-A) X Z[9]+Z[11] X Z[8]+Z[10] X Z[7]:Goto Z:Lbl 2:L+Z[12]+Z[13]+(G-Z[10]) X Z[8]+Z[10] X Z[7]:Goto Z:Lbl 3:L+Z[12]+G X Z[7]:Goto z:Lbl T:L+0.5 t N:lf G>Z[17]:Then (N+Z[18]+(G-Z[17]) X Z[16]+Z[17] X Z[15]) t ZS:EGlosteo (N+G X Z[15]) t S:Goto z:Lbl Z:Z[3] t FixD2: :Abs(D)-S t T: ”L0=” :L Locate 6,4J,T"KM=": Locate 6,4,ZJ"D =": Locate 6,4,DJ“ TW=” : Locate 6,4,Z[5]JGoto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “ G-CH Z E:(BA) X E/S+AL:L:7 .坐标计算次程序(THB)程序名：THB18 T DimZ "KM" ?Z：Prog "XO"1 - P-e：(P-R)十(2HPR) S T 180 +nT:F =1=>Goto 1:F =2=>Goto2 ®Lbl 1: ?D：Abs(Z—O) -W: Prog " A ": X：Y：G oto 3LbI 2:X:Y:X —I Y—J: Prog "B":O+W —Z : D —D:G oto 3LbI 3:IF F=1 Then X：Y：Else Z：D8. 正算子程序(A )程序名: A0.25 —A: 0.52 —B: 0.44 —N 0.0 —K: 0.49 —L: 0.5 —M: U+W(Acos(G+QEKW(C+KWS ))+Bcos(G+QELW(C+LW S ))+Ncos(G+QEMW(C+MWS ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1K-)WS))) —X:V+W(Asin(G+QEKW(C+KW S ))+Bsin(G+QELW(C+LWS ))+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 S )))—Y:G+QEW(C+W S )+Z[1] —Z：2] : X+D cos (Z[2] ) —X: Y+D sin ( Z[2] ) —Y9. 反算子程序(B )程序名: BG-90—T: Abs((Y-V)cos(T)-(X-U)sin(T)) W—: 0—D: Lbl 0: Prog "A": T+QEW(C+W S ) —L：(J-Y)cos(L)-(IX)sin(L) —：IF Abs(D)<0.01:Then Goto1 : Else W+D —W:Goto 0<--1Lbl 1:0 —D Prog "A ": (J-Y) + sin l 2] ) —D:10. 高程计算子程序( H)程序名：HProg “S0”:R:T:C:G-T:I—:CF:Z-F—L:C+T—E-:TGI —Q:IfT=O:Then Q+LI—H:Goto 0:Else If Z<F:ThenQ+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) X M—V:Goto 2:Else AbMD X (C) -KL((NMI) —V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D) X M—V:Goto 2:Else Abs(D) X (((3-C) - L)2-2((Z-C) L)(3)) x (MN)-)+M) —V:Goto 2:IfEnd:LbI 2:Abs(D) —E:V- E-—K)I—:I(EV:12. 数据子程序(附后示例)①程序名：X0 (坐标计算要素程序)If Z> 25900 And Z< 26615.555:Then 25900 —0:11587.421 —U:1847.983 —V:10。
5800公路放样程序
FX-5800计算器公路测量常用程序一、程序功能本程序由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,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”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:Then J+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:Goto H: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,Ｚ◢＂Ｄ＝＂：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 If Z<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:Else Abs(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。
卡西欧Fx5800p道路三维坐标计算程序(线元法)
卡西欧5800p道路三维坐标计算程序（线元法）QXJS-000 主程序（文件名）Lbl 4：＂1.SZ=>NE＂:＂2.NE=>SZ＂:?Q:?S: Prog＂QXJS-SUB0＂↙Lblθ:Q=1 => Goto1:Q=2 => Goto2:↙θ为阿拉伯数字零Lbl 1:?Z:Prog＂QXJS-SUB1＂:Cls：＂N=＂:Locate5,1,N: （X坐标在第一行第五列显示）＂E=＂:Locate4,2,E: （Y坐标在第二行第四列显示）＂ZH=＂:Locate4,3,S:Locate9,3,＂BJ=＂:Locate12,3,Z: （桩号在第三行第四列显示）F▶DMS◢（方位角在第四行显示）Prog＂SQX-000＂: Goto4↙Lbl 2: ＂N=＂:?B: ＂E=＂:?C:B→N: C→E:Prog＂QXJS-SUB2＂: ＂S=＂:S ◢＂Z=＂:Z◢Goto4↙QXJS-SUB0 平面数据库子程序（文件名）Goto1↙Lbl 1 :IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O （线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ (一个完整的线元)。
IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙ (下一个完整的线元)，……无限添加线元。
QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫( cos(A+(X÷P+DX2)×180÷π,θ,X)→N↙V+∫( sin(A+(X÷P+DX2)×180÷π,θ,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EQXJS-SUB2 反算子程序（文件名）Lbl1:θ→Z:1→Q：Prog＂QXJS-SUB0＂: Prog＂QXJS-SUB1＂↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: θ→Z：Prog＂QXJS-SUB1＂:(C-E) ÷sin(F+90) →Z使用使用说明：1、规定以道路中线的前进方向（即里程增大的方向）区分左右；当线路左转时，P、R取负值，当线路右转时，P、R取正值，当线路为直线时，P、R以10的45次方代替，即10^(45)。
5800道路坐标(正反算)程序
5800道路坐标（正反算）程序（终极版）5800道路坐标（正反算）程序1. ZBJSCX (主程序)Lbl 4："ZHENG SUAN=1 "："FAN SUAN=2"：？N：“ZH”？S：Prog“SJK0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：↙Lbl 1:“BD”? Z： Abs(S-O) →W：Prog "ZS"： "X="：X◢"Y="：Y◢F-90→F：“FWJ=”：F▲DMS◢Goto4↙Lbl 2：？X：？Y：X→I：Y→J：Prog“FS”：O+W→S：“ZH=”：S◢“BD=”：Z◢Goto4↙2. ZS (正算子程序)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+Zcos（F）→X： Y+Zsin（F）→Y3. FS (反算子程序)G-90→T： Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "ZS"：T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<0.000001：ThenGoto1:ElseW+Z→W:IfEnd:Goto0↙Lbl1:0→Z:Prog "ZS": (J-Y)÷sin（F）→Z4,SJK0( 数据库子程序)Goto1↙ (同时保存多个曲线时的指针)Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1（直线0、左偏-1、右偏1）→Q：Return:IfEnd……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
卡西欧fx5800p计算器 隧道计算程序专版
(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
)卡西欧fx5800p计算器隧道计算程序专版(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
)本版本是道路版的升级版，程序只改变了SHELL程序，从SHELL中拆分出WORK-SET(工作设置程序)，加入SDPY(隧道放样)。
FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"?I:I=J=>500→DimZ为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量以保证不浪费内存50→Z[C+22]：本程序设置变量个数目前50个刚刚够用。
"PASSWORDS"?I:I→Z[C+39]重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"?J:Cls:J≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。
如不够就适量加大。
RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Norm 1Z[C+23]→N当前分段要素N坐标Z[C+24]→E当前分段要素E坐标Z[C+25]→M当前分段要素起点桩号Z[C+26]→H当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A当前分段要素起点曲率有左偏负右偏正（注意不是半径）Z[C+28]→R当前分段要素终点曲率有左偏负右偏正（注意不是半径）Z[C+29]→L当前分段要素长度Z[C+3]→W斜桩角度Lbi SProg"PROGMODE" ;进入模式功能选择Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"?G ;桩求桩号If G=-1:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置G→Z[C+1]Z[C+2]→B:"JL"?B:B→Z[C+2];B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G;第一行显示桩号"X＝":Locate 3,2,X ;第二行显示X(N)坐标"Y＝":Locate 3,3,Y；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z坐标Locate 10,4,B ；第四行显示横向距离0→IDo:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or Getkey=26) ;锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1If Getkey=26=> Prog "SDFY":Goto B:EndIfPol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"→":Locate 3,2,B:Locate 12,2,Z[C+49]"FWJ"J<0=>J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName：SDFY 隧道放样ClsZ[C+2]→VZ[C+41]→DZ[C+43]→I:"DQD-Z"?I:I→Z[C+43]Z[C+42]→J:"R"?J:J→Z[C+42]Z[C+40]→K:"R-DL"?K:K→Z[C+40]Abs(V-K)→P√(P2+(I-Z-D)2)→U计算实际半径Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G"R":Locate 2,2,ULocate 10,2,U-JIf I-Z-D-J>0 :Then I-Z-D-√(J2-P2)→P:0→OElse If P-J>0:Then P-√(J2-(I-Z-D)2)→O:0→PElse P-√(J2-(I-Z-D)2)→O:I-Z-D-√(J2-P2)→PIfEnd:IfEnd"H":Locate 2,3,OLocate 8,3,"V"Locate 9,3,PLocate 1,4,Z+DLocate 9,4,I0→TDo:T+1→T:T=1000=>Return:L pWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=>ReturnIf V-K>0 :Then V-O→B:Else V+O→B:IfEndFileName：ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEnd 判断线元类型If J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段0.5(R-A)÷L→KAQ→IKQ2→J0.0469100770→P:H+IP+JP2→O0.2307653449→P:H+IP+JP2→T0.5→P:H+IP+JP2→D0.7692346551→P:H+IP+JP2→F0.9530899230→P:H+IP+JP2→P0.1184634425→I0.2393143352→J0.2844444444→YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→XE+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算)Prog"INNEZ"Z[C+37]→UZ[C+38]→V0→B：M+L÷2→G：Prog"ZBJS"Lbi S:RadU-X→I:V-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F)G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙J→BG→Z[C+1]J→Z[C+2]Prog"GCJS"FileName：INNEZ 实测坐标输入程序Lbl S:Norm 1:ClsZ[C+50]=2=>Goto 1Z[C+37]→II<0=>Goto 1"DQD-N"?I 输入待求点N坐标I<0=>Goto 1I→Z[C+37]Z[C+38]→I:"DQD-E"?I 输入待求点E坐标I<0=>Goto 1I→Z[C+38]Z[C+43]→I:"DQD-Z"?I 输入实测高程I<0=>Goto 1I→Z[C+43]ReturnLbi 1I=-1=>Then 2→Z[C+50]If I=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置Prog"INFWJDLDH"Z[C+50]=1=>Goto SReturnFileName：INFWJDLDH实测坐标（用方位角，距离，高差）输入程序Lbi S:Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"?JJ<0=>Goto 1J→Z[C+46]Z[C+47]→I:"DQD-DL"?I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"?K:K→Z[C+48]Z[C+49]→P:"RHT"?P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]ReturnLbi 1If J=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置1→Z[C+50]ReturnFileName: WORK-SET 测站设置程序Norm 1:Cls50→CZ[C+32]→I:"DAT1 2 3"?I:I→Z[C+32]平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)Z[C+4]→I:"0 1 2 3"?I:I→Z[C+4]选择本程序模式0为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Z[C+41]→I:"GC-DH"?I:I→Z[C+41]放样点高差常数Z[C+35]→I:"STATION-N"?I:I→Z[C+35]设置测站N坐标Z[C+36]→I:"STATION-E"?I:I→Z[C+36]设置测站E坐标Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]设置测站Z坐标Z[C+45]→I:"STATION-HI"?I:I→Z[C+45]设置仪高ClsFileName: PROGMODE 程序功能模式选择Z[C+4]→II=0=>Return ;正算模式I=1=>Prog"TURNZH" ;反算模式I=2=>Prog"HXBYP" ;横向边仰坡放样模式I=3=>Prog"ZXBYP" ;纵向边仰坡放样模式FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"?I:I→Z[C+40]输入起坡点与中桩距离常数Z[C+41]→I:"QPD-D Z"?I:I→Z[C+41]输入起坡点与中桩高差常数Z[C+42]→I:"i"?I:I→Z[C+42]输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43]输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与设计位置的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"?I:I→Z[C+33]输入起坡点桩号Z[C+34]→I:"QPD-Z"?I:I→Z[C+34]输入起坡点高程Z[C+42]→I:"i"?I:I→Z[C+42]仰坡时(隧道进出口仰坡，进口为正，出口为负)Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43]输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与设计位置的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22] 本程序设置变量个数目前50个刚刚够用。
卡西欧fx5800p计算器隧道计算程序专版
卡西欧fx5800p 计算器隧道计算程序专版（以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
）本版本是道路版的升级版，程序只改变了SHELL 程序，从SHELL 中拆分出WORK-SET（工作设置程序），加入SDPY（隧道放样）。
FileName:RESET 初始化程序Norm 1:50 C:12345 J"RESET PW"?l:l=J=>500 DimZ 为数据库增加额外变量500 个，在SET、SETPFDYS 程序根据实际再增减变量以保证不浪费内存50T Z[C+22]:本程序设置变量个数目前50个刚刚够用。
"PASSWORDS"?I:I T Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50 t C"PASSWORDS"?J:Cls:J 工Z[C+39]=>StopFileName:SHELL（外壳程序）50tC ;在扩充变量预留前50 个给别的程序用。
如不够就适量加大。
RESET，SHELL ，SET，SETPFDYS ，这几个程序中C 值必需一致Norm 1Z[C+23] tN 当前分段要素N 坐标Z[C+24] tE 当前分段要素E 坐标Z[C+25] tM 当前分段要素起点桩号Z[C+26] tH 当前分段要素起点方位角（正北）单位:弧度Z[C+27] tA 当前分段要素起点曲率有左偏负右偏正（注意不是半径）Z[C+28] tR 当前分段要素终点曲率有左偏负右偏正（注意不是半径）Z[C+29] tL 当前分段要素长度Z[C+3] tW 斜桩角度Lbi SProg"PROGMODE" ; 进入模式功能选择Lbi ADeg:Norm 1:ClsZ[C+1] t G:"ZH"?G ;桩求桩号If G=-1:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置G t Z[C+1]Z[C+2] t B:"JL"?B:B t Z[C+2] ;B 横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Fix 3:Cls ; 设置三位小数"ZH = ":Locate 4,1,G ;第一行显示桩号"X = ":Locate 3,2,X ;第二行显示X(N)坐标"Y = ":Locate 3,3,Y ;第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ;第四行显示Z 坐标Locate 10,4,B ;第四行显示横向距离0 T IDo:I+1 T |：|=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 OrGetkey=26) ; 锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1|f Getkey=26=> Prog "SDFY":Goto B:End|fPol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,|:Locate 12,1,Z[C+45]"t":Locate 3,2,B:Locate 12,2,Z[C+49]"FWJ"J<0=>J+360 T J T DMS 丄J t Z[C+46]| t Z[C+47]Goto 1FileName：SDFY 隧道放样ClsZ[C+2] t VZ[C+41] t DZ[C+43] t|:"DQD-Z"?|:| t Z[C+43]Z[C+42] t J:"R"?J:J t Z[C+42]Z[C+40] t K:"R-DL"?K:K t Z[C+40]Abs(V- K) t PV (P2+(-Z-D)2) TU计算实际半径Fix 3:Cls ;设置三位小数"ZH = ":Locate 4,1,G"R":Locate 2,2,ULocate 10,2,U-J|f |-Z-D-J>0 :Then |-Z-D- V(J2-P2)t P:0t OElse |f P-J>0:Then P-V(J-2(|-Z-D)2) t O:0t PElse P-V (J-2(|-Z- D)2) t O:|-Z-D- V (J2-P2) t P|fEnd:|fEnd"H":Locate 2,3,OLocate 8,3,"V"Locate 9,3,PLocate 1,4,Z+DLocate 9,4,|0 T TDo:T+1 T T:T=1000=>Return:L pWhile Not(Getkey=57 Or Getkey=27); 锁定键盘，并在几十秒 后自动返回Getkey=57=>ReturnIf V-K>0 :Then V- O t B:Else V+O t B:IfEndFileName ：ZBJS 坐标计算程序 Prog"READDAT" Rad G-M t QIf J=2 :Then H+QR t F:Rec(Abs(2Sin(Abs(0.5QR)) 段直接计算If J=3 :Then Goto 5 :IfEnd X+BCos(F+W)t XY+BSin(F+W) t Y Deg:ReturnLbi 5 用五点通用坐标计算计算缓和段 0.5(R-A) - L TK AQ t IKQ2t J 0.0469100770 t P:H+IP+JP2 t O 0.2307653449 t P:H+IP+JP2 t T 0.5 tP :H+IP+JP2 t D0.7692346551 t P:H+IP+JP2 t F 0.9530899230 t P:H+IP+JP2 t P 0.1184634425 t I 0.2393143352 t J 0.2844444444 t YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)) E+Q(ISin(O )+JSin(T)+YSin(D)+JSin(F)+ISin(P)) H+AQ+KQ2t FX+BCos(F+W)t X Y+BSin(F+W) t Y Deg:Return FileName:TURNZH( 坐标反算 ) Prog"INNEZ" Z[C+37] t UZ[C+38] t V0TB : M+L + 2T G : Prog"ZBJS" Lbi S:RadU-X t I:V -Y t JIf I=0 And J=0 :Then Goto A:IfEnd Pol(I,J)IF AR=0:Then If A=R :Then 1t J:Else 3t J :IfEnd:ElseIf A=R :Then 2t J:Else3t J:IfEnd:IfEnd判断线元类型If J=1 :Then Ht F:N+QCos(H) t X:E+QSin(H) T Y ：|fE 直线段直接计算-R),H+QR - 2):N+I T X:E+J T Y l E i dt X t YLbi A:Rec(I,J-F)G+I T G：IF Abs(l)>0.0001 :Then Prog"ZBJS":Goto S /J t BG t Z[C+1]J t Z[C+2]Prog"GCJS"FileName: INNEZ 实测坐标输入程序Lbl S:Norm 1:ClsZ[C+50]=2=>Goto 1Z[C+37] t II<0=>Goto 1"DQD-N"?I 输入待求点N 坐标I<0=>Goto 1I t Z[C+37]Z[C+38] t I:"DQD-E"?I 输入待求点E 坐标I<0=>Goto 1I t Z[C+38]Z[C+43] t I:"DQD-Z"?I 输入实测高程I<0=>Goto 1I t Z[C+43]ReturnLbi 1I=-1=>Then 2 t Z[C+50]If I=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置Prog"INFWJDLDH"Z[C+50]=1=>Goto SReturnFileName: INFWJDLDH 实测坐标(用方位角，距离，高差)输入程序Lbi S:Deg:Norm 1:ClsZ[C+46] t J:"DQD-FWJ"?JJ<0=>Goto 1J t Z[C+46]Z[C+47] t I:"DQD-DL"?I:I t Z[C+47]Z[C+48] t K:"DQD-DZ"?K:K t Z[C+48]Z[C+49] t P:"RHT"?P:P t Z[C+49]Rec(I,J)Z[C+35]+l T Z[C+37]Z[C+36]+J T Z[C+38]Z[C+44]+Z[C+45]+K- P t Z[C+43]ReturnLbi 1lf J=-2:Then Prog"WORK-SET":Goto S:lfEnd 进入工作设置1t Z[C+50]ReturnFileName: WORK-SET 测站设置程序Norm 1:Cls50 t CZ[C+32] T |："DAT1 2 3"?l:l T Z[C+平2曲线要素数库类型选择1为内置式，2文件式，3实时输入（查看当前要素值）Z[C+4] t l："0 1 2 3"?l：l t Z[C+4] 选择本程序模式0为坐标正算，1 坐标反算，2横向边仰坡放样，3，纵向边仰坡放样（隧道进出口用到）Z[C+41] t l："GC-DH"?l：l t Z[C+41] 放样点高差常数Z[C+35] t l："STATlON-N"?l：l t Z[C+35] 设置测站N 坐标Z[C+36] T |："STATION-E"?I:I T Z[C+36]设置测站E 坐标Z[C+44] T |："STATION-Z"?I:I T Z[C+44] 设置测站Z 坐标Z[C+45] t I："STATION-HI"?I：I t Z[C+45] 设置仪高ClsFileName： PROGMODE 程序功能模式选择Z[C+4] t II=0=>Return ; 正算模式I=1=>Prog"TURNZH" ; 反算模式I=2=>Prog"HXBYP" ;横向边仰坡放样模式I=3=>Prog"ZXBYP" ; 纵向边仰坡放样模式FileName：HXBYP 横向边仰坡放样程序Cls：Norm 1Z[C+40] t I："QPD-DL"?I：I t Z[C+40] 输入起坡点与中桩距离常数Z[C+41] t I："QPD-DZ"?I：I t Z[C+41] 输入起坡点与中桩高差常数Z[C+42] t I："i"?I：I t Z[C+42] 输入边仰坡坡度，左仰坡（路堑）为正，右仰坡（路堑）为负，左边坡为负，右边坡为正Cls：Z[C+43] t I："DQD-Z"?I：I t Z[C+43] 输入实测高程Prog"TURNZH"Prog "GCJS"（Z[C+43]-Z- Z[C+41]）Z[C+42]+Z[C+40] t BFix 3:B-Z[C+2]丄显示与设计位置的偏差B t Z[C+2]FileName:ZXBYP 纵向仰坡放样程序 （隧道进口使用 ） Cls:Norm 1:Z[C+33] l:"QPDH"?l:l Z[C+33]输入起坡点桩号 Z[C+34] T I:"QPD-Z"?I:I T Z[C+34]输入起坡点高程Z[C+42] T l:"i"?l:l T Z[C+42] 仰坡时（隧道进出口仰坡，进口为正，出口为负 ）Cls:Z[C+43] t I:"DQD-Z"?I:I t Z[C+43] 输入实测高程 Prog"TURNZH"Z[C+42]（Z[C+43]- Z[C+34]）+Z[C+33] t G Fix 3:G-Z[C+1]丄显示与设计位置的偏差 G t Z[C+1]FileName:SET 设置程序 Lbi S Norm 1 50 t C50t Z[C+22] 本程序设置变量个数目前 50 个刚刚够用。
fx-5800P道路中边桩坐标放样正反算程序ROAD-2（修订版）
fx-5800P道路中边桩坐标放样正反算程序ROAD-2（修订版）道路中边桩坐标放样正反算程序主程序 ROAD-2主程序：ROAD-2Deg:Fix 3:20→DimZ↓"ZS[1],FS[2]"?J↓If J=1:Then Goto 0:Else Goto 4:IfEnd↓Lb10↓"Z -1,Y +1"? I↓"LC"?P:"PJ"?D↓If I<0:Then Prog“ROAD-DATAZ” :Else Prog“ROAD-DATAY” :IfEnd↓M+O→N↓Prog"ROAD-SUB1"↓Prog"ROAD-SUB2"↓"X=":F+Dcos(Z+90)→Z[11]◢"Y=":G+Dsin(Z+90)→Z[12]◢"α=":Z DMS◢Goto 0↓Lbl 4↓"Z -1,Y +1"? I↓"X"?U:"Y"?V:"GSLC"?P↓Lbl 5↓If I<0:Then Prop“ROAD-DATAZ” :Else Prop“ROAD-DATAY” :IfEnd↓M+O→N↓Prog"ROAD-SUB1"↓Prog"ROAD-SUB2"↓Z-90→A↓(V-G)cos(A)-(U-F)sin(A)→H↓If Abs(H)>0.0001:Then P+H→P:Goto 5:IfEnd↓"LC=":P◢"PJ=":(G-V)÷sin(A)→D◢Goto 4↓平曲线要素及主点桩号计算子程序： ROAD-SUB1If O<0:Then -1→W:Else 1→W:IfEnd:WO→A↓B^(2)÷24÷R-B^(4)÷2688÷R^(3)→Z[6]↓C^(2)÷24÷R-C^(4)÷2688÷R^(3)→Z[7]↓B÷2-B^(3)÷240÷R^(2)+B^(5)÷34560÷R^(4)→Z[8]↓C÷2-C^(3)÷240÷R^(2)+C^(5)÷34560÷R^(4)→Z[9]↓Z[8]+(Z[7]-Z[6])÷(2×tg(A÷2))+(Z[7]+Z[6]+2×R)×tg(A÷2)÷2→S↓Z[9]+(Z[6]-Z[7])÷(2×tg(A÷2))+(Z[7]+Z[6]+2×R)×tg(A÷2)÷2→T↓RAπ÷180+( B+C)÷2→L↓L-B-C→Q↓(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↓K-S→Z[1]↓Z[1]+B→Z[2]↓Z[2]+Q÷2→Z[3]↓Z[1]+L-C→Z[4]↓Z[4]+C→Z[5]↓中线坐标计算子程序： ROAD-SUB2X-Scos(M)→F:Y-Ssin(M)→G↓If P>Z[1]:Then Goto 1:IfEnd↓X→F:Y→G:P-K→Z[16]:0→Z[17]:M→A:M→Z:Goto 5↓Lbl 1↓If p>Z[2]:Then Goto 2:IfEnd↓P-Z[1]→L:L→Z[14]:B→Z[15]:Prog"ROAD-SUB3"↓WZ[17]→Z[17]:M→A:M+90WL^(2)÷(BRπ)→Z:Goto 5↓Lbl 2↓If P>Z[4]:Then Goto 3:IfEnd↓P-Z[1]→L:90(2L-B)÷R÷π→A↓Rsin(A)+Z[8]→Z[16]:W(R(1-cos(A))+Z[6]→Z[17]↓M+WA→Z:M→A:Goto 5↓Lbl 3↓If P>Z[5]:Then Goto 4:IfEnd↓Z[5]-P→L:L→Z[14]:C→Z[15]:Prog"ROAD-SUB3"↓X+Tcos(N)→F:Y+Tsin(N)→G↓—Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL^(2)÷(CRπ→Z:Goto 5↓Lbl4↓X→F:Y→G:P-Z[5]+T→Z[16]:0→Z[17]:N→A:N→Z:Goto 5↓Lbl 5↓F+Z[16]cos(A)-Z[17]sin(A)→F↓G+Z[16]sin(A)+Z[17]cos(A)→G↓If Z<0:Then Z+360→Z:IfEnd↓缓和曲线局部坐标计算子程序 ROAD-SUB3If Z[14]=0:Then 0→Z[16]:0→Z[17]:Else↓Z[14]-Z[14]^(5)÷40÷(RZ[15])^(2)+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[1 6]↓Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↓IfEnd↓路线数据库子程序 ROAD-DATAZ12200.836→Z[18]:13481.073→Z[19]:If PZ[19]→Z[18]:14682.846→Z[19]:If PZ[19]→Z[18]:16353.635→Z[19]:If PZ[19]→Z[18]:17328.058→Z[19]:If PZ[19]→Z[18]:18555.915→Z[19]:If PZ[19]→Z[18]:19690.214→Z[19]:If PLbl 1:IfP<12200.836 Or P>19690.214:Then Cls:Locate 5,2,"LC ERROR"◢Stop:Ifend:Return路线数据库子程序 ROAD-DATAY17157.391→Z[18]:18529.883→Z[19]:If PZ[19]→Z[18]:19680.759→Z[19]:If PLbl 1:IfP<17157.391 Or P>19680.759:Then Cls:Locate 5,2,"LC ERROR"◢Stop:Ifend:Return。
卡西欧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。
有关路基和隧道的casio 5800p 万能曲线计算程序
有关路基和隧道的CASIO 5800P 万能曲线计算程序程序专区2010-01-16 20:31:32 阅读388 评论0 字号：大中小有关路基和隧道的CASIO 5800P 万能曲线计算程序(CASIO fx-5800P计算器)程序一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序增加变量16→DimZ1.主程序(ZHUCHENXU)\"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO \"？N：Lbl 1：”ZHUANGHAO=”?S：Prog \"SUB3\"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog \"SUB1\"：\"XS=”:X→X◢\"YS=”:Y→Y◢\"FS=”:(F-90)→F:F?DMS◢Prog \"FA\"：Goto 1:Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog \"SUB2\"：\"S=\":(O+W) →S◢\"Z=\"Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序(SUB1)0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L) →F：(1-K)→M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算子程序(SUB2)G-90 →Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog \"SUB1\"：Z[2]+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog \"SUB1\"：(J-Y) sinF→Z4. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q: Goto 1:IfEnd…………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1 P→C：(P-R) (2HPR) →D：180 π→E：5. 算方位角程序(FA)LbI0：“XC=”? A: “YC=”? T :X：Y0→J：POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd“FW=”：J?DMS◢Goto06. 使用方位角算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F：L Cos（F）+X→N: “N=”N◢L Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→Z[6]：“P1=” ? → Z[8]：“P2=” ? → Z[9]：“P3=” ? → Z[10] (没有的话就删)：Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEndZ[11] Z[5] →Z[12]：If Z[12]〈1 Then Z[8] Z[11] →Z[13]：Else Z[8] Z[5]+Z[9] Z[5] （Z[12]-1）→Z[13]：IfEnd: AbsZ-（Z[13]+Z[6] Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ……………… 起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标高Z[5]=“PG” ……………… 坡高Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地面高度Z[8]=“P1” ……………… 一级边坡坡度Z[9]=“P2” ……………… 二级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超欠挖宽度（+表超，-表欠）8. 隧道圆心放样程序（SDYX）IF S<229000:THEN 243.997+0.0205 (S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023 (S-230500)- (S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
卡西欧5800道路工程综合程序
卡西欧fx-5800P坐标正反算、高程及边坡放样程序《ZS》正算主程序Lb1 0：“K=”?S(所求里程)：“PJ=”?Z(偏距，左偏负右偏正)：Prog “PM-SJ”： Abs(S-O) → W：Prog "SUB1"↙Fix 3： "XS="：X◢（计算得X坐标）"YS="：Y◢（计算得Y坐标）Norm 2："FW=":F-90→F：F►DMS◢（所求里程设计线处切线方位角）Prog“SQX-SJ”： Prog“SQX”： Fix 3: “H=”：H◢（设计线处该里程的设计高程）Norm 2：Goto 0《FS》反算主程序Lb1 0：“GK=”?S（所求点的估计里程，目的调取数据库）：?X：?Y：Prog“PM-SJ”： X →I： Y→J：Prog "SUB2"：Fix 3:"K="： O+W→S◢（所求点的里程）"PJ="： Z◢(所求点的偏距，左偏负右偏正)Prog“SQX-SJ”：Prog“SQX”：“H=”：H◢（反算求的里程设计线处设计高程）Norm 2↙Goto 0（此处的Goto 0做《LJWF-2JBP》路基挖方2级边坡放样的子程序时要去掉）《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+Zcos(F)→ X：Y+Zsin(F)→Y《SUB2》反算子程序G-90→T： Abs((Y-V)cos(T)-(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：If AbsZ<0.000001：then Goto1：Else W+Z→W：Goto 0：If End←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sin(F)→ Z《PM-SJ》子程序（平面线形数据库）If S≥34600（线元起点里程）And S＜35613.616（线元止点里程）：Then 2467949.131 →U（线元起点X坐标）:536385.574 →V（线元起点Y坐标）：34600 →O（线元起点里程）：202°10°11.1°→G（线元起点切线方位角）：1013.616 →H（线元长度）：10^（45）→P （线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正，直线为0）：If End ↙If S ≥35613.616And S＜35723.616：Then 2467010.452→U：536003.084→V：35613.616→O：202°10°11.1°→G：110→H：10^（45）→P：2800→R：-1→Q：If End←┘If S≥35723.616And S＜36520.648：Then 2466908.316→U：535962.244→V：35723.616→O：201°02°39.47°→G：797.032→H：2800→P：2800→R：-1→Q：If End←┘If S≥36520.648 And S＜36630.648:Then 2466133.988 →U:535785.048→V：36520.648 →O:184°44°5.31°→G：110 →H：2800→P：10^（45）→R：-1 →Q：If End ↙If S ≥36630.648And S＜36687.250：Then2466024.256→U：535777.405→V：36630.648→O：183°36°33.68°→G：56.602→H：10^（45）→P：10^（45）→R：0→Q：If End ←┘（可以一直往下加数据库）《SQX-SJ》子程序（竖曲线数据库）If S≤36687.250（竖曲线终点里程）：Then +0.0053（前坡度：上坡正下坡负）→E：-0.004（后坡度：上坡正下坡负）→F：15000→R（竖曲线半径）：35500→G（变坡点里程）：98.920→C（变坡点高程）：If End←┘（可以一直往下加数据库）《SQX》子程序（竖曲线计算公式）E-F→J：If J＞0：Then-R→R：Else R→R：Abs（R×J÷2）→T：If End←┘If S≤G-T：Then G-S→L：C-LE→H：If End←┘If S＞G-T And S≤G： Then G-S→L：（S+T-G）^2÷2÷R→N：C-LE+N → H：If End←┘If S＞G And S≤G+T： Then S-G→L：（G +T- S）^2÷2÷R→N：C+LF+N → H：If End←┘If S＞G+T ：Then S-G→L： C+LF → H：If End←┘三、使用说明(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
fx5800最好用公路放样程序
fx5800公路全能曲线计算、放样程序在公路工程施工放样时需要计算各桩号的坐标、高程、路基宽度、超高、ZH、QZ、HZ点。
在计算器中建立程序文件[K+]、【SQX】[LJFY]及数据库文件[XL?]、[SH]。
把平曲线要素输入文件[XL？]，竖曲线要素输入文件[SH]中，输入任一桩号K?主程序[K+]即可计算出该桩号坐标X、Y，设计标高H，路基左右宽度L/R,边桩高程P/Q。
程序中A、Z-为程序转向参数，道路左边A为负数，道路右边A为正，S 距中距离、H设计高程,？Z—实测高程。
Z、S=0、±1或±2程序桩号自动加减10或20米返回主程序，等于3时返回桩号反算。
程序从[K+]进入，输入任一桩号K=？，令，A=0程序即可计算出该桩号坐标X、Y、标高H、边桩及露肩高程LH(P)、LH1/RH(Q)、RH1、路基宽度L/R，A=-5,路中墙放样，A=5路槽放样，A=±3/4路肩、路堤挡土墙放样，A=±7桥、涵洞放样。
A=±6距中S点放样，A=10程序计算五大桩号，Z[1]= ±3任意距中点资料反算，令AbsA=1边桩放样，AbsZ<5自动加减桩号，A=2反算桩号后进入路基边沟放样边坡放样:（A=±1）实测任一桩号附近点坐标XY、高程Z，令A=8，输入XY，程序反算XY点对应桩号，程序进入边坡放样，输入实测高程Z，程序自动计算该高程对应距中，把该数据放样到实地并测得一新的实测高程Z，反复把Z输入程序直至程序计算距中偏移值接近零，该点即为边坡放样点。
Z[1] –内外业选择，外业为0，GPS放样=-1、1，内业=2，资料=3、4Z[2]—线路选择，Z[3]—94、95、96区结构层厚度，Z[4]—切线方位角，Z[5] 土路肩宽，Z[6]、V—右幅横坡，Z[7]—加宽值，左负右正Z[8]/Z[9]计算点坐标Z[10]/Z[11]—测站坐标，Z[12]路面水沟加平台宽度，Z[13]边坡平台宽度，Z[14] 半幅中央分隔带宽；Z[15]—中桩高程，Z[16]路面横坡不同坡标志，高速路行车道与硬路肩不同坡线路在数据库里加入2→Z[16] ，行车道与路肩同坡Z[16]=1Abs(A)<5时，路基距中不分左右，均为正，大于等于5时，左负右正蓝色字体语句根据线路修改程序使用也许有些复杂，懂得使用后却是最简单好用的公路测量程序，边桩放样只要输入实测高程即可自动计算放样数据，涵洞输入涵长及前距+或后距-即可计算放样点，放样后输入实测高程即可自动计算填挖值。
公路测量计算程序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储存数据。
道路中线坐标计算子程序ROAD-SUB2(优化版)090328
ROAD-SUB2是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序ROAD-1的其中一个子程序，在教材第126-127页，程序原有36行，经本次优化，变成23行，程序更加简洁，减少用户程序输入工作量。
本程序是子程Leabharlann ，不可独立运行，必须通过ROAD-1调用方可运行，特此说明。
技术交流举报roadsub2是casiofx5800p计算与道路坐标放样计算中道路坐标放样计算程序road1的其中一个子程序在教材第126127页程序原有36行经本次优化变成23行程序更加简洁减少用户程序输入工作量
道路中线坐标计算子程序
王中伟发表于2009年03月28日22:39阅读(125)评论(3)分类：技术交流
5800自动数据库
5800道路程序终极版。
运行时候选择shell，然后输入桩号，边距即可，输入比较麻烦，多看看说明书。
FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"?I:I=J=>500→DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]"PASSWORDS"?I:I→Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"?I:Cls:I≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。
如不够就适量加大。
RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Z[C+35]→I:"STATION-N"?I:I→Z[C+35] 设置测站N坐标Z[C+36]→I:"STATION-E"?I:I→Z[C+36] 设置测站E坐标Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]设置测站Z坐标Z[C+45]→I:"STATION-HI"?I:I→Z[C+45] 设置仪高Z[C+41]→I:"GC-DH"?I:I→Z[C+41] 放样点高差常数Norm 1Z[C+23]→N当前分段要素N坐标Z[C+24]→E当前分段要素E坐标Z[C+25]→M当前分段要素起点桩号Z[C+26]→H当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28]→R当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29]→L当前分段要素长度Z[C+3]→WZ[C+32]→I:"DAT1 2 3"?I:I→Z[C+32] 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0→IZ[C+4]→I:"1 2 3"?I:I→Z[C+4] 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi 1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"?G:G→Z[C+1] ;G桩求桩号Z[C+2]→B:"JL"?B:B→Z[C+2];B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Prog "GCJS" ;高程计算Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G;第一行显示桩号"X＝":Locate 3,2,X ;第二行显示X(N)坐标"Y＝":Locate 3,3,Y；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z坐标Locate 10,4,Z[C+2] ；第四行显示横向距离0→IDo:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]Pol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"DH":Locate 3,2,Z[C+48]:Locate 12,2,Z[C+49]"FWJ"J<0=J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName：ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEndIf J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd 直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd 圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段0.5(R-A)÷L→KAQ→IKQ2→J0.→P:H+IP+JP2→U0.→P:H+IP+JP2→V0.5→P :H+IP+JP2→D0.→P:H+IP+JP2→F0.→P:H+IP+JP2→T0.→I0.→J0.→ON+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T))→XE+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISin(T))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算)Norm 1Z[C+37]→I:"DQD-N"?I:I→Z[C+37] 输入待求点N坐标I=-1=>Prog"INFWJDLDH"Z[C+38]→I:"DQD-E"?I:I→Z[C+38] 输入待求点E坐标0→B：M+L÷2→G：Prog"ZBJS"Lbi S:RadZ[C+37]-X→I:Z[C+38]-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):J→Z[C+2]G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙G→Z[C+1]FileName：INFWJDLDH实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"?J:J→Z[C+46]Z[C+47]→I:"DQD-DL"?I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"?K:K→Z[C+48]Z[C+49]→P:"RHT"?P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"?I:I→Z[C+40] 输入起坡点与中桩距离常数Z[C+41]→I:"QPD-DZ"?I:I→Z[C+41] 输入起坡点与中桩高差常数Z[C+42]→I:"i"?I:I→Z[C+42] 输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43] 输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与上一次测点的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"?I:I→Z[C+33] 输入起坡点桩号Z[C+34]→I:"QPD-Z"?I:I→Z[C+34] 输入起坡点高程Z[C+42]→I:"i"?I:I→Z[C+42] 仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43] 输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与上一次测点的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22]0→KZ[C+5]→I:"1 Or 2"?I:I→Z[C+5] ;选择1线或者2线180Z[C+3]÷π→J:"XZJJ"?J:Jπ÷180→Z[C+3];斜桩夹角If I=1:Then Z[C+8]→Z[C+6]:Z[C+9]→Z[C+7]Z[C+12]→Z[C+16]:Z[C+13]→Z[C+17]:Z[C+18]→Z[C+20]Else Z[C+10]→Z[C+6]:Z[C+11]→Z[C+7]Z[C+14]→Z[C+16]:Z[C+15]→Z[C+17]::Z[C+19]→Z[C+20]IfEndZ[C+7]+3→Z[C+31]0→I:"1PQX,2SQX,3YSDS"?I ;1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3I≠0=>Prog"DATLOCK"Prog"SETPFDYS"StopLbi 1;平曲线要素输入部分Z[C+6]→D-1→Z[D+3]For 1→J To Z[C+16]Cls:"PQX":Locate 9,1,JZ[D+1]→I:"N"?I:I→Z[D+1] ;请输入N坐标Z[D+2]→I:"E"?I:I→Z[D+2] ;请输入E坐标Z[D+3]→I:"R"?I:I→Z[D+3] ;请输入半径RZ[D+4]→I:"LS1"?I:I→Z[D+4] ;请输入缓和曲线1长度Z[D+5]→I:"LS2"?I:I→Z[D+5] ;请输入缓和曲线2长度D+5→DNext1→Z[D-2]Goto SLbi 2 ;竖曲线要素输入部分Z[C+7]→D-1→Z[D+3]For 1→J To Z[C+17]Cls:"SQX":Locate 9,1,JZ[D+1]→I:"BPDZH"?I:I→Z[C+1] ;请输入变坡点桩号Z[D+2]→I:"BPDGC"?I:I→Z[C+2] ;请输入变坡点高程Z[D+3]→I:"R"?I:I→Z[C+3] ;请输入半径RD+3→DNext1→Z[D]Goto SLbi 3 ;要素点数输入部分Z[C+12]→I:"1PQXDS"?I:I→Z[C+12] ;输入1线平曲线点数,最小值为3Z[C+13]→I:"1SQXDS"?I:I→Z[C+13] ;输入1线竖曲线点数,最小值为3Z[C+18]→I:"1JDZH"?I:I→Z[C+18] ;输入1线平曲线第一个交点的交点桩号Z[C+14]→I:"2PQXDS"?I:I→Z[C+14] ;输入2线平曲线点数,最小值为3Z[C+15]→I:"2SQXDS"?I:I→Z[C+15] ;输入2线竖曲线点数,最小值为3Z[C+19]→I:"2JDZH"?I:I→Z[C+19] ;输入2线平曲线第一个交点的交点桩号C+Z[C+22]→Z[C+8] 1线路平曲线要素指针偏移基数Z[C+8]+5Z[C+12]→Z[C+9] 1线路竖曲线要素指针偏移基数Z[C+9]+3Z[C+13]→Z[C+10] 2线路平曲线要素指针偏移基数Z[C+10]+5Z[C+14]→Z[C+11] 2线路竖曲线要素指针偏移基数Z[C+11]+3Z[C+15]→Z[C+21] 要素数据库结束指针Z[C+21]+1→Z[C+30]Z[C+21]→DimZ 增加额外变量-1→KGoto SFileName:SETPFDYS 交点要素=>分段要素Norm 150→CRadZ[C+6]+5→DZ[C+21]+1→FF+6→DimZ-1→Z[F] 设置分段要素开始标志Z[C+20]→V ; 从数据库读入当前线第一个平曲线交点桩号0→GPol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第一条直线的距离I，计算方位角J J→HZ[D-4]→Z[F+1] 直线段Z[D-3]→Z[F+2]V-I→Z[F+3]For 1→G To Z[C+16]-2Pol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第本交点与下一交点的距离I，计算方位角J I→W:J→HPol(Z[D+6]-Z[D+1],Z[D+7]-Z[D+2])J-H→K ；计算转角K，负值是左转角，正值是右转角IF Abs(K)>π:Then If K>0:Then K-2π→K:Else K+2π→K:IfEnd:IfEndZ[D+3]→R ;从数据库读入半径RZ[D+4]→L ;从数据库读入缓和曲线1长度Z[D+5]→M ;从数据库读入缓和曲线2长度L÷2÷R→B ;计算缓和曲线1的B0角M÷2÷R→O ;计算缓和曲线2的B0角(Abs(K)-B-O)R→P ;计算圆曲线长度L2÷24÷R-L^(4) ÷2384÷R^(3) →Q ;内移值计算方法2L÷2-L^(3) ÷240÷R2→S ;切线增长值计算方法2M2÷24÷R-M^(4) ÷2384÷R^(3) →J ;内移值计算方法2M÷2-M^(3) ÷240÷R2→I ;切线增长值计算方法2Abs(π÷2- Abs(K)) →ARtan(Abs(K÷2))+S+J÷Cos(A)-QTan(A)→T ;计算切线1Rtan(Abs(K÷2))+I+Q÷Cos(A)-JTan(A)→U ;计算切线2H<0=>H+2π→H1→AK<0 =>-1→AH→Z[F+4]0→Z[F+5]0→Z[F+6]F+6→FF+6→DimZRec(T,H)缓和段1Z[D+1]-I→NZ[D+2]-J→EN→Z[F+1]E→Z[F+2]V-T→Z[F+3]L=0=>Goto AH→Z[F+4]0→Z[F+5]A÷R→Z[F+6]F+6→FF+6→DimZLbi A圆弧段0→I:0→JL=0=>Goto BPol(L-L^(3)÷40÷R2,L2÷6÷R-L^(4)÷336÷R^(4))Rec(I,H+AJ)N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L→Z[F+3]H+AB→Z[F+4]A÷R→Z[F+5]A÷R→Z[F+6]F+6→FF+6→DimZM=0=>Goto C 缓和段2Rec(2RSin(0.5P÷R),H+AB+AP÷R÷2)N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L+P→Z[F+3]H+AB+AP÷R→Z[F+4]A÷R→Z[F+5]0→Z[F+6]Lbi CF+6→FF+6→DimZRec(U,H+K)Z[D+1]+J→Z[F+1]Z[D+2]+I→Z[F+2]V-T+L+P+M→Z[F+3]V-T+L+P+M-U+I→VD+5→DNextH+K→Z[F+4]0→Z[F+5]0→Z[F+6]F+9→DimZ1→Z[F+7]V→Z[F+9] 要素终点桩号DegFileName：READDATZ[C+32]→II=3=>Prog"READDAT3"If G<M Or G>M+L :Then ;验证要素是否可用，否则重设要素I=1=>Prog"READDAT1"I=2=>Prog"READDAT2"Prog"REALDAT3"FileName:READDAT1 平曲线分段要素读取程序1Z[C+30]→F0→JLbi 1 搜索要素If G<Z[F+3]:Then-1=Z[F]=>Goto E:F-6→F:-1→J:Goto 1Else 1=Z[F+1]=>Goto E:-1=J=>Goto 2:1→J:F+6→F:Goto 1IfEndLbi 2F→Z[C+30]Z[F+1]→Z[C+23]当前分段要素N坐标Z[F+2]→Z[C+24]当前分段要素E坐标Z[F+3]→Z[C+25]当前分段要素起点桩号Z[F+4]→[C+26]当前分段要素起点方位角（正北）Z[F+5]→Z[C+27]当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[F+6]→Z[C+28] 当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[F+9]-Z[F+3]→Z[C+29] 当前分段要素长度ReturnLbi ECls"ERROR"StopREADDAT2文件请输入内容为以下内容以便测试结果与本文一致。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）
一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。
原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）；4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。
程序的特点：1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。
这里摘取直线、曲线及转角表资料如下.
.
三、程序代码
.
.
. .
. 注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
.
. 四、程序变量清单
. 五、计算流程示例1．中桩坐标计算示例计算任务：计算HY高速公路K6+100～K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（2807118.026，474113.687）上架设全站仪，计算各中桩的极坐标放样数据。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
. 下表给出了由道路路线CAD软件计算的相关结果，供大家进行计算验证。
.
.
2．边桩坐标计算示例计算任务：计算HY高速公路主线K6+100～K6+700段的边桩（左右各12.25米）坐标（桩距20m）。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.
.
下表给出了由道路路线CAD软件计算的相关结果，供大家进行计算验证。
.
.
3．坐标反算计算示例计算任务：根据前面计算的K6+100的中桩、左右边桩的坐标，反算对应桩号及偏距，并进行验证。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.。