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 ：
公用模块： 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 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
在测量岗位工作已经有三个月到时间了，三个月的时间学习和收获了许多，现对这三个月的工作学习做一下总结。 测量工作内容主要有以下两个方面：测量放线（坐标计算），高程控制。 一、测量放线 测量放线到主要技术包括坐标计算和仪器使用。坐标计算包括直线段坐标计算和曲线段坐标计算。 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
一个excle 模板的制作 在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也 不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就 是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算 的excel模板。 首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。 首先给大家看一下此模板的界面如下： 也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了。不错，如果仅 仅是靠手动输入这样子的数字，也许只要懂一点点excle 的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许 这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。 大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数 zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家 简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个 函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么 意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我 们要K38+000~K38+200 段落内每隔20M 一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。 先在桩号那一列把K38+000~K38+200 输入进去，可不要真的把字母“K”和加号
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
一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 1、多层砌体住宅： 钢筋：30KG/m2 砼：0.3～0.33m3/m2 2、多层框架： 钢筋：38～42KG/m2 砼：0.33～0.35m3/m2 3、小高层11～12层： 钢筋：50～52KG/m2 砼：0.35m3/m2 4、高层17～18层： 钢筋：54～60KG/m2 砼：0.36m3/m2 5、高层30层H=94米：钢筋：65～75KG/m2 砼：0.42～0.47m3/m2 6、高层酒店式公寓28层H=90米： 钢筋：65～70KG/m2 砼：0.38～0.42m3/m2
7、别墅：混凝土用量和用钢量介于多层砌体住宅和高层11～12层之间； 以上数据按抗震7度区规则结构设计 二、普通多层住宅楼施工预算经济指标 1、室外门窗（不包括单元门、防盗门）面积占建筑面积0.20～0.24 2、模版面积占建筑面积2.2左右 3、室外抹灰面积占建筑面积0.4左右 4、室内抹灰面积占建筑面积3.8 三、施工功效 1、一个抹灰工一天抹灰在35平米 2、一个砖工一天砌红砖1000～1800块 3、一个砖工一天砌空心砖800～1000块 4、瓷砖15平米 5、刮大白第一遍300平米/天，第二遍180平米/天，第三遍压光90平米/天 四、基础数据 1、混凝土重量2500KG/m3 2、钢筋每延米重量0.00617×d×d 3、干砂子重量1500KG/m3，湿砂重量1700KG/m3 4、石子重量2200KG/m3 5、一立方米红砖525块左右（分墙厚） 6、一立方米空心砖175块左右 7、筛一方干净砂需1.3方普通砂 建筑程序歌 要想建设效果好，选择队伍要招标。
小白自学ExcelVBA道路坐标高程计算程序流程 1声明 1.1 本人是个工作时间不长测量施工员。 1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的…… 1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。 1.4 谷歌、度娘，是咱的好帮手。 1.5 仰望的存在，神一般的存在，无私的化身！ 道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077） 曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316） 陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！ 1.6 道路中边桩坐标计算程序120424.xls代码获取。 王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！ 2 代码理解ing… 我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。现在咱们冲呀！
CASIO fx-5800P单交点通用型曲线坐标高程计算程序 一、说明： 本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。 二、内容： 1．PM5-3 XYZJS（主程序） “SINGLE BASIC TYPE CURVE”◢ “METHOD OF COORDINATE PM5-3”◢ Deg:ClrStat:FreqOn:Fix 3 40→DimZ “INPUT(0) Or DATA(Else)”?N “FUNCTION”?P Prog “SUB5-35” If Z[30]<0:Then -1→Z[20]:Else 1→Z[20]:IfEnd Abs(Z[30])→D Pol(Z[26]-Z[28],Z[27]-Z[29]):Cls If J<0: Then J+360→Z[11]:Else J→Z[11]:IfEnd 计算ZH→JD方位角 Z[11]+Z[30]+180→Z[16] 计算HZ→JD方位角 If Z[16]>360:Then Z[16]-360→Z[12]:Else Z[16]→Z[12]:IfEnd If Z[12]>180:Then Z[12]-180→Z[23]:Else Z[12]+180→Z[23]:IfEnd计算JD→HZ方位角 S2÷（24R）-S4÷(2688R3)→Z[1] 计算第一缓和曲线内移值 0.5S-S3÷(240R2)+S5÷(34560R4)→Z[2] 计算第一缓和曲线切线增长值 T2÷(24R)-T4÷(2688R3)→Z[3] 计算第二缓和曲线内移值 0.5T-T3÷(240R2)+T5÷(34560R4)→Z[4] 计算第二缓和曲线切线增长值 (R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2]→Z[5] 计算第一切线长 (R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4]→Z[6] 计算第二切线长 90S÷(πR)→Z[7]:90T÷(πR)→Z[8] 计算第一、二缓和曲线偏角πR(D-Z[7]-Z[8])÷180→Z[9] 计算圆曲线长度 S+T+Z[9]→Z[10] 计算曲线总长度 Z[25]-Z[5]→List X[1] 计算直缓点桩号 1→K:Prog “SUB5-37” List X[1]+S→List X[2]:List X[2]+Z[9]→List X[3] 计算缓圆点、圆缓点桩号 Z[26]-Z[5]cos(Z[11])→List Y[1]:Z[27]-Z[5]sin(Z[11])→List Freq[1] If S≠0:Then“ZH PEG(m)=”:List X[1]◢显示直缓点桩号 Else “ZY PEG(m)=”:List X[1]◢显示直圆点桩号 IfEnd “X(m)=”:List Y[1]◢显示直缓(圆)点X坐标 “Y(m)=”:List Freq[1]◢显示直缓(圆)点Y坐标
坐标、高程计算公式
一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 1、多层砌体住宅： 钢筋：30KG/m2 砼：0.3～0.33m3/m2 2、多层框架： 钢筋：38～42KG/m2 砼：0.33～0.35m3/m2 3、小高层11～12层： 钢筋：50～52KG/m2 砼：0.35m3/m2 4、高层17～18层： 钢筋：54～60KG/m2 砼：0.36m3/m2 5、高层30层H=94米：钢筋：65～75KG/m2 砼：0.42～0.47m3/m2 6、高层酒店式公寓28层H=90米： 钢筋：65～70KG/m2
砼：0.38～0.42m3/m2 7、别墅：混凝土用量和用钢量介于多层砌体住宅和高层11～12层之间； 以上数据按抗震7度区规则结构设计 二、普通多层住宅楼施工预算经济指标 1、室外门窗（不包括单元门、防盗门）面积占建筑面积0.20～0.24 2、模版面积占建筑面积2.2左右 3、室外抹灰面积占建筑面积0.4左右 4、室内抹灰面积占建筑面积3.8 三、施工功效 1、一个抹灰工一天抹灰在35平米 2、一个砖工一天砌红砖1000～1800块 3、一个砖工一天砌空心砖800～1000块 4、瓷砖15平米 5、刮大白第一遍300平米/天，第二遍180平米/天，第三遍压光90平米/天 四、基础数据 1、混凝土重量2500KG/m3 2、钢筋每延米重量0.00617×d×d 3、干砂子重量1500KG/m3，湿砂重量1700KG/m3 4、石子重量2200KG/m3 5、一立方米红砖525块左右（分墙厚） 6、一立方米空心砖175块左右 7、筛一方干净砂需1.3方普通砂
一、缓和曲线上的点坐标计算 已知：①缓和曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：xZ，yZ 计算过程： 说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当计算第二缓和曲线上的点坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180°
K值与计算第一缓和曲线时相反 xZ，yZ为点HZ的坐标 切线角计算公式： 二、圆曲线上的点坐标计算 已知：①圆曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：xZ，yZ 计算过程：
说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当只知道HZ点的坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与知道ZH点坐标时相反 xZ，yZ为点HZ的坐标 三、曲线要素计算公式
公式中各符号说明： l——任意点到起点的曲线长度（或缓曲上任意点到缓曲起点的长度）l1——第一缓和曲线长度 l2——第二缓和曲线长度 l0——对应的缓和曲线长度 R——圆曲线半径 R1——曲线起点处的半径 R2——曲线终点处的半径
P1——曲线起点处的曲率 P2——曲线终点处的曲率 α——曲线转角值 四、竖曲线上高程计算 已知：①第一坡度：i1(上坡为“＋”，下坡为“－”) ②第二坡度：i2(上坡为“＋”，下坡为“－”) ③变坡点桩号：SZ ④变坡点高程：HZ ⑤竖曲线的切线长度：T ⑥待求点桩号：S 计算过程： 五、超高缓和过渡段的横坡计算
CASIO f x－5800计算程序 一）直线中桩、边桩坐标计算（ZXZBJS） ？V：？X：？Y：？C：？Z↙ Lbl 1↙ ？N：？L：？R↙ “Xp=”：X+（N-V）cos（C）→E◢ “Yp=”：Y+（N-V）sin（C）→F◢ “XL=”：E+Lcos（C+180+Z）◢ “YL=”：F+Lsin（C+180+Z）◢ “XR=”：E+Rcos（C+Z）◢ “YR=”：F+Rsin（C+Z）◢ Goto 1↙ V: 起点桩号 X：起点X坐标 Y: 起点Y坐标 C: 起点至JD方位角（正反算一样） N：要计算点桩号 L：左边距 R：右边距 Z:与中线前进方向的夹角(90°),反算也是90° 二）圆曲线中桩、边桩坐标计算（YQZBJS） ？V：？X：？Y：？C：？Q：？D：？Z↙ Lbl 1↙ ？N：？L：？R↙ Abs（N-V）→S↙ 90S÷∏÷D→B↙ 2Dsin(B) →T↙ If Q=1: Then Goto 2: If End↙ If Q=2: Then Goto 3: If End↙ Lbl 2↙ C+2B→A↙ “Xp=”：X+Tcos（C+B）→E◢ “Yp=”：Y+Tsin（C+B）→F◢ “XL=”：E+Lcos（A+180+Z）◢ “YL=”：F+Lsin（A+180+Z）◢ “XR=”：E+Rcos（A+Z）◢ “YR=”：F+Rsin（A+Z）◢ Goto 1↙ Lbl 3↙ C-2B→A↙ “Xp=”：X+Tcos（C-B）→E◢ “Yp=”：Y+Tsin（C-B）→F◢ “XL=”：E+Lcos（A+180+Z）◢ “YL=”：F+Lsin（A+180+Z）◢
一个excle模板的制作 在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算的excel模板。 首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。 首先给大家看一下此模板的界面如下： 也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了。不错，如果仅仅是靠手动输入这样子的数字，也许只要懂一点点excle的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。 大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我们要K38+000~K38+200段落内每隔20M 一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大
家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。 先在桩号那一列把K38+000~K38+200输入进去，可不要真的把字母“K”和加号“+”给输进去，只用输入纯数字就行了，否则计算会出错，之所以在模板里显示的是那样子，只不过是自定义的单元格式而已。 第二步剩下的仅仅就是拖动公式了，后面的都是公式，所以可以一起拖下来，先选定后面的所有单元格，然后向下直接拖动至最后，那么你需要的数据就全部出来了。 呵呵，是不是很神奇！并不是只能计算整数桩号数据的，是任意桩号的，也就是说桩号K38+000和K38+111.232计算出来的结果的精度是一样的。这个模板可以让你计算任意你想要的坐标，比如其演化计算出来的桥梁墩柱坐标，涵洞坐标等等。 给大家示范一下计算涵洞的坐标。假设某涵洞桩号是K38+433.245，左边据中桩距离是23.45M，右边距中桩距离是33.56M，基础宽度是6M，那么我要用这个模板计算出涵洞基础4个拐点的坐标。在这里我用此模板的一个空白的工作表来给大家演示一下。 上面这张表格现在大家都会做了吧，只不过多了一个自定义函数jfw （），它也是以桩号为自变量的一个函数，其得出的值是所在路线的某桩号的方位角。好了，有了中桩坐标和方位角，而且距离我们已经知道了，那么各边桩的坐标就可以计算出来了，x左=中桩坐标x+距离左X(乘号)cos （方位角—pi/2），y左=中桩坐标y+距离左X(乘号)sin（方位角—pi/2）。至于右边坐标公式仅仅是把那里面角度的减号改成加号而已。那么就可以得出来下面的表格了，离那4个拐点坐标也就越来越近了。
CASIO fx—5800P计算器 路线坐标计算程序（单个交点） 主程序名CALXY （计算中桩、边桩坐标） Lbl 1：“ZZ”? →Z[27] ：“D(-+m)”? →D：If D≠0 ：Then “∠(DMS)”? →V：Ifend』 If Z[27]≤Z[17]：Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos( F+V)：“X=”：Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin( F+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[17] And Z[27]≤Z[20]：Then Z[27] —Z[17] →L：Prog “HHXY”：Z[18] +I Cos( F+ JH）+D Cos( F+WH+V)：“X=”：Ans▲：Z[19] +I Sin(F+ JH）+D Sin( F+WH+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[20] And Z[27]≤Z[24] —Z[6]：Then Z[27] —Z[20] →L：Prog “YUXY”：Z[21] +I Cos( Z[23]+ JH）+D Cos( Z[23]+WH+V)：“X=”：Ans▲：Z[22] +I Sin(Z[23]+ JH）+D Sin( Z[23]+WH+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[24] —Z[6] And Z[27]≤Z[24]：Then Z[24] —Z[27] →L：Prog “HHXY”：Z[25] +I Cos( C—JH）—D Cos( C—WH+V)：“X=”：Ans▲：Z[26] +I Sin(C—JH）—D Sin( C—WH+V)：“Y=”：Ans▲：Ifend』 If Z[27] ＞Z[24]：Then Z[25] —(Z[27] —Z[24]) Cos( C )—D Cos( C+V)：“X=”：Ans▲Z[26] —(Z[27] —Z[24]) Sin( C —D Sin( C+V)：“Y=”：Ans▲：Ifend』 Goto 1 子程序名JD （输入曲线参数，计算曲线要素） 30→Dim Z：Fix 5：“JD”? →Z[1] ：“XJD”? →Z[2] ：“YJD”? →Z[3]：“F0(DMS)”? →F：“A（-+ DMS）”？→Z[4]：“R”? →R：“LH1”? →Z[5]：“LH2”? →Z[6]：√￣(Z[4]2)→A：Int(Z[4] ÷A)→H』 Z[5] →S：Prog “PQ”：Q →Z[7]：P→Z[8]：B →Z[9]：R →S：Prog “PQ”：Q →
功能: 坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素) 另含两个边仰(一个横向坡,一个纵向坡)坡放样模块. 帮助文件未完成 程序浏览: 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
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+16U→Ｏ： 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 ：L+P→L：If Abs P≥0.001：Then GOTO 0 ：Else GOTO 1： IfEnd ： Lbl 1： (R-Y)cosO-(M-X) sinO→Q 4. 曲线元要素数据库：ZBQXYS