5800P公路坐标程序
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：每增加一行则为增加一个线元要素。
CASIO fx-5800p测量程序
CASIO fx-4800P、fx-5800P型计算器用于线路施工曲线中线点坐标的计算程序中铁十局三建公司工程技术部摘要：本文介绍了CASIO fx-4800P 、fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。
本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量，对于测量工作者有较大的参考和指导作用。
关键词：曲线线路施工测量计算程序1．概述过去，线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。
对于曲线线路一般的测量方法是：经纬仪置于某一中线点上，采用偏角法拨角再用钢尺量距来定出中线点。
随着电子技术进步和经济发展，测量仪器和测量方法的不断改进，目前，全站仪已广泛地应用于工程施工测量中，极大的提高了测量工作效率。
但是，在进行铁路、公路工程的曲线线路施工测设时，需要在线路所在区域建立统一坐标系或独立坐标系，利用坐标变换的方法，将整个曲线的三个部分（第一缓和曲线、中间圆曲线、第二缓和曲线）统一到同一坐标系中。
根据坐标系的建立，计算出整个曲线内任意点的坐标，再采用全站仪利用极坐标方法进行施工放样。
前提是首先利用计算器计算出各中线点坐标，然后才能进行放样。
而普通型计算器不仅计算速度慢，且要求计算者必须正确地记忆很多计算公式，计算繁琐而且容易出错，满足不了现场测设工作的要求。
为了能够快速准确地为全站仪提供测设数据，发挥全站仪快速测设的特点，提高测量工作效率，应采用可编程的计算器，编制计算程序。
本文主要介绍应用CASIO fx-4800P型计算器的计算程序，供公司测量同行们参照使用。
2．计算程序QXZBJS（文件名：曲线坐标计算fx-4800P）Defm2:R：L：A：N“ZH：X=”：E“ZH：Y=”：F：“FWJ=”：K“ZH：LC=”： P=L2/(24R)-L4/(2688R3):M=L/2-L3/(240R2):T“T”=（R+P）tng(A/2)+M ◢G=RAπ/180：“S”S=G+L◢LbiA：｛C，V｝：C“CSDLC=”：V“HXPJ=”：D=C-K：D≤L＝＞I=D-D5/（40R2L2）：U=D3/(6RL)-D7/（336R3L3):J=√（I2+U2）：Goto1：≠＞D≤G＝＞O=90（2D-L）/( Rπ)：I=RsinO+M：U=R（1-cosO）+P：J=√（I2+U2）：Goto2：≠＞D=S-（C-K）： = D-D5/（40R2L2）：Z[2]=D3/6RL-D7/（336R3L3）：I=T+（T-Z[1]）cosA-Z[2]sinA：U=（T-Z[1]）sinA+Z[2]cosA：J=√（I2+U2）：Goto3：Lbi1:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-30D2/ （RLπ）：H=F-90D2/ （RLπ）：≠＞Q=F+30D2/ （RLπ）：H=F+90D2/（ RLπ）⊿ Goto4：Lbi2:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I)：H=F-O：≠＞Q= F+tng-1(U/I)：H=F+O⊿Goto4：Lbi3:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I):H=F-(A-90(S-(C-K))2/ （RLπ）): ≠＞Q= F+tng-1(U/I):H=F+(A-90(S-(C-K))2/ （RLπ）):⊿ Goto4：Lbi4:B=90+H:H＜0＝＞H“QXFWJ”=B+360◢≠＞H≥360＝＞H“QXFWJ”=H-360 ◢≠＞H“QXFWJ”=H◢⊿Goto5：Lbi5: X“CSD:X”=JcosQ+N+VcosB◢ Y“CSD:Y”=JsinQ+E+VsinB◢GotoA3．程序说明3.1 输入已知变量R—圆曲线半径，显示R？L—缓和曲线长，显示L？A—曲线转向角，显示A？E—直缓点纵坐标，显示ZH：X=？N—直缓点横坐标，显示ZH：Y=？F—第一切线方位角，即ZH至JD的方位角，显示FWJ=？K—直缓点里程，显示ZH：LC=？3.2 计算待求量T—切线长度，显示T= …S—曲线全长，显示S= …Z[3]—外矢距，即JD到QZ的距离，显示E0= …3.3 输入待求变量K—输入待求（测设）点的里程，显示LC=？V—横向偏距，即测设点左、右侧外移距的偏移量，若为中线点输入0；右侧输入“+”值，左侧输入“-”值。
立交匝道坐标放样正反算CASIO fx-5800P程序(带数据库功能)
立交匝道坐标放样正反算CASIO fx-5800P程序（带数据库功能）一、前言改写了《CASIO fx-5800P计算与道路坐标放样计算》中立交匝道坐标放样计算程序。
主要在原带数据库进行立交匝道中边桩坐标及放样数据计算的基础上，增加了坐标反算功能。
改进后的程序名称为：立交匝道坐标放样正反算程序（带数据库功能），主要功能有：1．使用立交匝道数据库子程序，可将一个互通立交的若干条匝道写入数据库子程序，程序在计算时省却了输入原始数据的麻烦；2．坐标正算方面，选择匝道后，输入桩号即可进行匝道的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；3．坐标反算方面，选择匝道后，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）。
程序的特点：1．使用线元积分法进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；2．主程序通过调用数据库子程序，省却了使用时再输入匝道参数的繁琐；3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
二、立交匝道示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章MN互通式立交。
这里摘取部分关键图表资料如下：.MN互通式立交线位数据图（由于图片大小的限制，此处不清晰，参见《CASIO fx-5800P计算与道路坐标放样计算》P162附录2）......三、立交匝道线元数据的整理经整理，匝道a、b、c线元数据如下（d匝道和MR匝道略）。
....四、程序代码..注：根据实际使用情况，在桩号反算时，若桩号比较大（匝道起始桩号一般为0），还是让用户输入一个估算的对应桩号为好，因此程序第29、30行分别改为（每行结尾处省略回车符）：29行："X"?F: "Y"?G: "K"?P30行：F→I: G→J...... d匝道和MR匝道数据库子程序略。
..五、程序变量清单..六、计算流程示例1．坐标正算示例计算任务：计算MN互通式立交c匝道K0+315.3中桩坐标及切线方位角，以及该桩左侧4.5米、右侧6米的边桩坐标，假设在导线点（2807544.340，475613.014）上架设全站仪，计算这三个点位的极坐标放样数据。
5800计算器测量计算程序-3页精选文档
Casio Fx-5800P计算器公路测量计算程序王宏伟2009年8月1日非对称及对称曲线坐标计算程序源主程序1（DF）“X0”？O：“Y0”？ZPol（X-O，Y-Z）：I：“D=”：I◢J<0=>J+360→J：J：“FWJ=”：◢主程序2：（SIMI）（U÷V-U÷R）÷（Q-A）→T4→N（K-A）÷N→H90H÷л→SF+（（TNH+U÷R）+U÷R）NS→W1→GD+H÷6×（cos（F）+cos（W）+4∑（cos（F+（（G+0.5）HT+2U÷R）（G+0.5）S），G，0，（N-1））+2∑（cos（F+（THG+2U÷R）GS，G，1，（N-1）））+Lcos （W+P）→XE+H÷6×（sin（F）+sin（W）+4∑（sin（F+（（G+0.5）HT+2U÷R）（G+0.5）S），G，0，（N-1））+2∑（sin（F+（THG+2U÷R）GS，G，1，（N-1）））+Lsin （W+P）→Y坐标计算程序源：（BJL被交路）Lbl 0“K”？K：“L”？L：“P”？PK<1102=>Goto B：K<1498.2=>Goto C：K≤2917.2=>Goto DLbl B0→A：1102→Q：7700→R：7700→V：4211738.83→D：637209.588→E：269°4′11.4″→F：1→U：Goto 1Lbl C1102→A：1498.2→Q：7700→R：6000→V：4211799.713→D：636110.212→E：277°16′11.4″→F：0→U：Goto 1Lbl D1498.2→A：2917.2→Q：6000→R：6000→V：4211849.851→D：635717.198→E：277°16′11.4″→F：-1→U：Goto 1Lbl 1Prog“SIMI”W<0=>W+360→W：W：“FWJ=”：◢“X=”：X◢“Y=”：Y◢Prog“DF”： Goto 0程序说明K ……所计算桩号W“FWJ”……所计算桩号切线方位角A“QD”……起点里程Q“ZD”……终点里程R“RO”……起点半径V“RN”……终点半径D“XQ”……起点坐标E“YQ”……起点坐标F“F0”……起点方位角U……曲线转向（左-1、直0、右1）L……距中桩距离P……边桩与中线交角希望以上资料对你有所帮助，附励志名言3条：1、理想的路总是为有信心的人预备着。
5800坐标高程计算程序
CASIO5800计算器公路测量计算程序程序设计:魏加训2009.2.28Casio 5800计算器数据库型万能坐标正反算计算程序一、主程序：1XYLbl 0:“1.ZS 2.FS”?→V↙If V=1: Then “CZ X” ?H: “CZ Y” ?T:Goto 1: Else If V=2: Then Goto 2 :IfEnd: IfEnd↙Lbl 1: “K××+×××”?D:?Z: “RJ”?G↙Prog “P.Z”↙(注:计算另一线路时修改替换此处和FS子程序中的P.Z为对应线路的数据库名称即可)Prog “ZS” ↙If Z<0: Then Cls:“X（L）=”: “Y（L）=”: Locate 6，1，X : Locate 6，2，Y◢Pol（X-H，Y-T）: Cls: “S（L）=”: Locate 6，1，I : "F（L）="：360Frac（（J+360）÷360▼DMS◢Goto 1:IfEnd↙If Z=0: Then Cls:“X（Z）=”: “Y（Z）=”: Locate 6，1，X : Locate 6，2，Y : “QXFWJ （Z）=”: 360Frac（（J+360）÷360▼DMS◢Pol（X-H，Y-T）: Cls: “S（Z）=”: Locate 6，1，I : "F（Z）="：360Frac（（J+360）÷360▼DMS◢Goto 1:IfEnd↙If Z >0: Then Cls:“X（R）=”: “Y（R）=”: Locate 6，1，X : Locate 6,2，Y◢Pol（X-H，Y-T）: Cls: “S（R）=”: Locate 6，1，I : "F（R）="：360Frac（（J+360）÷360▼DMS◢Goto 1:IfEnd↙Lbl 2: 0→Z:0→G:”X” ?M:”Y” ?I:Prog “FS”: Cls:“K=”：“Z=”：Locate 4，1，D : Locate 4，2，Z◢Goto 2↙二、正算子程序：ZS5→N: U(E-1-R-1)÷Abs（K-F）→P: Abs（D-F）÷N→Q: 90Q÷π→S:(注:此处5→N是控制计算精度可修改的,一般取值为4～6即可)C+(NPQ+2UR-1)NS→J:1→L↙A+Q÷6×(Cos (C)+Cos (J) +4∑（Cos (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2UR-1)LS,L,1,(N-1))）+ZCos（J+G) →X :B+Q÷6×(Sin(C)+Sin( J) +4∑（Sin (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2UR-1)LS,L,1,(N-1))）+Z Sin（J+G)→Y ↙三、反算子程序：FSLbl 0:Prog “P.Z”:Prog “ZS”↙(注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可)(I-Y)sin(J)+(M-X) cos(J)→ P :D+P→ D ↙If Abs(P)≥0.001:Then Goto 0 : Else Goto 1 : IfEnd↙Lbl 1: (I-Y)cos(J)-(M-X) sin(J) →Z四、曲线元要素数据库格式If D≥线元起点里程:Then线元起点里程→F:线元终点里程→K:线元起点X坐标→A:线元起点Y坐标→B:线元起点切线方位角→C:线元起点半径→R:线元终点半径→E:线元转向(注:左-1,右+1,直线为0) →U: IfEnd↙五、曲线元要素数据库样例：P.ZIf D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙...............…………………………………………………………If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd↙(注：如一条路有多个曲线元要素则按顺序排列依次添加入数据库P.Z中)六、程序说明：程序线元判断原则:(1) 以道路中线的前进方向（即里程增大的方向）区分左右；(2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。
5800道路坐标主程序ROAD
•主程序ROAD—2•Deg： fix3：20→Dimz 同车符•a zs[l],Fs[2]w ? J 回车符•If J=l： Then goto 0： Else goto 4： IfEnd 回车符Lbl ()回车符“Xs” ？ U：“Ys” ? V 回车符Lbl 1回车符“Kp” P回车符Prog “ ROAD-DATA 1 ”回车符M+0-N回车符Prog “ROAD-SUBI” 回车符Prog “ROAD-SUB2” 回车符“XP= ”: F∠l “YP=”: G∕ ZVDMS 回车符IfU=0： Then Goto3： Else Pol (F-U, G-V) ： IfEnd 回车符Lbl 2回车符If JZO： Then J+360-J： IfEnd 回车符“Al = "：JVDMSZ “DI=”：IZ1 Lbl 3 同车符“D ANGLE,, ? H： If H=0： Then Goto 1： IfEnd： ? D 回车符“XB="：F+Dcos(Z+H)→Z[ll] ZlαYB=,,∑ G+Dsin(Z+H)→Z[12]ZIf U=0： Then Goto3： Else Pol (Z[11]-U, Z[12]-V) ： IfEnd 回车符Goto 2回车符Lbl 4回车符“XB” ？ U：“YB” ? V：“KP” ? P 回车符Lbl 5回车符Prog “ROAD-DATA 1 ” 回车符M+0->N回车符Prog “ROAD-SUB1” 回车符Prog “ROAD-SUB2” 回车符乙90-A回车符(V-G)Cos(A)-(U-F)Sin(A) →H 回车符If Abs(H) >0. 0001： Then P+H-P： Goto 5： IfEnd 回车符“K二 "：pZ “D="： (G-V)÷Sin(A)-*DZGoto 4回车符ROAD-DATA 188037.452-D：89290. 978→E J If P≤E J Then 88752. 053-K：3301492. 973 -X：434557. 724->Y：162o27,56.6" -*M ：-24o37,21.6〃-0：1200-*R：240-*B：240-C： Goto 1： IfEnd 回车符E^D：90238. 611→E∑ If PWE： Then 89523.362 - K：3300914. 613→X1 435081. 358->Y： 137o 50' 35〃 -M： 19o 49,03.9” ->0： 900-R： 150-B： 150-C：Goto 1： IfEnd 回车符E-D： 91245. 474-E：If P≤E≡Then 90514. 034-K： 3299995. 081 fX： 435459. 22 -Y：157o39,38.9z,-*M：16o13' 24.4,,-0：1300-R：180-B：180-C：Goto 1：IfEnd回车符E-D： 92318. 596-E：If P≤E∑ Then 91705. 999-K： 3298807. 169→X J 435586.502-Y： 173o 53' 03.2" -M： -50o35' 20.9" →0∑ 750-R：210→B1 210-*C： Goto 1： IfEnd 回车符E->D：93135. 521 -E：If P≤E≡ Then92628. 777->K：3298273. 798→X1436398. 633 -Y：123o17,42.4〃-M：18o21' 06.9,,^0：1300-R：200→B1200-C：Goto 1：IfEnd回车符E-D：93801. 319^E：IfP≤E≡ Then 93363. 638→K J3297694. 404→X J436857. 082 -Y：141o38,49.2" -M：-17o23,46. 4,,-0：1000-R：150-B：150-C：Goto 1：IfEnd回车符Pl车符Lbl 1：If P<88050 Or P>99400：Then Cis：Locate 5, 2, “KP ERROR,, /Stop： IfEnd： Return 回车符。
5800P编程计算器坐标正反算程序
5800P编程计算器坐标正反算程序一，主程序文件名（TYQXJS）LbI 4:“1.SZ=> XY’’:’’2.XY=>SZ’’︰?N:?S:Prog“SUB0”1÷P→C：(P－R) ÷(2HPR) →D：180÷π→E：N=1=> Goto1:Goto2LbI 1: ？Z:Abs(s－O)→W︰Prog“SUB1”︰“XS=”:X◀“YS=”:Y◀F－90→F:”FS=”:F▶DMS◀Goto 4LbI 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O＋W→S﹕“S=”S◀“Z=”：Z◀Goto 4二:子程序（文件名SUB1）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＋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＋QEMW(C＋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:LbI 0:Prog“SUB1”:T＋QEW(C＋WD)→L:(J－Y)cos(L)－(I－X)sin(L)→Z:IfAbs(Z)＜0.000001:ThenGoto1:Else W＋Z→W:Goto0LbI 1:0→Z:Prog“SUB1”:(J－Y)÷sin(F)→Z:四:数据库(文件名)LbI 1:If S＜止点里程:Then起点方位角→G:起点里程→O:起点X坐标→X:起点Y坐标→Y:起点半径→P:止点半径→R:曲线长→H:左转(-1)右转(1)直线(0)→Q:Return:IfEnd数据库说明:每增加一段曲线就增加以上一句上面的语句，当半径为无穷大时以10的45次方代替，左转输入负1，右转输入正1五:程序输入及显示说明1:输入部分1，SZ=>XY2，XY=>SZN? 选择计算方式输入1表示由里程边距计算坐标(正算)输入2表示由坐标计算里程及边距(反算)S? 正算时输入所求点的里程，反算时为所求点的近似里程(注意反算时的近似里程不能跨曲线，如果跨曲线需要进行两次反算，并以第一的里程结果作为近似里程，否则，反算的里程及边距不对。
fx-5800P 已知直线起、终点坐标求中间点坐标程序(可用)
直线坐标程序1.Deg:Fix 32.Lbl 0: “K0=”?K:?X:?Y:“X 1”?M:“Y1”?N: Pol(M-X,N-Y):“JL”：I◢3.“FWJ=”：J＜0 =＞J+360→J:J△DMS◢4.“ZS=0，FS≠0”：?S5.S≠0 =＞Goto 16.“Ki”?Z7.“Xi=”:X+(Z-K)cos J→P◢8. “Yi=”:Y+(Z-K)sin J→Q◢9.“ZBJ”?L10. “XiL=”:P+Lcos(J-90)◢11. “YiL=”:Q+Lsin(J-90)◢12.“YBJ”?D13. “XiR=”:P+Dcos(J+90)◢14. “YiR=”:Q+Dsin(J+90)◢15. Goto 016. Lbl 117.“XC”?H:“YC”?G18.“XCZ=”:(H+Xtan （J)²-(Y-G)tan （J)）÷(1+tan （J)²)→U ◢19.“YCZ=”:Y-(X-U)tan （J)→V◢20.“CZZH=”: Pol(X-U,Y-V)→C：K+C→F◢21.“PJ=”: Pol(H-U,G-V)→T◢22. Goto 0说明：1.设置小数保留三位。
2.程序0：赋值起点桩号K0，赋值起点坐标X、Y，赋值终点坐标X1、Y1，计算起点至终点距离并显示。
3.计算方位角并显示。
4.选择正算S=0，或反算S≠0.5.如果S≠0，进入反算程序。
6.正算程序：输入所求桩号Ki。
7.计算中桩坐标Xi并显示。
8.计算中桩坐标Yi并显示。
9.输入左边桩距中桩的距离L。
10.计算左边桩坐标XiL并显示。
11.计算左边桩坐标YiL并显示。
12.输入右边桩距中桩的距离D。
13.计算右边桩坐标XiR并显示。
14.计算右边桩坐标YiR并显示。
15.到程序0。
16.反算程序1。
17.输入测量坐标XC、YC。
18.计算垂足坐标XCZ并显示。
19.计算垂足坐标YCZ并显示。
卡西欧5800道路编程程序
卡西欧5800道路编程程序相关搜索: 卡西欧, 道路, 程序说明：该程序适用于计算器CASIO fx-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。
1、A? 输入转角:左转为负，右转为正2、R? 输入圆曲线半径3、LS? 输入缓和曲线长度4、JD(DK)? 输入交点里程桩号5、X(JD)? 输入本交点X坐标6、Y(JD)? 输入本交点Y坐标7、FWJ? 输入待求点切线方位角9、J? 输入0程序计算中桩，输入1程序计算边桩10、Z? 输入里程桩号1 A：R：C“LS”：D“JD(DK)”2 P=C∧2/24/R-C∧4/2688/R∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q◢6 W=(R+P)/cos(A/2)-R◢7 L=((AbsA)-2B)兀R/180+2C◢8 G“ZH”=D-T◢9 H“HY”=G+C◢10 I“QZ”=G+L/2◢11 K“YH”=G+L-C◢12 M“HZ”=G+L◢13 N”X(JD)”：E”Y(JD)”：F”FWJ”: J14 A＜0=>S=-1:≠=>S=1⊿(提示：0为数字“0”)15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU (提示：O为字母“O”)19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F24 Goto 2⊿25 Z≤H=>L=Z-G26 V=L-L∧5/(90R∧2C∧2)27 L=30L∧2S/(兀RC)28 P=F+18029 Q=F+L30 U“FWJ”=F+3L◢31 Goto 4⊿32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FWJ”=L+90S◢34 Goto 5⊿35 Z≤M=>L=M-Z36 V=L-L∧5/(90R∧2C∧2)37 L=30SL∧2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A◢41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {W}52 P“XL”=X+Wcos(U-90) ◢53 Q“YL”=Y+Wsin(U-90) ◢54 P“XR”=X+Wcos(U+90) ◢55 Q“YR”=Y+Wsin(U+90) ◢56 Goto 157 Lbl 458 X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢(提示：O为字母“O”)64 Goto 665 Lbl 666 J=1=> Goto 3⊿67 Goto 1注:1、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。
fx-5800P程序QH3-5操作说明
目录前言第1章复数及基于统计串列存储数据的编程方法与程序1.1 复数的几何表示方法1.2 复数显示格式的应用1.3 共轭复数1.4 复数形式坐标反算程序(QH1-4)1.5 基于统计串列输入数据的极坐标法放样程序(QH1-5)1.6 复数形式高斯平面坐标线性变换参数计算及批量坐标变换程序(QH1-6)1.7 复数形式建筑坐标与测量坐标的相互变换程序(QH1-7)1.8 复数形式单一闭、附合与无定向导线近似平差原理与程序(QH1-8)1.9 复数形式支导线坐标计算程序(QH1-9)第2章公路与铁路路线平纵曲线正、反算原理与程序2.1 单交点基本型路线曲线坐标正算原理2.2 缓和曲线线元坐标正算原理2.3 缓和曲线线元坐标反算原理2.4 圆曲线与直线线元坐标正、反算原理2.5直线与缓和曲线线元斜交的交点坐标计算原理2.6直线与圆曲线及直线线元斜交的交点坐标计算原理2.7 单交点基本型曲线坐标正、反算程序(QH2-7)2.8 线元法任意路线与匝道曲线坐标正、反算程序(QH2-8)2.9 线元法任意路线与匝道曲线直线斜交程序(QH2-9)2.10 任意个变坡点的连续竖曲线高程计算程序(QH2-10)第3章公路与铁路路线施工测量综合程序3.1 圆曲线加宽值计算程序(QH3-1)3.2 缓和曲线加宽值计算程序(QH3-2)3.3 路线纵断面中平测量记录计算程序(QH3-3)3.4 路线填、挖方工程量计算程序(QH3-4)3.5 方格网法土方量计算程序(QH3-5)3.6 解析法带弓形多边形周长与面积计算程序(QH3-6)第4章公路与铁路路线施工控制测量程序4.1 1954北京坐标系与1980西安坐标系高斯投影正算、反算及换带程序(QH4-1)4.2 测角前方交会坐标计算程序(QH4-2)4.3 测角后方交会坐标计算程序(QH4-3)4.4 测边后方交会点坐标计算程序(QH4-4)4.5 施工水准测量记录计算程序(QH4-5)4.6 四等水准测量计算程序(QH4-6)4.7 单一闭附合图根水准路线近似平差程序(QH4-7)4.8 高斯平面坐标系正形变换程序(QH4-8)方格网法土方量计算程序(QH3-5)案例QH3-5程序位于图书第179～180页。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
有关路基和隧道的CASIO 5800P 万能曲线 计
算程序
曲线任意里程中边桩坐标正反算
(CASIO fx-5800P计算器)程序
一、程序功能
本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反
算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、
边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆
曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线
方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线
段范围内任意里程中边桩坐标进行正反算。
二、源程序
增加变量16→DimZ
1.主程序(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 2
2. 正算子程序(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→Y
3. 反算子程序(SUB2)
G-90 →Z[2]： Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W： 0→Z：Lbl 0：Prog "SUB
1"： 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: IfEnd
Lbl 1： 0→Z：Prog "SUB1"： (J-Y)÷sinF→Z
4. 数据库(SUB3)
If S<226100:Then Cls:Stop: IfEnd
If S<226255.833:Then 226100→O： 99037.9736→U： 4282.3590→V： 201.3266
304→G： 1045→P： 1045→R： 253.543→H： 0→Q: Goto 1:IfEnd
……
……
If S>236005.651:Then Cls:Stop: IfEnd
Lbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：
5. 算方位角程序(FA)
LbI0：“XC=”? A : “YC=”? T :X：Y
0→J： POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfE
nd
“FW=”：J►DMS◢ Goto0
6. 使用方位角算坐标(NE)
LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F
0
”?F： L×Cos（F）+X→N: “N=”N◢L×Si
n（F）+Y→E: “E=”E◢
Goto0
7. 边坡放样程序(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]
◢IfEnd
Z[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/16500
0+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEnd
Z[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。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中
线右侧时，Z取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等
于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10
的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，
曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的
半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定
的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半
径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
2、输入与显示说明
SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO
N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由
坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进
行路基边坡放样。
3、盖板涵斜交操作说明：
（以左前点为例）
先把盖板涵斜交角度减９０后＝Ａ
再盖板涵左长度*ＣｏｓＡ＝Ｂ，盖板涵左长度*ＳｉｎＡ＝Ｃ，盖板涵身宽度/Ｃ
ｏｓＡ＝Ｄ
利用YQXJS程序计算此桩号正交时Ｂ宽度的坐标值，及法线方位角。
再转到NE程序，Ｘ，Ｙ，Ｆ三项不要修改，只改Ｌ＝Ｃ＋Ｄ/２（计算后点Ｄ前
为—）
4、SUB3数据库说明：
S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线
起点切线方位角，
P曲线起点半径， R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右
转1）
4、SUB3数据库说明：
S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点
切线方位角，
P曲线起点半径， R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右转1）
226100是标段起点，226255.833是第一线元终点，后面的字母意义见
4、SUB3数据库说明：
S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点
切线方位角，
P曲线起点半径， R曲线终点半径， H=曲线长度，Q转向（直线0，