CASIO5800交点法程序

道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）一、前言

本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。

改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：

1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；

2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；

3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）；

4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。

程序的特点：

1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；

2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；

3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。

二、道路示例项目基本资料

基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）：

三、程序代码

注：路线数据库子程序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的操作流程见下表。

隧道的施工放样程序及CAD计算超欠挖量

隧道的施工放样程序及C A D计算超欠挖量隧道测量的程序及运用：在测量隧道中由于时代的变化、科学的进步，我们运用的计算工具也在不断的变化。在如今我们测量工作中一般运用的是CASIO4500、4800、4850等型号的科学计算器还是一种有编程功能的计算器。在隧洞测量时测量人员要根据现场的要求来进行编程，边角程序如：边角后方交会 BJHFJH L1 ABCD：Lbl5：{KSP} L2 pol(C-A,D-B) L3 Q=90(1-K)+K SIN-1(S SIN P/V) L4 T=W+180-P-Q L6 Rec (S,T) : X=A+V◢ Y=B+W◢ L7 Goto5 说明： 1、测边的已知点作为P1（A,B），未测边的已知点作为P2（C,D）。测边对角为锐角时K=1，测边对角为钝角时 2、 K=-1。 3、角度P是以测边方向为起始方向，顺时针观测另一个已知点方向的右角。注：理想图形要求实测的S边相对于已知边P1P2越短越好，角P越接近180°越好。坐标反算 ZBFS L1 AB：Fixm：{CD} L2 pol(C-A,D-B)◢ L3 W＜0W=W+360 L4 lntW +(60 Frac W )+ Frac(60 FracW) ◢ 说明： 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为（A，B）、（C，D）。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为：度“°”。隧洞断面图如上的程序如下：直线断面放样程序（2） ZXFY2 L1 Lbl0：{ABH}：ABH:POL(A-X,B-Y): L2 L=ICos (J-G)◢ L3 M=Isin(J-G) ◢ L4 V=H-N◢

5800边坡放样程序

