坐标正反算(带高程,可以算任何线性)
100→DimZ:”ZS=1,FS=2”?Q:”K+”?M
If Q=1:Then Goto A:Else Goto S:IfEnd
Lb1 S
“X1=”?S
“Y1=”?T
Lb1 A
If M<23285.856（第一缓和曲线起点）:Then 22396.61（起点交点）→Z:3049173.247（起点X坐标）→A:121°1°16.97°（起点方位角）→C: C:236818.413（起点Y坐标）→B:1×1020（起点半径）→R:0（右转输入0，左转输入1）→F:0（起点缓和曲线长）→L:Goto 0:IfEnd
If M<23647.847（第二缓和曲线起点或圆曲线终点）:Then 23285.856（第一缓和曲线起点）→Z:3048706.061（起点X坐标）→A:121°1°16.97°（起点方位角）→C:237595.285（起点Y坐标）→B:640（起点半径）→R:0（右转输入0，左转输入1）→F:180（缓和曲线长）→L:Goto 0:IfEnd
If M<23827.847（第二缓和曲线终点）:Then 3048473.122（起点X坐标）→A:237868.071（起点Y坐标）→B: 145°22°16.81°（线元方位角）→C :(1÷640)（上一段曲率半径）→D: 1÷(1×1020)（下一段曲率半径）→E:23647.847（第二缓和曲线起点或圆曲线终点）→Z:23827.847→H:Goto H:IfEnd
If Q=2:Then 0→U:0→O: Else “U=”?U: “O=”?O:IfEnd
M-Z→Z[12]
If√(Z[12]2) If√(Z[12]2)≥L:Then Goto 2:IfEnd Lb1 1 Z[12]- Z[12]5÷40÷R2÷L2→Z[18] (-1)F×((Z[12]3÷6÷R÷L)- Z[12] 7÷3366÷R3÷L3) →Z[19] A+ Z[18]cos(C)- Z[19]sin(C) →N B+ Z[18]sin(C)+Z[19]cos(C) →W C+90×(-1)F×Z[12]2◢(LRπ)→Z[14] If Q=2:Then Goto F:IfEnd N+Ucos(Z[14]+O) →X W+Usin(Z[14]+O) →Y “JSGC=1”?→Z[25] If Z[25]=1:Then Prog “GAOCHEN”:IfEnd “X=”:X◢ “Y=”:Y◢ Goto 3 Lb1 2 ((Z[12]-L) ÷R+L÷(2R)) ×180÷π→Z[13] Rsin(Z[13]+L÷2-L3÷240÷R2→Z[18] (-1)F×(R×(1-cos(Z[13]))+ L2÷(24R)- L4÷2688÷R3) →Z[19] A+ Z[18]cos(C)- Z[19]sin(C) →N B+ Z[18]sin(C)+Z[19]cos(C) →W If R=1×1020:Then C→Z[14]:Else C+90×(-1) F×(2Z[12]-L) ÷R ÷π→Z[14]:IfEnd If Q=2:Then Goto F:IfEnd N+Ucos((-1)F×Z[13]+C+O) →X W+Usin((-1)F×Z[13]+C+O) →Y “JSGC=1”?→Z[25] If Z[25]=1:Then Prog “GAOCHEN”:IfEnd “X=”:X◢ “Y=”:Y◢ Goto 3 Lb1 H (E-D)÷Abs(H-Z)→Z[15] Abs(M-Z)→Z[16] Z[15]×Z[16]→Z[17] (C+90×Z[16](Z[17]+2×D)÷π)→Z[14] (C+15×Z[16](Z[17]÷12+2×D)÷(2π)→Z[1] (C+45×Z[16](3×Z[17]÷12+2×D)÷(2π)→Z[2] (C+75×Z[16](5×Z[17]÷12+2×D)÷(2π)→Z[3] (C+105×Z[16](7×Z[17]÷12+2×D)÷(2π)→Z[4] (C+135×Z[16](9×Z[17]÷12+2×D)÷(2π)→Z[5] (C+165×Z[16](11×Z[17]÷12+2×D)÷(2π)→Z[6] (C+15×Z[16]( Z[17]÷6+2×D)÷π→Z[7] (C+30×Z[16](2 Z[17]÷6+2×D)÷π→Z[8] (C+45×Z[16]( 3Z[17]÷6+2×D)÷π→Z[9] (C+60×Z[16](4 Z[17]÷6+2×D)÷π→Z[10] (C+75×Z[16](5 Z[17]÷6+2×D)÷π→Z[11] A+Z[16](cos(C)+4(cos(Z[1])+cos(Z[2])+cos(Z[3]+cos(Z[4])+cos(Z[ 5])+cos(Z[6]))+2(cos(Z[7])+cos(Z[8])+cos(Z[9]+cos(Z[10])+cos(Z[ 11]))+cos(Z[14]))÷36→N B+Z[16](sin(C)+4(sin(Z[1])+sin(Z[2])+sin(Z[3]+sin(Z[4])+sin(Z[5] )+sin(Z[6]))+2(sin(Z[7])+sin(Z[8])+sin(Z[9]+ sin (Z[10])+ sin (Z[11]))+ sin (Z[14]))÷36→W If Q=2:Then Goto F: Else “U=”?U: “O=”?O:IfEnd Rec(U,Z[14]+O) N+I→X W+J→Y “JSGC=1”?→Z[25] If Z[25]=1:Then Prog “GAOCHEN”:IfEnd “X=”:X◢ “Y=”:Y◢ Goto 3 Pol(S-N,T-W) If (T-W)<0:Then –I→G:Else I→G:IfEnd If J<0:Then J+360→J:IfEnd J-Z[14] →P If P<0：Then P+360→P:IfEnd If Abs(I×cos(P))>0.005:Then M+(I×cos(P)) →M:Goto A:IfEnd “K=”:M◢ “D=”:G◢ “JSGC=1”?→Z[25] If Z[25]=1:Then Prog “GAOCHEN”:IfEnd “X=”:X◢ “Y=”:Y◢ Goto 9 Lb1 3 “CZX=”?S: “CZY=”?T: Pol(X-S,Y-T) If J≤0:Then J+360→J:IfEnd “S1=”:I◢ “A1=”:J▽DMS◢ Goto 9 子程序 If M<24317:Then 724.99→Z[21]:22900→K:-2.6÷100→Z[22]:1×1020→Z[23]:Goto N:IfEnd If M<25043:Then 689.468→Z[21]:24317→K:-2.6÷100→Z[22]:-22000→Z[23]:Goto N:IfEnd If M<25830:Then 682.571→Z[21]:25043→K:0.7÷100→Z[22]: 1×1020→Z[23]:Goto N:IfEnd Lb1 N Z[21]+(M-K) ×Z[22]-(M-K)2÷(2 ×Z[23]) →Z[24] “GC=”:Z[24]◢ “YXG=”:? →Z[26] “SR=”:? →Z[27] If Q=1:Then U→Z[29]:Else G→Z[29]:IfEnd IF Z[27]=0:Then 0→Z[29]:IfEnd Z[26]+Z[24]+√(Z[27]2-Z[29]2) →Z[28] “FY GAO=”:Z[28]◢ 说明 Z[22] 纵坡 Z[23] 半径（凹为“-”凸为“+”）Z[21] 起算点高程 fx-4800P计算器 公路竖曲线高程计算程序 （程序名：GAO CHENG-HP） Lb1 0︰｛CDAB｝︰C“K1=”︰D“H1=”︰A“PV-K0=”︰B “PV-H0=”↙ Lb1 1 ︰｛REF ｝︰R“R=”︰E“K2=”︰F“H2=”↙Lb1 2︰U =（B－D）÷（A－C）︰V =（F－B）÷（E－A）︰U ＞V =＞N = 0︰T = R ( U－V ) ÷2︰≠＞N = 1︰T = R ( V－U ) ÷2 ︰⊿G = A －T ︰Q = A ＋T ︰W = T 2÷（2 R）↙ Lb1 3︰｛K｝︰K “I.T.E.ZY-K.YZ-K=0,1”︰ K =0 =＞Goto 4 ︰⊿U “I 1”= U ▲V “I 2”= V ▲T = T ▲W “E”= W ▲G “ZY-K”= G ▲Q “YZ-K”= Q▲↙ Lb1 4︰｛M｝︰M“PK=”︰M ≤A =＞Goto 5︰⊿Goto 6 ↙Lb1 5︰M ≤G =＞H = B－U ( A－M ) ︰Goto 7 ︰≠＞Prog “H1 ”︰N = 1 =＞H = B＋X－Y ︰Goto 7︰≠＞N = 0 =＞H = B－X －Y ︰Goto 7↙ Lb1 6︰M ≥Q =＞H = B＋V ( M－A ) ︰Goto 7 ︰≠＞Prog “H2 ”︰N = 1 =＞H = B＋X＋Y ︰Goto 7︰≠＞N = 0 =＞H = B－X ＋Y ↙ Lb1 7︰H “HP”= H ▲｛L｝︰L“BZ-T=0,L”︰L = 0 =＞Goto 8 ︰⊿｛S｝︰S “IL=”︰H “HL”= H ＋S L ▲↙ 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 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 在测量岗位工作已经有三个月到时间了，三个月的时间学习和收获了许多，现对这三个月的工作学习做一下总结。 测量工作内容主要有以下两个方面：测量放线（坐标计算），高程控制。 一、测量放线 测量放线到主要技术包括坐标计算和仪器使用。坐标计算包括直线段坐标计算和曲线段坐标计算。 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 小白自学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”里，打开下，代码多吧，这就是咱们要肯的骨头。现在咱们冲呀！ 一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 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方普通砂 建筑程序歌 要想建设效果好，选择队伍要招标。 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坐标 Excel表格制作标高计算程序 新建一个Excel文件，把Sheet1表重命名为“竖曲线”，把Sheet2表重命名为“设计标高”。 （1）在竖曲线表中的A1-E1（合并）单元格输入线路名称，在A2-E2单元格中分别输入“变坡点编号”、“变坡点里程”、“变坡点标高”、“曲线半径”和“切线长”,从第三行开始输入对应数据， （2）打开VB编辑器（Alt+F11），双击工程资源管理器中“设计标高”表图标，复制以下程序到界面上，保存后返回Excel窗口，在“设计标高”表中的第一列，从第二行开始输入要计算的里程桩号，完成后，在任一单元格中双击单元格，即可看见输入结果（在第二列），本程序默认遇到桩号列空单元格时不再向下计算。 Dim K As Double Dim H As Double Dim P1 As Double, P2 As Double, P3 As Double Dim H1 As Double, H2 As Double Dim R1 As Double, R2 As Double Dim T1 As Double, T2 As Double Dim D1 As Double, D2 As Double Dim G1 As Long, G2 As Long Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next Dim i As Long Dim hang As Long Dim cell n = 0 For Each cell In Sheets("竖曲线").Range("a3:a65536") If cell.Value <> "" Then n = n + 1 Else Exit For End If Next i = 2 flag: P2 = 0 P3 = 0 hang = 3 If Sheets("设计标高").Cells(i, 1) <> "" Then K = Val(Cells(i, 1)) canshu: P1 = P2 D1 = Val(Sheets("竖曲线").Cells(hang + 1, 2)) D2 = Val(Sheets("竖曲线").Cells(hang + 2, 2)) H1 = Val(Sheets("竖曲线").Cells(hang + 1, 3)) H2 = Val(Sheets("竖曲线").Cells(hang + 2, 3)) 王天悼卡西欧5800P高程高差现场计算小程序 程序功能目的：输入水准仪现场前视读数及设计快速计算出该点的实测高程及与设计值的高差！ 程序名: 0－GCGC－JS LbI A:Cls:“HS=”?C“BM H（M）=”?G:C+G→S LbI B:Cls: “QS=”?D:If D≥0 :Then Goto D:ElseGoto C:IfEn d LbI C:M→G:Abs（D）→C:Goto A LbI D:S-D→M:Cls:“HS=”:“SXG=”: “QS =”:“H=”:Locate 6,1,C: Locate 6,2,S: Locate 6,3,D: Locate 6,4,M◢ Cls: “1 =>JiSuan,2=>QXGT”?U: U=1=>Goto E:U=2=>Goto F LbI E CLS:“H(SJ)=”？J:“QS=”: “H=”: “H(SJ)=”: “h=” Locate 6,1,D: Locate 6,2,M:Locate 6,3,J: Locate 6,4,J-M－0◢ （0可根据实际情况输入，如：垫层厚度为20cm，要求计算路基标高，则输入0.2） Goto B LbI F CLS:Prog“0-QXGT-GC”:H→J:“H=”: “h=”: “h(Z)=”: “h(Y)=”Locate 6,1,M: Locate 6,2,J-M－0:Locate 6,3,V-M－0: Locate 6,4,W-M －0◢（0可根据实际情况输入，如：垫层厚度为20cm，要求计算路基标高，则输入0.2） Goto B 符号说明： HS? 输入水准点上之后视读数 Excel标高计算程序 新建一个Excel文件，把Sheet1表重命名为“竖曲线”，把Sheet2表重命名为“设计标高”。 （1）在竖曲线表中的A1-E1（合并）单元格输入线路名称，在A2-E2单元格中分别输入“变坡点编号”、“变坡点里程”、“变坡点标高”、“曲线半径”和“切线长”,从第三行开始输入对应数据， （2）打开VB编辑器（Alt+F11），双击工程资源管理器中“设计标高”表图标，复制以下程序到界面上，保存后返回Excel窗口，在“设计标高”表中的第一列，从第二行开始输入要计算的里程桩号，完成后，在任一单元格中双击单元格，即可看见输入结果（在第二列），本程序默认遇到桩号列空单元格时不再向下计算。 Dim K As Double Dim H As Double Dim P1 As Double, P2 As Double, P3 As Double Dim H1 As Double, H2 As Double Dim R1 As Double, R2 As Double Dim T1 As Double, T2 As Double Dim D1 As Double, D2 As Double Dim G1 As Long, G2 As Long Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next Dim i As Long Dim hang As Long Dim cell n = 0 For Each cell In Sheets("竖曲线").Range("a3:a65536") If cell.Value <> "" Then n = n + 1 Else Exit For End If Next i = 2 flag: P2 = 0 P3 = 0 hang = 3 If Sheets("设计标高").Cells(i, 1) <> "" Then K = Val(Cells(i, 1)) canshu: P1 = P2 D1 = Val(Sheets("竖曲线").Cells(hang + 1, 2)) D2 = Val(Sheets("竖曲线").Cells(hang + 2, 2)) H1 = Val(Sheets("竖曲线").Cells(hang + 1, 3)) H2 = Val(Sheets("竖曲线").Cells(hang + 2, 3)) P3 = (H2 - H1) / (D2 - D1) D1 = Val(Sheets("竖曲线").Cells(hang, 2)) D2 = Val(Sheets("竖曲线").Cells(hang + 1, 2)) 高程计算程序 主程序“1” U“SXG”:Lbl 0:Fixm:｛KBX｝回车 K≤***＝＞K≥***＝＞M=***：L=***回车 终点桩号起点桩号计算公式或者固定数值 。。。逐段输入所有数据。。。 K≤***＝＞K≥***＝＞M=***：L=***回车 Prog“2”: Prog“4”:Goto 0回车 说明：M---左幅超高值计算公式 L----右幅超高值计算公式 按超高方式图输入数据 子程序“2” K≤该段竖曲线终点＝＞K≥上段竖曲线终点＝＞A=***：J=***：C=***：D=***：回车 。。。逐段输入所有数据。。。 K≤该段竖曲线终点＝＞K≥上段竖曲线终点＝＞A=***：J=***：C=***：D=***：回车 Prog“3”回车 说明：A---变坡点高程 J---变坡点桩号 C---第一纵坡 D---第二纵坡 V---竖曲线半径 按纵段面图上的竖曲线数据 子程序“3” E=C-D：T=V×Abs(E÷2):Q=J-T:S=J+T回车 E>0＝＞Y=-(K-Q)2÷(2V)：≠＝＞Y=(K-Q)2÷(2V)回车 K≤Q＝＞H=A-(J-K)C: ≠＝＞K≤S＝＞ K≥S＝＞回车 “H=”：H 说明:本程序计算中桩高程 子程序“4” B≥0＝＞W=H+LB：≠＝＞回车 “W=”：W O=W-（U-X）-0.74回车 “T=”：O×1.25 说明:本程序计算任意宽度的高程 B—计算左半幅输负数,右半幅输正数 W—任意点的路面设计高程 0.74—路面的结构层厚度,需逐层调整 T—仍需填的高度,1.25为松铺系数,根据实验室数据及现场实际情况进行调整 坐标、高程计算公式 一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 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 计算过程： 五、超高缓和过渡段的横坡计算 FX 5800p市政道路高程计算及放样程序 一、主程序 Cls:Fix 3 “CHA-XUN=0,FANG-YANG≠0”？→J “SHI-XIAN-GAO=”?Z “线路1=1，线路2=2，线路3=3” “XIAN LU”?Q Lb1 1 Q=1=>Prog“线路1” Q=2=>Prog“线路2” Q=3=>Prog“线路3” If K<0：Then“END”：Stop：Else Goto 2 Lb1 2 “PIAN-JU”?N:”JIE-GOU-HOU-DU”?E S-K→L:A-B→W:Abs(R×W÷2)→T:S-T→C:S＋T→D If K≤S:Then Goto 3:Else If K≤D:Then Goto 4:Else G-L×A →H:Goto 5IfEnd:IfEnd:IfEnd Lb1 3:If W＞0:Then G+(C-K)2÷2÷R-L×B→H:Goto 5:Else If W ﹤0:Then G-(C-K)2÷2÷R-L×B→H:Goto 5:IfEnd:IfEnd Lb1 4 If W＞0:Then G+(K-D)2÷2÷R-L×A→H:Goto 5:Else If W ﹤0:Then G-(K-D)2÷2÷R-L×A→H:Goto 5:IfEnd:IfEnd Lb1 5 H-0.015×Abs（N）-E→H “H=”:H◢ If J=0:Then Goto 1：Else Goto 6：IfEnd Lb1 6 “QIAN-SHI=”?X Z-X→S:”DU-SHU=”:S◢ “+T,-W=”:H-S◢ Goto 1 二、线路（竖曲线要素子程序） “LI-CHENG=”?K If K≤曲线段终点桩号：Then [[变坡点后段坡度，变坡点前段坡度，变坡点桩号，变坡点高程，曲线半径]]→Mat F:Prog “竖曲线要素矩阵调用程序“:Return：IfEnd 三、竖曲线要素矩阵调用程序 Mat F[1,1] →A: Mat F[1,2] →B: Mat F[1,3] →S: Mat F[1,4] →G: Mat F[1,5] →R: 注意：0.015为道路横坡，根据需要更改。 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）◢公路竖曲线高程计算程序
[整理]9860G线元法隧道(坐标正反计算、高程)计算程序
《坐标方位角及距离计算小程序》代码——Access实现
fx-5800p全线坐标正反算带高程计算程序(线元法)
CASIO fx5800p全线高程计算程序
测量坐标计算及高程计算
怎样计算高速公路路线坐标及高程
5800坐标高程计算程序
小白自学ExcelVBA道路坐标高程计算程序流程
坐标、高程计算公式
[整理]fx-5800P坐标高程计算程序交点法.
Excel表格制作标高计算程序
卡西欧5800现场高程计算程序
Excel标高计算程序
路面标高计算程序
最新坐标、高程计算公式
坐标高程计算公式
Fx5800p市政道路高程计算及放样程序
CASIO fx—5800坐标计算程序