歪哥哥版 Casio5800水准仪测量高程现场计算小程序
Casio5800水准仪测量高程现场计算小程序
（歪哥哥2009版）
程序功能目的：输入水准仪现场前视读数快速计算出该点的实测高程！程序名: HC
LbI A:Cls:“HS”?X:“BM-H”?Y:X+Y→S:Cls:“SXG=”:Locate 6,1,S◢
LbI B:Cls: “QS”?D:If D≥0 :Then Goto D:Else Goto C:IfEn d↙LbI C: M→Y:Abs（D）→X: Goto A↙
LbI D:S-D→M: Cls:“QS=”: “HC=”Locate 6,1,D: Locate 6,2,M ◢
Goto B↙
符号说明：
HS? 输入水准点上之后视读数
BM-H?输入水准点之设计高程
SXG= 显示视线高程
QS?输入该点的前视读数（注：当有转点时则转点的前视读数输入后显示HC为转点的高程，紧接着当再次提示QS?时将转点所测的后视读数以负值输入连续两次EXE即可显示转点后的视线高程，即可进行转点后的正常计算！）
QS=显示所输入的该点的前视读数
HC=显示计算所得的该点的实测高程
歪哥哥QQ：512477648
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◢
水准仪测量高程的方法和步骤
水准仪测量高程的方法和步骤 内容：理解水准测量的基本原理；掌握DS3 型微倾式水准仪、自动安平水准仪的构造特点、水准尺和尺垫；掌握水准仪的使用及检校方法；掌握水准测量的外业实施（观测、记录和检核）及内业数据处理（高差闭合差的调整）方法；了解水准测量的注意事项、精密水准仪和电子水准仪的构造及操作方法。 重点：水准测量原理；水准测量的外业实施及内业数据处理。 难点：水准仪的检验与校正。 §2.1 高程测量（Height Measurement ）的概念 测量地面上各点高程的工作, 称为高程测量。高程测量根据所使用的仪器和施测方法的不同，分为： （1）水准测量(leveling) （2）三角高程测量(trigonometric leveling) （3）气压高程测量(air pressure leveling) （4）GPS 测量(GPS leveling) §2.2 水准测量原理 一、基本原理 水准测量的原理是利用水准仪提供的“水平视线”，测量两点间高差，从而由已知点高程推算出未知点高程。
a ——后视读数A ——后视点 b ——前视读数B ——前视点 1、A、B两点间高差： 2、测得两点间高差后，若已知A 点高程，则可得B点的高程：。 3、视线高程： 4、转点TP(turning point) 的概念：当地面上两点的距离较远，或两点的高差太大，放置一次仪器不能测定其高差时，就需增设若干个临时传递高程的立尺点，称为转点。 二、连续水准测量
如图所示，在实际水准测量中，A 、B 两点间高差较大或相距较远，安置一次水准仪不能测定两点之间的高差。此时有必要沿A 、B 的水准路线增设若干个必要的临时立尺点，即转点（用作传递高程）。根据水准测量的原理依次连续地在两个立尺中间安置水准仪来测定相邻各点间高差，求和得到A 、B 两点间的高差值，有： h 1 = a 1 －b 1 h 2 = a 2 －b 2 …… 则：h AB = h 1 + h 2 +…… + h n = Σ h = Σ a －Σ b 结论：A 、B 两点间的高差等于后视读数之和减去前视读数之和。 § 2.3 水准仪和水准尺 一、水准仪(level) 如图所示，由望远镜、水准器和基座三部分组成。
fx-5800p全线坐标正反算带高程计算程序(线元法)
曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序 一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。 2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。 二、源程序 1.主程序(TYQXJS)(A) Deg:fix 3 119→DimZ “INPUT(0) Or DATA(Else)”?I Lbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?N If N=1 Or N=5:Then Goto 1 Else If N=2 Or N=3 Or N=4:Then Goto 2 Else Goto 3 IfEnd:IfEnd Lbl 1:“K(m)=”?S If S<0:Then Goto 0:IfEnd “JL(m)=”?Z If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd If I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEnd S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd Prog “SUB-ZS”:Prog “SUB-GC” If Z<0:Then“XL(m)=”:X◢“YL(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else If Z>0:Then “XR(m)=”:X◢“YR(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else “X(m)=”:X◢“Y(m)=”:Y◢“Hs(m)=”:L◢“FWJ=”: F?DMS◢ IfEnd:IfEnd
CASIO 5800计算器测量计算程序
CASIO 5800计算器测量计算程序 上上月做这个东西的时候没仔细检查，有好几处输错了的地方，今天把它修改过来。 简要介绍： 1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD 程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。 3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。 4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。 4. 程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。 一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。 ①Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog “AU” ②Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S ③Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2…原来lbl 后没有标号４的。 ④O=-1 =>Goto 6 ⑤“X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog “D”:Goto 4 ⑥Lbl 6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4 ⑦X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin( J)→I▲L+I▲Goto 6 二、P程序：在程序中提供一个自由运算的模式。 ①Lbl 1:”TMP”?I:If I≠0:Then “RST”:I▲Goto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。 ①Prog “AU” ②Lbl 1:Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”?X :X→Z[7]:”YF”?Y:Y→Z[8]: ”ZF”?S: S→Z[6] ③Lbl 2:Prog “Z”:Y=U =>Y+1p→Y ④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I ⑤If Abs(I)≤0.1:Then Prog “E”:”L,YC”:L+I→L▲O▲Goto 3:IfEnd ⑥If Z[9]≠0:Then Pol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd ⑦”DL”:I▲L+I→L:Goto 2 ⑧Lbl 3: Z[6]→S:If S=0:Then Goto 1:IfEnd ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then
[整理]9860G线元法隧道(坐标正反计算、高程)计算程序
CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序 悬赏分：+62 作者：刘工 2010-4-3 1. A（此为主程序） Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V： If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ： If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L： If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ： Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q： Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝： 〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲ L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0： Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L： If M>3845505.273 And M<3846506.099 And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2： IfEnd ：Lbl 5：0→Q：0→J： Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲ L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 0 2.正算坐标ZBZS ( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ： O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G： A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ： B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y 3.反算坐标：ZBFS Lbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：
《坐标方位角及距离计算小程序》代码——Access实现
公用模块： Option Explicit Public Const PI = 3.14159265358979 '已知A、B两点坐标计算方位角，JSFWJ的中文意思是计算方位角 Public Function JSFWJ(xa As Double, ya As Double, xb As Double, yb As Double) As Double '已知A、B两点坐标计算方位角函数过程Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSFWJ = 999999999# End If '计算方位角的值 If vx = 0 And vy > 0 Then '与y轴正半轴平行 JSFWJ = RadianToAngle(PI / 2#) ElseIf vx = 0 And vy < 0 Then '与y轴负半轴平行 JSFWJ = RadianToAngle(PI * 3# / 2#) ElseIf vy = 0 And vx > 0 Then '与x轴正半轴平行 JSFWJ = RadianToAngle(0) ElseIf vy = 0 And vx < 0 Then '与x轴负半轴平行 JSFWJ = RadianToAngle(PI) ElseIf vx > 0 And vy > 0 Then '第一象限 JSFWJ = RadianToAngle(Atn(vy / vx)) ElseIf vx < 0 And vy > 0 Then '第二象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx < 0 And vy < 0 Then '第三象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx > 0 And vy < 0 Then '第四象限 JSFWJ = RadianToAngle(Atn(vy / vx) + 2 * PI) End If End Function '已知A、B两点坐标计算距离，JSJLS的中文意思是计算距离S Public Function JSJLS(xa As Double, ya As Double, xb As Double, yb As Double) As Double Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSJLS = 99999999# End If '计算距离 JSJLS = Sqr(vx * vx + vy * vy) End Function '弧度化角度 Public Function RadianToAngle(ByVal alfa As Double) As Double Dim alfa1 As Double, alfa2 As Double alfa = alfa * 180# / PI
CASIO fx5800p全线高程计算程序
CASIO fx5800p全线高程计算程序 GAOCHEN 主程序 Lbl 1 “KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK” C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→R If K≤B-T:Then 0→H:Else:If K≥B+T Then 0→H:D→C:Else K-B+T→H:Ifend:Ifend A-(B-K)C-H2/(2R)→G：Cls “KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “H=”：Locate 4，2，G Prog “PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J “HL=”：G+IL→X：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100 “HR=”：G+JL→Y：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100◢Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0=> Goto 1：Cls (输入视线高) “KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “QSM=”: Locate 6，2，Z-G (显示中桩读数) “QSL=”: Locate 6，3，Z-X (显示左桩读数) “QSR=”: Locate 6，4，Z-Y◢(显示右桩读数) Norm 2：Cls：Goto1 （后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉） 以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果 GK 数据库子程序 If K≤第二曲线起点桩号：Then 第一曲线交点高程→A：第一曲线交点桩号→B：第一曲线前坡→C：第一曲线后坡→D：第一曲线半径→R：Return：Ifend …………….（有几个变坡点编几个If语句） PODU 计算坡度子程序 If K≤第一变（非变）坡段终点：Then 第一曲线起点桩号→A：第一曲线起点左坡→B：第一曲线起点右坡→C：第一曲终点桩号→D：第一曲终点左坡→E：第一曲终点右坡→F：Return：Ifend ………………（每一个超高变化线元一个If语句） 结果显示： KM=0000.000 PY=0.000 H= 00.000 HL=00.000 I=-1.5 HR=00.000 I=-1.5 KM=0000.000 PY=0.000 QSM= 00.000 QSL= 00.000 QSR= 00.000
5800数据库型全线高程计算程序(2)
Casio5800 计算器数据库型全线高程计算程序(更新2) 一、主程序：2H-SZY Lbl 0: HS ?U: BM-H ?X: SXG= : U+X丄输入后视及水准点设计高程显示视线高程 Lbl 1: “QS”?P: “K X x+xx乂' ?K : Prog “ S.Z”/ C 十100—C: D - 100—D: R Abs(D-C) - 2—T / If D>C :Then 1 —W:Else1—W:lfEnd / If K
测量坐标计算及高程计算
在测量岗位工作已经有三个月到时间了，三个月的时间学习和收获了许多，现对这三个月的工作学习做一下总结。 测量工作内容主要有以下两个方面：测量放线（坐标计算），高程控制。 一、测量放线 测量放线到主要技术包括坐标计算和仪器使用。坐标计算包括直线段坐标计算和曲线段坐标计算。 1、直线段坐标计算。直线坐标计算分为中桩坐标计算和边桩坐标计算。 1）中桩坐标计算。根据公式 ααsin ,cos d Y Y d X X +=+=起中起中 d — 所求点到起点距离； α— 该直线坐标方位角。在此顺带详细介绍一下坐标方位角到计算方法： （1）坐标方位角的计算 AB AB A B A B AB x y x x y y ??=--=arctan arctan α当 R y x R y x R y x R y x -360,0,0180,0,0-180,0,0;,0,0?=?+?=??>?αααα；； （2）坐标方位角的推算
， ， 218021*********βαβααβαβαα-?+=-=+?+=+=B B AB BA B 由此推出：βαα±?+=180后前（“左”→“+”， “右”→“-”），计算中，若α值大于360°，应减去360°；若小于0°，则加上360°。 2）边桩坐标计算 应用公式 )90sin(90cos(?±+=?±+=ααl y y l x x 中边中边）， 进行边桩坐标到计算。北客站为直线车站，坐标计算较简单，现以位于机场线第二段底板的变电所夹层东北角C 点为例进行计算： 以机场线右线为基准来计算中、边桩坐标。已知起点坐标A （22264.4009，11553.2031），终点坐标B （22180.2655，11279.0739），起点里程为YDK0+255.275,C 点里程为YDK0+286.075,偏距为15.33m ，则由以上公式计算C 点坐标： α=arctan(（11279.0739-11553.2031）/（22180.2655-22264.4009）)+180°=252.938°， =中x 22264.4009+（286.075-255.275）*cos252.938°=22255.3640 =中y 11553.2031+（286.075-255.275）*sin252.938°=11523.7586 =c x +15.33*cos （252.938°+90°）=22270.0193 = c y +15.33*sin （252.938°+90°）=11519.2606，则可求出C （22270.0193，11519.2606）。 2、曲线段坐标计算 1）不带缓和曲线的圆曲线中、边桩坐标计算 北 中 x 中 y
5800坐标高程计算程序
CASIO5800计算器 公路测量计算程序 程序设计:魏加训 2009.2.28
Casio 5800计算器数据库型万能坐标正反算计算程序 一、主程序：1XY Lbl 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↙ 二、正算子程序：ZS 5→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 ↙ 三、反算子程序：FS Lbl 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
高差闭合差计算原理及公式名师优质资料
建筑工程测量中高差闭合差的计算与调整 摘 要：在高程控制测量中，可以通过计算高差闭合差来检核观测成果的质量。而高差闭合差这一概念,在建筑工程测量的实际应用中容易混淆。文章从高差闭合差计算、调整和高程计算三个方面入手, 给出了对高差闭合差理解的思路，以及在控制测量中高差闭合差平差的新方法。经实践验证，有益于工作效率的提高。 关键词：水准测量；高差闭合差；平差 0 前言 在建筑工程测量中，当待测点距已知点较远时，必须进行高程控制测量。高程测量的方法有多种，其中水准测量是精确测量地面点高程的主要方法，在实际工作中应用十分广泛。 沿线布设临时水准点，从已知点出发，沿闭合路线、附合路线、支路线等三种路线进行水准测量，三种水准路线的区别见表1。由于支水准路线缺乏检核条件，规定在支水准路线中必须进行往返测量。这样，在三种水准路线中，终点都是已知点。 表1 水准路线的区别 水准路线 起点 终点 起点与终点的位置 备注 闭合水准路线 BM1 BM1 相同 环线 附合水准路线 BM1 BM2 不相同 支水准路线 BM1 BM1 相同 沿原路线返回。如： BM1→1→2→3→4→3→2→1→BM1 由于仪器（工具）误差、观测误差、外界条件的影响等测量误差的存在，在水准测量中不可避免地会出现测量误差。当待测点距已知点较远时，经过多测站的观测后，在待测点上必然积累了一定的误差，这些误差的多少只有通过多余观测才可得知。 多余观测在这里体现为对终点进行观测。用终点的实测高程与终点的理论高程去进行比较，从而得知产生了多少误差，这个误差就是高差闭合差。 对水准测量的成果进行检核，当测量误差在容许范围之内就必须对产生的测量误差，即高差闭合差进行调整，这就是控制测量中的平差。 1 高差闭合差的计算 在相关书目 [1]中，高差闭合差可以定义为：在控制测量中，实测高差的总和与理论高差的总和之间的差值，表示为∑∑-= 理测 h h f h 。 在外业时，可用该公式检验外业的质量，判断是否结束外业。三种水准路线计算高差闭合差所用的公式如下：
怎样计算高速公路路线坐标及高程
一个excle 模板的制作 在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也 不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就 是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算 的excel模板。 首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。 首先给大家看一下此模板的界面如下： 也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了。不错，如果仅 仅是靠手动输入这样子的数字，也许只要懂一点点excle 的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许 这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。 大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数 zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家 简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个 函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么 意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我 们要K38+000~K38+200 段落内每隔20M 一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。 先在桩号那一列把K38+000~K38+200 输入进去，可不要真的把字母“K”和加号
卡西欧5800-竖曲线全线高程计算程序
竖曲线全线高程计算程序（数据库模式-精简版） 主程序：ＫSＨ Lb1 0 :＂K=＂? Ｋ:＂D=＂?D:＂H=＂?Ｈ Lb1 1:Prog＂ＫSＨ０＂ If Abs(Ｓ-Ｋ)≥Abs(Ｔ):Then Ｐ+Ｉ(Ｋ-Ｓ)→Ｕ：IfEnd If Abs(Ｓ-Ｋ) < Abs(Ｔ):Then (Ｓ-(Ｔ)-Ｋ)2/(2R)+(P+I(K-S))→Ｕ：IfEnd Lb1 2 ：Ｕ-D-Ｈ→G Locate1,1，＂Ｋ=＂: Locaet3,1，Ｋ: Locaet1,2，＂D=＂: Locaet3,2，D: Locaet1,3，＂Ｈ=＂: Locate3,3，Ｈ: Locaet1,4，＂G=＂: Locaet3,4，G◢ Goto 0 数据库Ｋ：KSＨ０ K< 0 => Stop If K>0:Then 200→S:-12000→R:45.04→P:0.01345→I:62.7→T:If End If K>262.7:Then 520→S:7000→R:46→P:0.003→I: 94.481→T :IfEnd If K> …… 输入提示： If K>前段竖曲线终点里程: Then 本段竖曲线交点里程→S: 曲率半径（凸负凹正）→R: 交点高程→P: 纵坡（上正下负，以小数表示，如0.3%为0.003）→I: 切线长→T : Ifend 符号说明： K=？: 输入待求桩号； D=？: 若计算路面高程输入0；若计算路基高程则输入路面与路基的高差； （如：路面比路基高0.5米，则输入0.5，算出结果就是路基的设计高程。） H=？: 计算设计高程则输入0；若计算高差时；则输入实测高程； G= : 若H输入0，G表示设计高程；若H输入为实测高程，G表示高差（正为填，负为挖） 注：纵坡的设计精度不够会使程序计算出的精度也不够，可以微调纵坡调整（如0.3%的0.003改为0.00301或0.002995），以每段竖曲线的前端来验证，若计算出的高程比设计的高程低，就加大纵坡比，相反则减小纵坡比。
水准仪读数及计算方法
怎样使用水准仪进行水准测量 一、水准仪的使用 水准仪的使用包括：水准仪的安置、粗平、瞄准、精平、读数五个步骤。（一）安置 安置是将仪器安装在可以伸缩的三脚架上并置于两观测点之间。首先打开三脚架并使高度适中，用目估法使架头大致水平并检查脚架是否牢固， 然后打开仪器箱，用连接螺旋将水准仪器连接在三脚架上。 （二）粗平 粗平是使仪器的视线粗略水平，利用脚螺旋置园水准气泡居于园指标圈之中。其方法如图9-10（a）所示，气泡未居而位于a处，先按箭有关当局 所指的方向用手相对转动螺旋1和2，使气泡移到b的位置，如图9-10（b）；然后再转动脚螺旋3使气泡居中。在整平过程中，气泡移动的方向与大姆指运动的方向一致。 （三）瞄准 瞄准是用望远镜准确地瞄准目标。首先是把望远镜对向远处明亮的背景，转动目镜调焦螺旋，使十字丝最清晰。再松开固定螺旋，旋转望远镜，使照门和准星的连接对准水准尺，拧紧固定螺旋。最后转动物镜对光螺旋，使水准尺的清晰地落在十字丝平面上，再转动微动螺旋，使水准尺的像靠于十字竖丝的一侧。（四）精平 精平是使望远镜的视线精确水平。微倾水准仪，在水准管上部装有一组棱镜，可将水准管气泡两端，折射到镜管旁的符合水准观察窗内，若气泡居中时，气泡两端的象将符合成一抛物线型，如图9-1（a）所示，说明视线水平。若气泡两端的象不相符合，如图9-11（b）所示，说明视线不水平。这时可用右手转动微倾螺旋使气泡两端的象完全符合，仪器便可提供一条水平视线，以满足水准测量基本原理的要求。注意气泡左半部份的移动方向，总与右手大拇指的方向不一致。（五）读数 用十字丝，截读水准尺上的读数。现在的水准仪多是倒象望远镜，读数时应有上而下进行。先估读毫米级读数，后报出全部读数。如图9-12所示，尺上的读数为1.456m。
5800计算器道路程序
卡西欧5800计算器道路程序 发布时间:2008-11-19 10:33:38 功能: 坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素) 另含两个边仰(一个横向坡,一个纵向坡)坡放样模块. 帮助文件未完成 程序浏览: 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:Stop FileName:DATLOCK 要素保护密码确定认程序 Cls:Norm 1:50→C "PASSWORDS"?I:Cls:I≠Z[C+39]=>Stop FileName: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 1 Z[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 Z[C+32]→I:"DAT1 2 3"?I:I→Z[C+32] 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值) 0→I Z[C+4]→I:"1 2 3"?I:I→Z[C+4] 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道
5800数据库型全线高程计算程序(2)
Casio5800计算器数据库型全线高程计算程序(更新2) 一、主程序： 2H-SZY Lbl 0: “HS” U：“BM-H” X：“SXG=”: U+X◢输入后视及水准点设计高程显示视线高程 Lbl 1：“QS” P:“K××+×××”K : Prog“”↙ C÷100→C: D÷100→D: R Abs(D-C)÷2→T↙ I f D>C :Then 1→W:Else -1→W:IfEnd↙ If K
水准仪测量高程的方法和步骤
水准仪测量高程的方法和步骤 2010-11-28 01:58:11| 分类：工程测量|举报|字号订阅 [教程]第二章水准测量 未知2009-12-13 16:21:06 网络 内容：理解水准测量的基本原理；掌握 DS3 型微倾式水准仪、自动安平水准仪的构造特点、水准尺和尺垫；掌握水准仪的使用及检校方法；掌握水准测量的外业实施（观测、记录和检核）及内业数据处理（高差闭合差的调整）方法；了解水准测量的注意事项、精密水准仪和电子水准仪的构造及操作方法。 重点：水准测量原理；水准测量的外业实施及内业数据处理。 难点：水准仪的检验与校正。 §2.1 高程测量（ Height Measurement ）的概念 测量地面上各点高程的工作 , 称为高程测量。高程测量根据所使用的仪器和施测方法的不同，分为： （1）水准测量 (leveling) （2）三角高程测量 (trigonometric leveling) （3）气压高程测量 (air pressure leveling) （4）GPS 测量 (GPS leveling) §2.2 水准测量原理 一、基本原理 水准测量的原理是利用水准仪提供的“水平视线”，测量两点间高差，从而由已知点高程推算出未知点高程。
a ——后视读数 A ——后视点 b ——前视读数 B ——前视点 1、A 、 B 两点间高差： 2、测得两点间高差后，若已知 A 点高程，则可得B点的高程： 。 3、视线高程： 4、转点 TP(turning point) 的概念：当地面上两点的距离较远，或两点的高差太大，放置一次仪器不能测定其高差时，就需增设若干个临时传递高程的立尺点，称为转点。 二、连续水准测量
- 卡西欧5800竖曲线全线高程计算程序.pdf
- CASIO fx5800p全线高程计算程序
- 卡西欧fx5800p计算器 坐标正反算程序
- [整理]fx-5800P坐标高程计算程序交点法.
- CASIO5800计算器测量计算程序
- Fx5800计算器公路测量程序设计2.4版(会员收费版)
- CASIO fx-5800P计算器路线坐标高程计算程序
- 5800坐标高程计算程序
- 最新CASIO5800计算器公路竖曲线全线高程计算程序汇总
- 自编CASIO FX 5800 全线道路坐标计算程序
- 道路路线设计高程(竖曲线)计算5800计算器程序
- 工程测量5800计算器教程
- CASIO 5800计算器测量计算程序
- 卡西欧fx5800p计算器 公路线路计算万能程序
- 5800数据库型全线高程计算程序(2)
- 线元法曲线任意里程中边桩坐标带高程正反算(CASIO 5800P计算器)程序(改进版)
- fx-5800P坐标高程计算程序(交点法)
- 公路路线高程、坐标计算程序(fx-5800P)说明
- 5800数据库型全线高程计算程序(2)
- 卡西欧5800计算器程序坐标正反算(含高程)