Excel公式坐标正反算程序.超哥xls

1.坐标反算(ZBFS)主程序XY：N=X: T=Y:Pros"DAT1"W"X0"：S"Y0"：O"K0"：G"F0"：H"KN"：P"R0"：R"RN"：Q”Q(-Z +Y)” :D=(P-R)÷(2 Abs (H-O)PR):Z=Abs((T-S)cos(G-90)－(N-W)sin(G-90))：L=0：M”M(YJJ)”=90: （注：此处若不给M赋值，则可计算斜交点）Lbl 0：Prog " SUB1 "：L=(T-Y)cos(G-90+QZ(1÷P+ZD)×180÷π)-(N-X)sin(G-90+QZ(1÷P +ZD) ×180÷π)：AbsL<1E-6=>Goto1：≠>Z=Z+L：Goto 0Δ←┘Lbl 1：L=0：Prog " SUB1 "：L=(T-Y)÷sinF:”K=”:K=O+Z◢”L=”:L=L2.正算主程序 ( ZBZS)W"X0"：S"Y0"：O"K0"：G"F0"：H"KN"：P"R0"：R"RN"：Q”Q(-Z +Y)” :D=(P-R)÷(2Abs(H-O)PR)：L”L(-Z +Y)” :M”ANG”=90:（注：此处若不给M赋值，则可计算斜交点）Z=Abs(K-O)：Prog"SUB1"：”FWJ=”:F=F-M:”X=”:X=X◢”Y=”:Y=Y3.正算子程序(SUB1)Defm4:A=0.1184634425:B=0.2393143352:Z[4]=0.2844444444:C=0.046910 0770:E=0.2307653449:Z[1]=0.5:X=W+Z(Acos(G+QCZ(1÷P+CZD)×180÷π)+Bcos(G+QEZ(1÷P+EZD)×180÷π)+Z[4]cos(G+QZ[1]Z(1÷P+Z[1]ZD)×180÷π)+Bcos(G+Q(1-E)Z(1÷P+(1-E)Z D)×180÷π)+Acos(G+Q (1-C)Z(1÷P+(1-C)ZD) ×180÷π)):Y=S+Z(Asin(G+QCZ(1÷P+CZD)×180÷π)+Bsin(G+QEZ(1÷P+EZD)×180÷π) +Z[4]sin(G+QZ[1]Z(1÷P+Z[1]ZD)×180÷π)+Bsin(G+Q(1-E)Z(1÷P+(1-E)ZD)×180÷π)+Asin(G+Q (1-C)Z(1÷P+(1-C)ZD) ×180÷π))：F=G+QZ(1÷P+ZD) ×180÷π+M：X=X+LcosF：Y=Y+LsinF4.曲线元要素数据库：DAT-01K≥O=>K＜H=> W=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K＜H=> W=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K＜H=> W=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K＜H=> W=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←2、输入与显示说明（1）输入部分：X0 ？线元起点的X坐标Y0 ？线元起点的Y坐标K0 ？线元起点里程F0 ？线元起点切线方位角KN ？线元终点里程R0 ？线元起点曲率半径RN ？线元止点曲率半径Q ？线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0)K ？正算时所求点的里程L ？正算时所求点距中线的边距(左侧取负值，右侧取正值，在中线上取零) ANG？正算边桩时左右边桩连线与线路中线的右交角X ？反算时所求点的X坐标Y ？反算时所求点的Y坐标M ? 斜交右角线元要素数据库中K≥O=>K＜H=>中的O和H分别为该段线元起点里程和终点里程A、B、Z[4] 是Gauss-Legendre求积公式中的插值系数C 、E、Z[1] 是Gauss-Legendre求积公式中的求积节点（2）显示部分：X=×××正算时，计算得出的所求点的X坐标Y=×××正算时，计算得出的所求点的Y坐标K=×××反算时，计算得出的所求点的里程L=×××反算时，计算得出的所求点的边距。

用Excel进行坐标反算
坐标反算要求根据两个已知点的高斯平面坐标，计算两点间的距离和坐标方位角，方位角的计算结果以度分秒为单位。

具体计算过程如下：
第一步，设计表格。

在Excel表格的前三行，按照上图所示的格式设计表头使各项目列宽合适，文字居中。

第二步，输入起算数据。