直线段边坡超欠挖检查及开口线放样程序程序名：BPFY 程序：A“QX”：B“QY”：C“QZ”：E“ZX”：F“ZY”：G“ZZ”：P“PB”：K“XP”：L“YP”：M“ZP”：Fixm：Pol(E-A，F-B：J≤0=>J=J 360⊿D=Abs((K-A)*CosJ (L-B)*SinJ)：S=Abs((L-F)*CosJ-(K-E)*SinJ)：X=A D*CosJ：Y=B D*SinJ：Z=(G-C)/I*D C：W=AbS(M-Z)：V=S/P-W：V<0=>O“Hcw”=V◢⊿V≥0=>O“Hqw”=V◢⊿U=W*P-S：U<0=>N“Scw”=U◢⊿U≥0=>N“Sqw”=U◢⊿“END”说明：A、B、C为边坡底线的起点，显示为: QX?QY?QZ? 依次输入地线起点的X,Y,Z；E、F、G为边坡底线的终点，显示为: ZX?ZY?ZZ? 依次输入地线终点的X,Y,Z；P为坡比，无正负条件；K、L、M 为测量点，显示为: XP?YP?PZ? 依次输入测量点的X,Y,Z；中间计算测量点至边坡底线的垂足点，保存变量为X、Y、Z。O为边坡的高程超欠挖值，显示为Hcw或Hqw，分别表示超挖或欠挖，即测点高程设计高程减实测高程；N为边坡的距离超欠挖值，显示为Scw或Sqw，分别表示超挖或欠挖，按高差计算的设计距离减实测点到垂足点距离。圆弧段边坡超欠挖检查及开口线放样程序程序名：YFFY 程序：A“YX”：B“YY”：X“XP”：Y“YP”：Z“ZP”：Fixm：Pol(A-X，B-Y)：T=Abs(I-R)：W=Abs(H-Z)：S=W*P-T：V=T/P-W：S<0=>M“Scw”=S◢⊿S≥0=>M “Sqw”=S◢⊿V<0=>K“Hcw”=V◢⊿V≥0=>K“Hqw”=V◢⊿“END”说明：A、B为圆心坐标，显示为YX？YY？，依次输入圆心点的X、Y；X、Y、Z为测点坐标，显示为XP？YP？ZP？依次输入测点的X、Y，Z；R为到边坡底线的距离（半径）；H为边坡底线的高程（马道或平台的高程）；I不用管它，直接按“EXE”，显示下一个输入；P为坡比，无须输入正负号；M为计算的边坡距离超欠值，显示为Scw或Sqw，分别表示超挖或欠挖，距离超欠值为：设计距离减测量距离；K为计算的边坡高程超欠值，显示为Hcw或Hqw，分别表示超挖或欠挖，高程超欠值为：设计高程减测量高程。从网上弄来的，自己没有用过，你用的时候最好多做检核。边坡测量（由坐标反算桩号及填挖高度方法的运用）在施工测量放样中，最常用的就是正算放样（已知该点坐标进行定点放样），但在某些特殊情况下要进行的放样工作，这种办法就显得黔驴技穷了，比如在南方的山区道路施工中，往往会有高填高挖路段，有的高达几十米，那么这些段落的填土边线及挖方开口线放样就给我们施工测量带来了麻烦，如果采用常规的办法一般会有以下几个步骤： 1、首先放出中线 2、然后对填挖断面进行测量 3、再估算填挖边线距中桩的距离 4、试放出该点位置 5、对该点进行高程测量，比较该点实测高程与设计高程的差距，重新计算距中桩距离 6、重复4、5步，试放该点，测量高程，至到与设计高程相符为止

卡西欧5800路基测量程序讲课稿

卡西欧5800路基测量程序

晋-测量-斐斐(532901847) 21:20:03 一、程序功能本程序由一个主程序(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

FX5800道路路线测量程序

道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）编辑 | 删除 | 权限设置 | 更多▼ 设置置顶推荐日志转到私密记事本转载自王中伟转载于2009年08月12日 17:34 阅读(1) 评论(0) 分类：技术交流权限: 公开一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）： .

卡西欧5800P计算器隧道施工测量程序设计

卡西欧5800p计算器隧道施工测量程序设计王庆军随着铁路、公路建设的快速发展，我国隧道建设的施工技术也大幅度提高，由于工期紧迫促成测量放样的过程也是一个重要环节，如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度，导致开挖掘进造成隧道超欠挖，所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作，这样不仅提高了施测效率还保证了放样精度，现通过本文分析讲解隧道超欠挖的计算原理和程序设计。何为超欠挖？：隧道超欠挖分为（超挖和欠挖），超挖即为隧道开挖轮廓线大于隧道设计轮廓线，欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。超欠挖的影响：隧道超欠挖不止直接影响到了施工进度、安全质量，还会让开挖费用增加，更重要的是由此造成了过量超填混凝土的费用。超挖在实际施工中由于重视不够或方法不当，以至于在施工过程中会不知不觉地提高工程成本，从而也减少了应得的利润。超欠挖是如何产生的？在目前的隧道施工中，掘进技术有两种方法，一种是传统的“钻爆法（开挖台阶法）”；一种是“全断面掘进法（盾构掘进法）”。受各种条件的制约，“钻爆法”仍是山区隧道施工的主要掘进方法。所以隧道超欠挖的形成也是不可避免的，下面讲述一下形成超欠挖的三种情况。 1、岩层变化：由于隧道开挖过程中随着岩层的变化，地质条件和围岩裂隙的发生会出现不可避免的超欠现象，所以岩体是超欠挖的主要因素之一。 2、爆破方式：由于工作面（掌子面）是一个不平整的岩体面，导致钻孔间距控制不当或间距过大、过小，容易影响其他孔位的爆破效果，或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。 3、测量放线：由于隧道测量放线过程中能见度低，操作有限，测量人员进入隧道测量时导致前后视照准误差，同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。如何正确实施隧道测量工作？隧道测量工作应由专业测量人员测量，根据设计院给定的坐标控制点和高程控制点进行建立导线控制网,并按规定程序检查验收,对施测人员实行详细的图纸交底和方案交底,所有施测的工作进度根据项目进度计划进行安排。在隧道施工过程中,为了保证开挖、初期支护及二次衬砌后的净空满足设计规范要求，必须对已完工的主体工程进行全断面检查，现场检查一般采用带红外线的全站仪在现场实测三维坐标进行检查。对于测量数据应及时反馈到现场施工管理人员，以便及时控制开挖及衬砌净空标准。通过以上对隧道超欠挖的了解及形成和影响，如何正确施测和控制等，现在就谈谈隧道超欠挖的计算原理。

5800计算器全线坐标计算放样程序(修改第三版)

5800计算器全线坐标计算放样程序（修改第三版） 5800计算器全线坐标计算放样程序（修改版） “XLZBJSCX” ◢ LB1 0 ↙ CLS : FIX 4 : 30→DIM Z ↙ “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y)0l(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视方位角) LB1 1 ↙ “K=”?K ◢（计算里程） IF K<本段曲线终点里程 AND K≥上段曲线终点里程：THEN 本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→0 （注：左偏曲线输入-1→0,右偏曲线输入1→0）: 偏角→A：半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线 →Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : G0T0 2 : IFEND↙ …………（曲线段分段输入）补充直线段输入如下 IF K<本段直线终点里程 AND K≥本段直线起点里程:THEN 1→0:本段直线终点里程→Z[2]:终点X→Z[16]:终点Y→Z[11]:方位角→E:G0T0 4:IFEND LB1 2 ↙（曲线要素计算） Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙（M1） Z[7]/2- Z[6]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙（M2） Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙（P1） Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙（P2） π*A*R/180+0.5*( Z[3]+ Z[2])→W ↙（曲线总长） 90* Z[6]/(R*π) →Z[14] ↙（第一缓和曲线总偏角） 90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略） Z[8]＋（R+Z[10])TAN(A/2)-(Z[11]-Z[11] )/SIN A→Z[11]↙ (切线T1) Z[9]＋（R+Z[12])TAN(A/2)+(Z[10]-Z[12] )/SIN A→Z[12]↙ (切线T2) B+ Z[12]*C0S (E+180)→ Z[13] ↙（ZH点X） C+ Z[12]*SIN(E+180)→ Z[15] ↙（ZH点Y） Z[1]-S→Z[3] ↙ (ZH点里程) Z[3]+ Z[6]→Z[4] ↙ (HY点里程) Z[1]- Z[7]→Z[5] ↙ (YH点里程) G0T0 3 ↙ LB1 3 ↙(判断里程点与曲线关系) IF K≤Z[3] AND K> Z[2] : THEN G0T0 4 : IFEND ↙ IF K≤Z[4] AND K> Z[3] : THEN G0T0 5 : IFEND ↙ IF K≤Z[5] AND K> Z[4] : THEN G0T0 6 : IFEND ↙

