测 量 程序集(方位角计算)
常用CASIO4800计算程序集
FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐标方位角，运行一次本程序只需输入一次已知数据。
显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。
接下来计算器显示的T是测站到前视的坐标方位角，按+ 可将显示的十进制角度换算为度分秒。
如此继续可计算出所有支导线未知坐标。
2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢I“S=”◢Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。
3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZB JS）程序清单：C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}↲T=E+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=C+Scos T◢Y=D+Ssin T◢Goto 1程序运行说明：变量输入参照ZBJS程序。
4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢I“S=” ◢Lb1 1:{SA}↲T=F+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2↲Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3↲Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+ 360⊿H=J：H“TH-0=”◢I“S-H=”◢Goto 3↲Lb1 3: X=F：Y=G：T=H ：V=1=> Goto 4:≠> Goto 5↲Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 4Lb1 5：{AS}:A:ST=H+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=F+Scos T◢Y=G+Ssin T◢Goto 56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}↲Pol(X-F，Y-G) ↲J〈0 =〉J=J+360⊿A=J-H↲A〈0 =〉A=A+360⊿A“A=” ◢I“S=” ◢Goto 1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。
卡西欧易学易用程序集
1、极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名G1：
G1说明（从1到7，以下程序均为上面是程序，下面是说明）：
2、已知边长方位角计算坐标程序，程序名G2：
3、建筑轴线偏移程序(或扩大基础程序)。程序名G3
4、测角前方交会坐标计算，程序名G4
5、测角后方交会坐标计算，程序名G5
6、坐标转换计算程序，程序名G6
7、直线中边桩坐标计算程序,程序名G7
8、圆曲线中边桩坐标计算程序,程序名G8
9、完整缓和曲线中边桩坐标计算程序,程序名G9
测量方位角计算公式
坐标 增量(米) X Y
改 正 后 坐标(米) 增量(米)
点 号
X Y X Y
A 1
2 3 4 A
48 43 18
+12
97 03 00 97 03 12
+12
131 40 06
105 17 06 105 17 18
101
+12 46 24
101
206
46 36
22
48
+12 123 30 06
B 5 6 7 8 C
180 178 193 181 204 180
+8 13 36 180
+8 22 30 178
+8 44 00 193
13
+8 00
181
54
+8 30
204
32
+8 48
180
13 22 44 13 54 32
44 38 08 08 38 56
43 03 28 44 40 50 30 56 42 29 43 34
说明：与闭合导线基本相同，以下是两者的不同点:
1、角度闭合差的分配与调整 方法1：
（1）计算方位角闭合差： f 终计算 终已知
（2）满足精度要求，若观测角为左角，则将fα反符号 平均分配到各观测角上；若观测角为右角，则将fα同符 号平均分配到各观测角上。
方法2(*)：
（1）计算角度闭合差：
f 测 理
其中， 理的计算公式如下：
左角：终 始 理(左) n 180 理(左) 终 始 n 180
右角：终 始 理(右) n 180 理(右) 始 终 n 180
（2）满足精度要求，将fβ反符号平均分配到各观测角上。
测量方位角计算公式
y
2 AB
tg AB
y AB x AB
αAB的具体计算方法如下：
（1）计算：xAB xB xA yAB yB yA
X
YAB
XAB AB
DAB
A
0
B
y
（2）计算： AB锐
arctg
y AB x AB
（3）根据ΔXAB、ΔYAB的正负号判断αAB所在的象限。
1、幸福的背后 2、吐鲁番的葡萄熟了
说明：与闭合导线基本相同，以下是两者的不同点:
1、角度闭合差的分配与调整 方法1：
（1）计算方位角闭合差： f 终计算 终已知
（2）满足精度要求，若观测角为左角，则将fα反符号 平均分配到各观测角上；若观测角为右角，则将fα同符 号平均分配到各观测角上。
方法2(*)：
（1）计算角度闭合差：
（三）闭合导线平差计算步骤
1、绘制计算草图，在图上填写已知数据和观测数据。 2、角度闭合差(angle closing error)的计算与调整。
（1）计算角度闭合差：
1
=#34; n
1
970300
484318 A1
A
XA=536.27m
A
1122224
讲题:导线测量内业计算
内容提要:
四、导线的内业计算
四．导线的内业计算——计算各导线点的坐标
（一）几个基本公式 1、坐标方位角(grid bearing)的推算
前 后 左 180
或： 前 后 右 180
注意：若计算出的方位角>360°，则减去360°； 若为负值，则加上360°。
-2 +2
545.62 490.05
2
-97.04
卡西欧4800P计算器测量程序集共10页
福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800p=”：C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“JμoQ=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大=置镜点到待求点距离LμoD左、右边距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：=”：K“D=”：M“Jμo=”←L“LμoU=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长=置镜点到待求点距离LμoD左、右待求距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==> C≥θ==> A=A：≠=> C<θ==> A=A＋18θ⊿⊿≠=> B<θ==> C≥θ==> A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。
测量方位角计算公式市公开课一等奖省赛课获奖PPT课件
124.08 164.10 208.53 94.18 147.44
-2 +2
1230.88 673.45 B
+90.66 +84.71 +90.64 +84.73
5 -2
+116.68
6 -2
+3 +115.39
+3
+116.66
+115.42
1321.52 1438.18
758.18 873.60
D
-9 +12
1119 00 24 1119 01 12
738.33
+614.90
+614.81+366.53 +366.41
+614.81
+366.53
理=11190112 = 测理=48 容=406 =98
xy
= +0.09 =0.12
= x²+ y²=0.150
K = D
=
1 4900
<
1
第19页
例题：
用EXCEL程序进行附合导线计算
第20页
2
YA=328.74m
1233006
4 1014624
4
3
3第10页
1
（1）计算坐标增量闭合差：
f x x测 x理 x测
1
970300
f y y测 y理 y测
484318 A1
➢导线全长闭合差:
A
XA=536.27m YA=328.74m
A
1122224
2
1051706
2
1233006
测量方位角计算公式VB源代码
测量方位角计算公式VB源代码角度化弧度Public Function Radian(a As Double) As DoubleDim Ra As DoubleDim c As DoubleDim FS As DoubleDim Ib As IntegerDim Ic As IntegerRa = pi / 180#Ib = Int(a)c = (a - Ib) * 100#Ic = Int(c)FS = (c - Ic) * 100#Radian = (Ib + Ic / 60# + FS / 3600#) * RaEnd Function'弧度化角度Public Function Degree(a As Double) As DoubleDim B As DoubleDim Fs1 As DoubleDim Im1 As IntegerDim Id1 As IntegerB = aCall DMS(B, Id1, Im1, Fs1)Degree = Id1 + Im1 / 100# + Fs1 / 10000#End FunctionPublic Sub DMS(a As Double, ID As Integer, IM As Integer, FS As Double) Dim B As DoubleDim c As Doublec = ac = 180# / pi * cID = Int(c + 0.0000005)B = (c - ID) * 60 + 0.0005IM = Int(B)FS = (B - IM) * 60End Sub'计算两点间的方位角Public Function azimuth(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As SingleDim dx As DoubleDim dy As DoubleDim fwj As Doubledx = x2 - x1dy = y2 - y1If dy <> 0 Thenfwj = pi * (1 - Sgn(dy) / 2) - Atn(dx / dy) azimuth = Degree(fwj)ElseIf dx > 0 Thenazimuth = 0Elseazimuth = 180End IfEnd IfEnd Function5.2程序字母代表含义La—起点里程，R—圆曲线半径，l0—两端缓和曲线长，α—曲线转向角，T—切线长，L—曲线长，E0—外矢距，q—切曲差，cc—线路转向（cc=1时，线路向右转；cc=-1时，线路向左转）,d―桩距，m―边桩距，Li―i点的里程，ZH―直缓点，HY―缓圆点，JD―交点，QZ―曲中点，YZ―圆直点，YH―圆缓点，HZ―缓直点，LJD—交点里程，LZH―直缓点里程，LHY―缓圆点里程，LQZ―曲中点里程，LYH―圆缓点里程，LHZ―缓直点里程。
坐标方位角计算程序设计
1算法流程图
输入两点的x和y坐标
否
判断数据是否完整
是
计算dx和dy
否
Dx=90
是
)
计算象限角α=±90计算象限角ᾳ=arctan(dy
dx
Dx>0且dy>0 dx>0且dy<0
象限判断
方位角t=α方位角t=α+180方位角α+360
输出方位角
2窗体及控件属性
对象属性值对象属性值
文本框1
名称Text1
文本框3
名称Text3 caption
将属性置为
空
caption
将属性置为
空
标签1caption a点x坐标标签3caption b点x坐标
文本框2
名称Text2
文本框4
名称Text4 caption
将属性置为
空
caption
将属性置为
空
标签2caption a点y坐标标签4caption b点y坐标文本框5
名称Text5框架1caption请输入坐标
caption 将属性置为
空
框架2caption
方位角（度分
秒）
标签5caption A到b的方位
角为
命令按钮1
名称Command1
窗体caption 计算坐标方
位角
caption计算方位角
3程序界面设计
4代码编写。
方位角的计算
第四节 直线定向的概念
一 直线定向 定义：确定一根直线与标准方向之间的水平角称为 直线定向。
二 标准方向的种类 1 真子午线方向 2 磁子午线方向 3 坐标纵轴线方向
三种方向的换算： ① A真=A磁+δ ② A真=A坐+ｒ ③ A磁=A坐 +ｒ-δ ④ A坐=A磁 +δ-ｒ
三 直线方向的表示方法 1 方位角（用α表示）：范围 0--360° 2 象限角（用 R 表示）：范围 0--90°
第一节 概述
水准测量中的主要概念： 1 高程测量—是用水准仪测定地面各点间的高度差
称为高程测量。 2 水准面—静止的海洋面所表示的曲面叫做水准面。 3 水平面—与水准面相切的面叫做水准面。
4 绝对高程和相对高程： ①绝对高程—从大地水准面起算的高程。 ②相对高程—从任一假定水准面起算的高程。
5 高差—两点间高程差。一般用“h”表示。 6 水准点—地面标高点。（地面设立的固定标志）
作用 ① 标志尺段位置； ② 计算丈量过的整尺段数。
第二节 直线定线和直线丈量
一 直线定线 1 概念—在丈量A、B两点间距离时，如距离较长，为了
使尺段沿直线方向进行丈量，需要在A、B两点间的直 线再标定一些花杆，这一工作称为直线定线。 2 方法：① 目测定线；② 仪器定线（经纬仪）。 二 目测定线的方法：1 两点间定线 2 延长直线的定线
第二章 直线丈量和直线定向
1 直线丈量的概念 2 直线定线和直线丈量 3 直线丈量的误差来源及其丈量时应注意
事项 4 直线定向的概念 5 罗盘仪及其应用
第一节 直线丈量的概念
一 地面点的标志 1 短期标志（几天-几个月） 2 长期标志（6个月以上）
二 丈量工具 1 现代工具（手持测距仪） 2 普通工具 （钢尺、皮尺、测绳等） 3 辅助工具（测钎：11根一组）