在A4单元格输入边名，在B4、C4单元格输入起点的X、Y坐标，在D4、E4输入终点的X、Y坐标。

第三步，计算坐标增量。

在F4单元格输入公式“=D4-B4”，在G4单元格输入公式“=E4-C4”。

第四步，计算距离。

在H4单元格输入公式“=SQRT(SUMSQ(F4,G4))”。

第五步，计算坐标方位角。

为了简化计算，避免嵌套的逻辑判断，这里采用坐标方位角的通用计算公式，在I4单元格输入公式“=PI()-SIGN(G4)*PI()*0.5-ATAN(F4/G4)”，得到以弧度为单位的坐标方位角。

第六步，将坐标方位角转换为以度、分、秒为单位。

在J4单元格输入公式
“=DEGREES(I4)”，先将坐标方位角的单位转换为十进制度，然后在K4单元格输入公式“=INT(J4)”，在L4单元格输入公式“=INT((J4-K4)*60)”，在M4单元格输入公式“=((J4-K4)*60-L4)*60”，分别计算出坐标方位角的度、分、秒值；
如果需要计算其他边的坐标方位角，只需要把第4行拷贝粘贴到下一行，修改边名和两个端点的坐标即可计算坐标方位角，不需要再次输入公式。

excel坐标方位角计算公式Excel是一款功能强大的电子表格软件，广泛应用于数据分析、图表制作等领域。

在Excel中，我们经常需要计算两个单元格之间的方位角，以便确定它们之间的相对位置。

本文将介绍如何使用Excel 坐标方位角计算公式来实现这一功能。

我们需要明确什么是坐标方位角。

在平面直角坐标系中，坐标方位角是一个点相对于原点的方向角度，通常用角度的方式表示。

坐标方位角的计算可以根据两个点的坐标值来进行。

在Excel中，我们可以使用以下公式来计算两个单元格之间的方位角：=DEGREES(ATAN2(Y2-Y1,X2-X1))其中，X1和Y1分别表示起始单元格的横坐标和纵坐标，X2和Y2分别表示目标单元格的横坐标和纵坐标。

这个公式通过求反正切函数来计算两个点之间的方位角，并将结果转换为角度制。

为了更好地理解这个公式，我们可以通过一个简单的例子来进行说明。

假设我们有一个Excel表格，其中A1单元格的坐标为(0,0)，B1单元格的坐标为(3,4)。

我们希望计算出A1单元格到B1单元格的方位角。

我们将A1单元格的横坐标和纵坐标分别代入公式中，得到X1=0，Y1=0。

然后，将B1单元格的横坐标和纵坐标分别代入公式中，得到X2=3，Y2=4。

将这些值代入公式中进行计算，得到：=DEGREES(ATAN2(4-0,3-0))=DEGREES(ATAN2(4,3))=DEGREES(0.93)≈ 53.13°因此，A1单元格到B1单元格的方位角约为53.13°。

除了上述公式，我们还可以使用其他方法来计算Excel坐标之间的方位角。

例如，可以使用Excel的内置函数来实现这一功能。

具体方法如下：1. 在Excel表格中选择一个空白单元格，作为方位角的输出单元格；2. 输入以下公式，并按下回车键：=DEGREES(ATAN2(B1-A1,A1-A1))其中，B1和A1分别表示目标单元格和起始单元格的单元格引用。

第六章→第三节→导线测量内业计算导线计算的目的是要计算出导线点的坐标，计算导线测量的精度是否满足要求。

首先要查实起算点的坐标、起始边的方位角，校核外业观测资料，确保外业资料的计算正确、合格无误。

一、坐标正算与坐标反算1、坐标正算已知点的坐标、边的方位角、两点间的水平距离，计算待定点的坐标，称为坐标正算。

如图6-6 所示，点的坐标可由下式计算：式中、为两导线点坐标之差，称为坐标增量，即：【例题6-1】已知点A坐标，=1000、=1000、方位角=35°17＇36.5"，两点水平距离=200.416，计算点的坐标？35o17＇36.5"=1163.58035o17＇36.5"=1115.7932、坐标反算已知两点的坐标，计算两点的水平距离与坐标方位角，称为坐标反算。

如图6-6可知，由下式计算水平距离与坐标方位角。

（6-3）（6-4）式中反正切函数的值域是-90°～+90°，而坐标方位角为0°～360°，因此坐标方位角的值，可根据、的正负号所在象限，将反正切角值换算为坐标方位角。