公路测量卡西欧5800万能程序

一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号： K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下.

. 三、程序代码 .

. .

交点法线元法坐标计算

3、交点法、线元法坐标计算坐标计算是根据图纸中“直线及曲线转角一览表”提供的数据计算道路中桩坐标，然后和图纸提供的“逐桩坐标表”比对，如果一样则说明输入平曲线参数输入正确，可以计算边桩坐标和其他结构物坐标了；如果中桩坐标不一样，一般是平曲线参数输入有误，需要重新检查输入，另一种结果是图纸有错，这种情况少见，但不代表没有。“直线及曲线转角一览表”和“逐桩坐标表”见附件1、附件2。线元法是以路线的起点坐标、方位角、起终点桩号等节点元素来计算出要求的坐标；交点法是以路线的交点要素和路线的主要要素来求得坐标。 ①交点法交点：路线的转折点，路线改变方向是相邻两直线的延长线相交的点。用JD表示，有些图纸上用 IP表示。看下图：交点是针对曲线的（包含圆曲线和缓和曲线），一段曲线就有一个交点。交点参数有：坐标（X,Y）、交点桩号、转角值、圆曲线半径R、缓和曲线长度。教学提供软件（轻松测量、双心软件、测量工具）交点法曲线要素输入说明： 1、QD起点坐标：起点坐标必须在直线段上，或填写前一交点的坐标。