【例题6-2】=3712232.528、=523620.436、=3712227.860、=523611.598，计算坐标方位角计算坐标方位角、水平距离。

=62°09＇29.4"+180°=242°09＇29.4"注意：一条直线有两个方向，存在两个方位角，式中：、的计算是过A点坐标纵轴至直线的坐标方位角，若所求坐标方位角为，则应是A点坐标减点坐标。

坐标正算与反算，可以利用普通科学电子计算器的极坐标和直角坐标相互转换功能计算，普通科学电子计算器的类型比较多，操作方法不相同，下面介绍一种方法。

【例题6-3】坐标反算，已知=2365.16、=1181.77、=1771.03、=1719.24，试计算坐标方位角、水平距离。

坐标反算excel公式
坐标反算是指根据已知的点的经纬度坐标和大地水准面的参数，计算出该点的投影坐标或者平面坐标。

在Excel中进行坐标反算可
以通过一系列复杂的数学公式来实现。

首先，需要明确采用的坐标
系和大地水准面参数，例如WGS 84坐标系和椭球体参数。

然后，可
以使用以下公式进行坐标反算：
1. 经纬度转换为弧度：
经度弧度 = 经度(π/180)。

纬度弧度 = 纬度(π/180)。

2. 计算子午线曲率半径：
N = a / sqrt(1 e^2 sin^2(纬度弧度))。

3. 计算卯酉圈曲率半径：
M = a (1 e^2) / (1 e^2 sin^2(纬度弧度)^(3/2))。

4. 计算目标点的投影坐标：
X = N cos(纬度弧度) cos(经度弧度)。

Y = N cos(纬度弧度) sin(经度弧度)。

这些公式涉及到很多数学运算和常数，需要在Excel中逐步计算，并且需要确保输入的经纬度和参数的准确性。

另外，也可以考虑使用专业的地理信息系统（GIS）软件来进行坐标反算，这些软件通常提供了更为便捷和准确的工具和方法来进行坐标反算。

坐标正算、反算计算方法及在Excel 中的VBA 编程测量中经常需要将某点相对坐标系坐标转换成线路的里程、偏距，或根据线路某一里程偏距计算出对应的相对坐标系坐标，为寻求一种快速简单高效的计算方法，本文对线路正算反算的原理进行了阐述，并结合Excel VBA 编程，将编程和Excel 的拖拽的功能相结合，编制出实用计算表，特别适用于需要大量计算边桩、围护桩的情况。

关键词：坐标方位角坐标正算坐标反算 V AB 编程循环迭代直接算法一、坐标方位角的反算1.坐标方位角反算如图1所示，已知点A 、B 的坐标，求直线AB坐标方位角α。

图1坐标方位角反算直线AB 之间的坐标增量：AB B AAB B Ax x x y y y ∆=−∆=−当0,0AB AB x y ∆>∆>时，角α位于第一象限角：arctan ABABy x α∆=∆当0,0AB AB x y ∆<∆>时，角α位于第二象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆<∆<时，角α位于第三象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆>∆<时，角α位于第二象限角：arctan360AB AB y x α∆=+°∆2.坐标方位角反算的VBA 编程可用VBA 将上述过程定义为一个名为angel()的函数，代码如下：Function angel(x0As Double, y0 As Double, x1 As Double, y1 As Double) As Double dx = x1- x0dy = y1- y0If dx > 0 And dy > 0 Thenangel = Atn(dy / dx)End IfIf dx < 0 And dy > 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx < 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx > 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979 * 2End IfEnd Function二、直线段坐标正算与反算1.直线段正算图2直线段计算已知HZ 点坐标（x1,y1）、里程N HZ ，ZH 点坐标（x2,y2），正算时已知P 点对应的中桩里程Np 和偏距e （规定沿着线路前进方向，左边偏距为负，右边偏距为正），Np>N HZ ，求P 点对应的坐标。