2、JD交点曲线要素：（1）交点桩号（2）交点坐标（X,Y）（3）曲线半径R 始点的话，起始里程有时候需要校正，当然，并不是每个图纸给出的起点里程都需要校正，大多数图纸的起点里程已经被设计院校正过，我们输入平曲线的时候需要验证一下。如果我们按照图纸给出的起点里程输入，发现后面的交点里程都和图纸相差一个相同的值，这就表明我们输入的起点里程需要校正。起始点里程正常输入，第二、三个交点输入完成后，检查第二个交点的切线长和交点

里程是否和图纸一样，如果切线长正确，交点里程不正确，说明起点里程需要校正，将第二个交点的里程与正确里程的差值，应用到起点里程中，从而使第二个交点里程和后面交点的里程与图纸吻合。注意：交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。对于非普通的三单元曲线，交点法不适用。非普通的三单曲线例如下页的JD18及JD19处的平曲线，的输入是否正确，有的图纸给的方位角数据较少，需要每隔几个线元才能检验方位角。

Fx5800计算器公路测量程序设计

FX5800计算器测量程序集版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算

二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、 A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）； 6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)； 7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)； 8、极坐标计算程序（8JS、JS、DS）； 9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按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＂：

交点法坐标计算

本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！主程序名：JD 24→Dimz↙ Cls :＂XC＂?U :＂YC＂?V :＂K（JD）＂?K :＂X（JD）＂?X : ＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R : ＂（ZH）FWJ°＂?M : ＂α（Z-,Y+）°＂?O : M+O→N : Prog ＂JDA＂↙ Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢ Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢ Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢ LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0 :Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙ If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(L)=＂: Locate 6,1,I : ＂F(L)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G : ＂QXFWJ(Z)=＂: Z▼DMS◢ Pol(F-U,G-V : Cls : ＂S(Z)=＂: Locate 6,1,I : ＂F(Z)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ 子程序1名： JDA If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙ B2 ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙ C2 ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙ B÷2-B^(3)÷240÷R2 →Z[8] ↙ C÷2-C^(3)÷240÷R2 →Z[9] ↙ Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙ Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙ RAπ÷180+(B+C) ÷2→L↙ RAπ÷180-(B+C) ÷2→Q↙

5800平曲线放样程序(分段)

5800-平曲线程序程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。程序说明：K0：起始桩号 X0：起始X坐标 Y0：起始Y坐标 ALF：起始方位角 R：半径 LS：缓和曲线长 N：曲线左转N=1，右转N=2 K：待求桩号 LL、LR：左、右桩距离 Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。一、直线段文件名：ZX (COMP) “K0=”? L：“X0=”? O：“Y0=”? P：“ALF=”? W： Lbl 0：“K=”?：O+(K-L)cosW→X： P+(K-L)sinW→Y：“XZ=”：X◢“YZ=”：Y◢“LL=”?B：“XJJ=”?Q： X-Bcos(W +Q) →E：Y-Bsin(W+Q) →F：“XL=”：E◢“YL=”：F◢“RL=”？C： X+Ccos(W+Q) →I：Y+Csin(W+Q) →J：“XR=”：I ◢“YR=”：J◢Goto 0 注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。二、圆曲线段文件名：YQX (COMP) “K0=”？ L：“X0=”？ O：“Y0=”？ P：“ZH—JD FWJ=”？ G：“LS=”？L：“R=”？R：G+L÷2÷R×180÷π→W：Lbl 0：“K=”？K：(-1)^N(K-L)÷R×180÷π→J： 2Rsin((-1)^N J÷2)→D：O+Dcos(W+J÷2)→X：P+Dsin(W+J÷2)→Y：“XZ=”：X◢“YZ=”：Y◢“LL=”？B：“XJJ=”？Q：X-Bcos(W+J+Q)：Y-Bsin(W+J+Q) →F：“XL=”：E◢“YL =”：F◢ “RL=”?C：“XJJ=”?Q：X+Ccos(W+J+Q) →U：Y+Csin(W+J+Q) →V：“XR=”：U◢“YR=”：V◢ Goto 0 注：公式里面W为HY点方位角，通过ZH-ＪＤ方位角计算，公式为Ｇ±Ls/2/R×180/π,(曲线左转-，曲线右转+)。三、缓和曲线文件名：HHQX (COMP) “K0＝”？K: “X0=”？O：“Y0=”？“ALF=”？W：“LS=”？M：“R=”？R： Lbl 0：“K=”？K：“N=”？N：(-1)^N ×(K-L)^2÷M÷R÷6×180÷π→I：(K-L)-(K-L)^5÷90÷(RM)^2→D：O+Dcos(W+I) →X：P+Dsin(W+I) →Y：“XZ=”：X ◢“YZ=”：Y◢“LL=”？B：“XJJ=”？Q：X-Bcos(W+3I+Q) →E：Y-Bsin(W+3I+Q) →F：“XL=”：E◢“YL=”：F◢“R L=”？C：X+Ccos(W+3I+Q) →I：Y+Csin(W+3I+Q) →J：“XR=”：I◢“YR=”：J◢Goto 0 注：1、坐标计算方法是根据偏角法原理； 2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点； 3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。 2008/12/8

Casio fx-5800P 交点法坐标计算程序

Casiofx-5800P交点法坐标计算程序 XC U 测站X坐标 YC V 测站Y坐标 K(JD) K 交点桩号 X(JD) X 交点X坐标 Y(JD) Y 交点Y坐标 LS1 B 第一缓和曲线长度 LS2 C 第二缓和曲线长度 R 圆曲线半径 FWJ M 起始边切线方位角 α(Z-,Y+) O 本交点处线路转角(左转为负，右转为正，度分秒输入) K×+××× 待求桩号 Z 待求桩号距中距离(左负值，右正值，中为0) RJ 斜交右角(线路切线前进方向与边桩右侧夹角) →? 主程序名：JD 24→Dimz ”XC”?U:”YC”?V:”K(JD)”?K:”X(JD)”?X:“Y(JD)”?Y:”LS1”?B:”LS2”?C:?R “FWJ”?M:“α(Z-,Y+)°”?O:M+O→N Prog“JDA” Cls:”E=“:”K(ZH)=“:Locate7,1,E:Locate7,2,Z[1]◢ Cls:“K(HY)=“:”K(QZ)=“:”K(YH)=“:”K(HZ)=“:Locate7,1,Z[2]:Locate7,2,Z[3]:Locate7,3,Z[4]:Locate7,4,Z[5]◢LbI0:“K×+×××”?P:“Z”?D:If D≠0:Then “RJ”?H:IfEnd:Prog“JDB” If D<0:Then Cls:“X(L)=“:”Y(L)=“:Locate6,1,F:Locate6,2,G◢ Pol(F-U,G-V:Cls:“S(L)=“:Locate6,1,I:“F(L)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd If D=0:Then Cls:“X(Z)=“:”Y(Z)=“:Locate6,1,F:Locate6,2,G:“QXFWJ(Z)=“:Z?DMS◢ Pol(F-U,G-V:Cls:“S(Z)=“:Locate6,1,I:“F(Z)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd If D>0:Then Cls:“X(R)=“:”Y(R)=“:Locate6,1,F:Locate6,2,G◢ Pol(F-U,G-V:Cls:“S(R)=“:Locate6,1,I:“F(R)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd 子程序1名：JDA If O<0:Then -1→W:Else 1→W:IfEnd:WO→A B2÷24÷R-B^(4)÷2688÷R^(3)→Z[6] C2÷24÷R-C^(4)÷2688÷R^(3)→Z[7] B÷2-B^(3)÷240÷R2→Z[8] C÷2-C^(3)÷240÷R2→Z[9] Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T RAπ÷180+(B+C)÷2→L RAπ÷180-(B+C)÷2→Q (R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E K-S→Z[1]

fx 5800 隧道超欠挖计算程序

fx 5800 隧道超欠挖计算程序隧道超欠挖计算程序正算主程序(ZS)： Lb1 0：?S：?Z：Prog“PM-SJ”：Abs(S-O)→ W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F:S→ K:Prog“SQX”：“H=”：H◢Goto0 反算主程序(FS) Lb1 0: ?S：?X：？Y：Prog“PM-SJ”：X→ I：Y→ J：Prog "SUB2"："S="：O+W→S◢"Z="：Z◢ S→ K:Prog“SQX”：“H=”：H◢Goto0 隧道3心圆放样主程序（CQW） Lb1 1：Fix3:7.315→R：6.19→P:“H 1”?F:?Z:F-H→F:Abs(5.72-Z)→Z If F≥6.319:Then √(Z2+(F-0.715)2 )-R→W:IfEnd: If F≥1.577 AND F＜6.319 Then √((Z-0.723)2+(F-1.577) 2)-P→W:IfEnd: If≤1.577: Then Z-(P+0.723)→W:IfEnd: “W=”: W◢ Goto1 R----第一个圆圆心 P----第二个圆圆心

F----实测高程 H----路面纵断设计高程 Z----由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z)→Z，左线输入Abs(5.72+Z)→Z CQW----计算结果（+超，-欠）隧道二衬断面检测主程序（CQJC） Lb1 1：Fix3:6.625→R：5.5→P: “H1”?F:?Z:F-H→F:Abs(5.72-Z)→Z If F≥5.79:Then √(Z2+(F-0.715) 2)-R→W:IfEnd: If F＜5.79 Then √(Z-0.723)2+(F-1.577)2)-P→W:IfEnd: “W=”: W◢ Goto1 R----第一个圆圆心 P----第二个圆圆心 F----实测高程 H----路面纵断设计高程 Z----由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z)→Z，左线输入Abs(5.72+Z)→Z

5800p全功能程序

网上搜索来的一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量) Z[1]=90（与路线右边夹角） Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 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

２．主程序２：高程序横坡程序(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:”H=”:Locate 6,4,H◢ “I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：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-XY LbI 0:Norm 2 90→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:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBX LbI 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:IfEnd LbI 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]◢

边坡放样程序

边坡放样程序问题的出现在土石方开挖中,有时由于地形复杂,会发生地形变换点未能加测坡口桩的情况,或因施测人员对内业图纸不熟悉,造成放样数据不准确等,这均会导致放样方法不准确使边坡超挖欠挖严重,或者边坡开挖后使设计的落石平台无法形成,只能一挖到底。有的保证了路面宽度,却不能保证坡度缓于设计值。不仅造成严重的质量问题,还对后期工程带来一定的影响,直接降低工程质量等级。由于土石方工程的边坡是个很直观的外露工程,也是直接影响评定工程质量等级的重要因素,为避免出现以上问题,本人将给出在特区市负责高速公路施工时,对复杂地形的边坡放样处理方法。放样方法的选择及实施 (1) 放样前熟悉工程地形图、道路平面图、路线图与施工组织设计及断面图,实地踏勘后沿线路做好首级控制,控制点应选在边坡范围外侧,考虑边坡深挖控制点不能离坡口太远,一般距坡口1～1. 5m 即可,测设线路中线桩断面图,根据设计值计算出每级边坡放样数据,最好内业计算出不同坡面的放样数据图,同时放出开挖坡口桩,放坡口桩时应加放拱面至坡面5cm。考虑中桩点位误差以保证路面宽度不小于设计宽度,坡面不陡于设计陡面,故坡口桩应放宽5cm。在确定坡口开挖边线时,若边桩与相邻边桩纵向地形的坡度基本一致,两坡口桩之间无明显凸地形出现,可根据设计图纸和实测的高程计算出路中桩至坡口的水平距离。坡

口桩因高程变化而改变平距,故坡口桩要经过多次修改才可确定。然后在相邻坡口桩之间拉一细线洒上白灰即为坡口开挖边线,此为正常放样。 (2) 坡回桩与坡口桩之间有明显凹凸或中间有深沟路堑、路堤甚至小山等,则应加测局部中桩各边坡口边坡桩,图1 中的点为加测桩。加测的边桩应在地形的变换点上。此为方法之二。 (3) 在高挖地段的边坡都设有几级台阶或落石平台,在同一级平台内坡面桩与坡面桩之间按直线洒白灰,作为坡面开挖边线。坡面桩与坡面桩之间不在同一个平台内,则应测出平台出口的内外桩,用上面的桩点与平台出口的外桩相连。平台出口内桩与下面的桩点相连。此为方法之三。 (4) 坡度尺的应用。根据地形变化,可以自制坡度尺。在两个坡口桩之间拉一条线,然后以线为准,用坡度尺向上或下延伸到地形变换的每一个点上,坡度尺的方向必须垂直坡面。根据桩点和延伸点用白灰洒一条线,注意洒出的开挖线不是直线,用坡度尺也可指导每一级的坡面开挖或填方,一般坡面每挖深纵向20m 用仪器测定每一个坡面桩。这样可检查是否挖到设计坡面,同时也可以掌握坡面平整度。横向坡面可以在坡面桩上下拉一坡度线,一面开挖,一面将线向下延伸。纵向则可以在两坡度线纵向20m 拉一细线,检查坡度平整度或控制超欠挖。这样能使坡面象是用刀按设计的坡度切出的一个完整坡面,使设计美真正成为一种施工中的艺术美。横向拉坡度线,纵向拉坡面线开挖可一次开挖到位,不需第一次预挖,第二次修坡。此为方法之四。

5800万能隧道程序

5800万能隧道程序 1,主程序 Lbl 0 ："1.SZ => XY" ："2.XY => SZ" ：？T ：？S ：Prog “SUB0 ”↙ 1 ÷P →C: (P-R) ÷(2HPR) →D:180 ÷∏→E:T=1 => Goto1 ：Goto 2 ：↙ Lbl 1: “LICHENG=”？K：“BANJNG=”？P：“PIANJIN=”？S：：Abs(S-O) →W ：Prog "SUB1" ↙ Prog "GC"：G+√ˉ(P2－S2)+1.66◢ "XS=" ：X ◢ "YS=" ：Y ◢ " ZS=" ：Z ◢ F-90 →F ：“FS= ”：F ?DMS ◢ Goto 0 Lbl 2 ：Prog “SUB2 ”↙ Prog “YFS3 ” Goto 0↙ 2. 正算子程序(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+QEL W(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+Q EMW(C+MWD))) →Y ：G+QEW(C+WD)+90 → F ：X+Zcos （ F ）→X ：Y+Zsin （F ）→Y 3. 反算子程序(SUB2) Lbi 1∶“BANJING”？P：“X”？X：“Y”？Y：“Z”？Z：X→I：Y→J：G-90 →T ：Abs((Y-V)cos(T)-(X-U)sin(T) ) →W ：0 →Z ：Lbl 4 ：Prog "SUB1" ： T+QEW(C+WD) →L ：(J-Y)cos （L ）-(I-X)sin （L ）→Z ：IF Abs （Z ）<0.01 ：Then0 →Z:Prog "SUB1" :(J-Y) ÷sin （F ）→Z:Else W+Z