在excel表格中用公式计算测量数据用坐标计算方位角公式(格式为：“度.分秒”)：=180+N(TRUNC(ATAN((I5-I4)/(H5-H4))*180/PI()))+N(TRUNC((ATAN((I5-I4)/(H 5-H4))*180/PI()-TRUNC(ATAN((I5-I4)/(H5-H4))*180/PI()))*60))/100+ROUND(((A TAN((I5-I4)/(H5-H4))*180/PI()-TRUNC(ATAN((I5-I4)/(H5-H4))*180/PI()))*60-TR UNC((ATAN((I5-I4)/(H5-H4))*180/PI()-TRUNC(ATAN((I5-I4)/(H5-H4))*180/PI())) *60))*60,0)/10000“度.分秒”转换为“度”的计算公式：=INT(B6)+(INT(MOD(B6,1)*100)/60)+(MOD(B6,0.01)*10000/3600)“度”转换为“度.分秒”的计算公式：=INT(C6)+INT((C6-INT(C6))*60)/100+((C6-INT(C6))*60- INT((C6-INT(C6))*60))*60/10000坐标增量计算：△x=F6*COS(D6*PI()/180)△y=F6*SIN(D6*PI()/180)两坐标点间长度计算：=SQRT((C5-C4)*(C5-C4)+(B5-B4)*(B5-B4))“度”转换为“弧度”的计算公式：=RADIANS(d5) or =d5*pi()/180“弧度”转换为“度”的计算公式：=d5*180/pi()求方位角公式度格式：=(PI()*(1 - SIGN(B3-$B$1) / 2) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI()Excel 中求方位角公式：a1,b1放起始点坐标 a3,b3放终点坐标。

利用EXCEL行高斯投影正反算————————————————————————————————作者：————————————————————————————————日期：利用EXCEL 进行高斯投影正反算在工作中常需要将大量经纬度转换成高斯平面坐标、将高斯平面坐标转换成经纬度、将6度带坐标转换成3度带坐标等坐标转换问题。

面对这些问题，我们希望能找个坐标转换软件进行批量转换从而降低劳动强度、提高工作效率。

然而我们通常用的软件对批量转换往往有一定的限制而且对转换数据的格式要求比较严格不容易掌握和使用。

实际上我们通常用的办公软件EXCEL 就可以完成这项工作。

EXCEL 办公软件操作简单方便、易于掌握。

想要用EXCEL 实现正反算，我们必须知道高斯投影正反算数学公式。

（高斯投影正算实际就是把大地坐标通过高斯投影数学模型转换为平面坐标，反之则为高斯投影反算）下面就是高斯投影公式：正算公式："2322"4""4sin cos sin cos (59)22N N x X B Bl B B t l ηρρ=++-+ "322"3524"5""3"5cos cos (1)cos (118)6120NN N y X Bl B t l B t t l ηρρρ=++-++-+反算公式：23222424635(539)(619045)224720f f f f f f f f f f ff f f ft t N B B y t t y t t y M N M N M N ηη=-+-+---+ 22324535111(12)(52824)cos 6cos 120cos f f f f f f f f f fl y t y t t y N B N B N B η=-+++++ 我们只需要把上述两个公式用EXCEL 函数写于EXCEL 表格中就可以进行计算了。

计算坐标需要"桥型布置图"、"桥台结构图"、"桥墩结构图"、"点位图"、"纵断面".
先点开"桥型布置图","纵断面",找出台帽前墙位置与纵断线上已知一点的距离,例：
量取已知点距台帽前墙距离,如：1.978m
再点开"点位图",找到已知点投影到拟定桥梁中线的位置.
再在该位置向路线方向移动1.978m.
以该点为基点,并在CAD中点出该点的坐标,记录下来.
但是注意CAD的坐标和测量的坐标X、Y是相反的.记下坐标X:6645.8554 ;Y:4103.3546.
再查看桥型布置图,查看两台帽前墙间的距离,13.04m
再在点位图中把之前的基点移动13.04m,并记录下在CAD中的坐标.
如：X:6658.8019,Y:4101.7962
再打开设计完的"桥台结构图",算出台帽至基础前点的平面距离2.7m,并记录下来.
再查看基础的侧面长度,如6.7m,和基础的横向宽度7.0m,并记录下来.
OK有这些记录下来的数据就可以通过EXCEL计算基础坐标了.
方法:
打开excel并把记录下的数据填如表中：
黄色的框是要填入的数据.
注意：EXCEL计算1#台填入的"间距"等于13.04减去1#台台帽前墙距基础前点的平面距离. 如果是斜交的桥梁,输入的交角是路线方向逆时针旋转至桥台前墙的角度.如图中斜交60度,就输入60度.
1 / 1。