excel在测量中的应用解析Word格式.docx
- 文档编号:21331651
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:9
- 大小:23.31KB
excel在测量中的应用解析Word格式.docx
《excel在测量中的应用解析Word格式.docx》由会员分享,可在线阅读,更多相关《excel在测量中的应用解析Word格式.docx(9页珍藏版)》请在冰豆网上搜索。
道路工程测量工作实践,笔者认为Excel2003完全能范围广,有良好的应用基础,工程技术人员一般都熟悉
满足道路工程测量数据处理的要求。
其使用方法和规则,测量人员只需掌握基本的VB语
言和编程方法就可以按照计算内容、要求和目的进行
1Excel2003数据输入方法编程。
(2)Excel是天然的“可见的二维数组”。
相对于
数据输入主要有键盘输入、语音输入和数据导入专业软件看不见的内部数组来说,Excel的单元格就
3种方法。
键盘输入是过去最常用的方法,劳动量大;
是一个二维数组中的一个元素.直观易懂,便于数据的
语音输入是Excel2003新增的功能,它大大减少了劳调用和表示,而且,这种二维数组的数据格式灵活多
动量,但是,由于很难保证语音一致,所以难免会出现变,它没有统一的格式限制.可以定义任一单元格为字
输入错误,仍离不开鼠标和键盘的操作;
对于电子数符型或数值型。
收稿日期:
2006—1O一2O
基金项目:
河南驻马店市科技局科技攻关计划项目(编号:
042002)
作者简介:
王汉雄,男,硕士研究生,工程师.E—mail:
hxwang2000@126.Com
22中外公路27卷
(3)操作简单。
Excel在创建宏时.会提示创建快:
Cells(11,5)一”左偏角d一”:
KG=0
捷键,一旦创建快捷键后,以后使用宏按对应的快捷键IfRJ<
piThenPJ=pi—RJ
就可以完成数据的处理,而不必再往单元格里输入:
Cells(11,5)一”右偏角d一”:
KG=1
函数。
HD—PJ:
PPJJ—EDG(HD):
Cells(1l,6)一
(4)适应性强。
对于用函数制作的表格,当改变PP】】
数据时,经常需要动手更新表格,而运用宏功能则自动P1一Int((LS1^2/24/R—LS1A4/(2384*
完成表格的更新。
R^3))*1000000)/1000000
P2一Int((LS2^2/24/R—LS2A4/(2384*
3Exce12003在道路工程测量中的^3))*1000ooo)/1000000
应用Q1一Int((LS1/2一LS1A3/(240*R*R))*
1000ooo)/1000000
以上Excel2003数据处理的特点和优点为道路Q2一Int((LS2/2一LS2A3/(240*R*R))*
工程测量数据处理提供了优越的条件,可以进行测量1000000)/1000000
中的各种算术和矩阵运算、解算各类方程;
可以实现水B1一LS1/2/R:
B2一LS2/2/R
准网、导线网、边角网、三角网等各类控制网的近似平IfB1十B2>
PThen
差和严密平差;
可以进行道路中边桩坐标及放样数据AAA=MsgBox(”不符合构成缓和曲线条件,请检查
计算、道路高程及超高和加宽计算、路基填土高度以及数据!
”,vbExclamation+vbOKOnly,”提示”)
土石方量计算等。
ExitSub
以下是通过VB编辑器的方法创建宏,编写的“道EndIf
路中桩坐标及放样数据”计算程序示例。
丁1一Int(((R+P2一(R+P1)*COS(P))/sin
DimX1,y1,X2,y2,F1,F2,HDAsDouble(P)+Q1)*10ooo)/lO000:
Cells(12,2)一丁1
DimKGAsIntegerT2一Int(((R+P1一(R+P2)*cos(P))/sin
ConstpiAsDouble一3.14159265358979(P)+Q2)*lOooo)/lO000:
Cells(12,4)一T2
Sub道路中桩坐标及放样数据计算()LY—Int((P—B1一B2)*R*10000)/10000
XA—Cells(3,2):
yA—Cells(3,4)LH—Int((Ly+LS1+LS2)*10ooo)/lOooo
XB—Cells(4,2):
yB—Cells(4,4)Cells(12,6)一LH
XC—Cells(5,2):
yC—Cells(5,4)ZH—k—T1:
K3一Int(ZH/1000):
K4一Int
R—Cells(6,2):
志一Cells(6,4)((ZH—K3*1ooo)*lOooo+o.5)/10000
LS1一Cells(7,2):
LS2一Cells(7,4)Cells(13,2)一”K”&
K3&
”+”&
K4
X0=Cells(8,2):
Y0=Cells(8,4)若计算放样数据,HY—Int((ZH+LS1)*10000)/10000
X0,Y0为测站点坐标K3一Int(HY/1000)
DD—Cells(9,2)输入桩间距K4一Int((Hy—K3*1000)*10000+0.5)/
X1一XA:
y1一YA:
X2一XB:
Y2一yB10000
DAB—pdd(X1,y1,X2,y2)Cells(13,4)一”K”&
FW1一F¨
(X1,y1,X2,y2)yH—Int((Hy+L*10000)/10000
X1一XB:
Y1一YB:
X2一XC:
Y2一yCK3一Int(YH71000)
DBC—pdd(X1,y1,X2,y2)K4一Int((yH—K3*1000)*10000+0.5)/
FW2一F(X1,y1,X2,y2)10000
Cells(1l,2)一DAB:
Cells(1l,4)一DBCCells(14,2)一”K”&
RJ=FW1+p—F耽计算偏角QZ—Int((Hy十Ly/2)*10000)/lO000
IfR>
2ThenRJ—RJ一2pK3一Int(QZ/1000)
IfR<
0ThenRJ—RJ+2pK4一Int((QZ—K3*1000)*10000+0.5)/
一piThenPJ—RJ—pi1O000
3期Excel2003在道路工程测量中的应用23
Cells(13,6)一。
’K”&
K4IfKK>
HyAndKK<
一QZThen桩号大于
HZ—Int((yH+LS2)*10000)/10000Hy点小于QZ点计算中桩坐标
K5一Int(HZ/1000)LL—KK—HY:
BBK—LL/R+B1
K6一Int((HZ—K5*1000)*10000+0.5)/XX1一R*sin(BBK)+Q1
10000yy1一R*(1一cos(BBK))+P1
Cells(14,4)一”K”&
K5&
K6IfKG一0Then:
yy1一一yy1
XZH—Int((XB+丁1*COS(FW1+p))*XXK—Int((XZH+XX1*COS(FW1)一
10000)/10000yy1*sin(FW1))*1000)/1000
yZH—Int((yB+丁1*sin(FW1+p))*一Int((yZH+XX1*sin(FW1)+
10000)/10000yy1*COS(FW1))*1000)/1000
XHZ—Int((XB+丁2*cos(FW2))*10000)/EndIf
10000IfKK>
QZAndKK<
yHThen桩号大于QZ
yHZ—Int((yB+丁2*sin(FW2))*10000)/点小于yH点计算中桩坐标
10000LL—yH—KK:
BBK—LL/R+B2
KKQ—ZH:
Kkz=HZ线计算区间XX1一R*sin(BBK)+Q2
KKQ3一Int(KKQ)yy1一R*(1一cos(BBK))+P2
KKQ4一Int((KKQ—KKQ3)*1000+0.05)/IfKG一1Then:
1000XXK—Int((XHZ—XX1*COS(FW2)+
KK0一KKQ一(KKQ3ModDD)一KKQ4yy1*sin(Fw2))*1000)/1000
NN—Int((Kkz—KKO)/DD)一Int((yHZ—XX1*sin(FW2)一
For一0TONNyy1*cos(FW2))*1000)/1000
KK—KK0+*DDEndIf
IfKK<
ZHThen桩号小于ZH点计算中桩坐标IfKK>
一yHAndKK<
一HZThen桩号大
XXK—Int((XZH+(ZH—KK)*COS于yH点小于HZ点计算中桩坐标
(FW1+pi))*10000)/10000LL—HZ—KK
yyK—Int((yZH+(ZH—KK)*sin(FW1XX1一Int((LL—LL^5/(4o*R*R*
+pi))*10000)/10000LS2*LS2)+LL^9/(3456*R^4*LS2^
EndIf4))*1000000+0.5)/1000000
IfKK>
一ZHAndKK<
一HyThen桩号大yy1一Int((LL^3/(6*R*LS2)一LL
于ZH点小于Hy点计算中桩坐标^7/(336*R^3*LS2^3))*1000000+
LL—KK—Z’H0.5)/1000000
XX1一Int((LL—LL^5/(40*R*R*IfKG一1Then:
LS1*LS1)+LL^9/(3456*R^4*LS1XXK—Int((XHZ—XX1*COS(FW2)+
^4))*100000000+0.5)/100000000yy1*sin(Fw2))*1000)/1000
yy1一Int((LL^3/(6*R*LS1)一LL一Int((yHZ—XX1*sin(Fw2)一
^7/(336*R^3*LS1^3))*100000000yy1*cos(FW2))*1000)/1000
+0.5)/100000000EndIf
IfKG一0Then:
yy1一一yy1IfKK>
HZThen桩号大于ZH点计算中桩坐标
XXK—Int((XZH+XX1*COS(FW1)一XXK—Int((XHZ+(KK—HZ)*COS
yy1*sin(FW1))*1000)/1000(Fw2))*1000+0.5)/1000
=Int((yZH+XX1*sin(FW1)+一Int((yHZ+(KK—HZ)*sin
yy1*cos(FW1))*1000)/1000(FW2))*1000+0.5)/1000
EndIf24中外公路27卷
KK1一Int(KK/l000)IfMA一60ThenDA—DA十1:
MA=0
KK2一Int((KK—KK1*1000)/100)IfSA>
一0AndSA<
10Then
KK3一Int((KK—Int(KK/100)*100)/10)SA一0&
SA
KK4一Int((KK—Int(KK/10)*10)*1000Else
+0.005)/1000SA—SA
KK5一。
·
K”&
KK1&
KK2&
KK3&
EndIf
KK4IfMA>
一0AndMA<
X1一XO:
Y1一YO:
X2一XXK:
Y2=YYK计MA一0&
MA
算放样数据Else
FDD—pdd(X1,Y1,X2,Y2):
FFW—F(X1,MAl—MA
y1,X2,y2)EndIf
HD—FFW:
FFW—EDG(HD)EDG—DA&
”一”&
MA&
SA
Cells(16+,1)一KK5:
Cells(16+,2)一XXKEndFunction
Cells(16+,3)一:
Cells(16+,4)一FDD在编写测量计算程序时,应注意以下问题:
Cells(16+,5)一FFW
(1)程序本身的可读性问题。
除主程序外,设置若
Next干个子程序,分别进行距离、方位角的计算和角度的转
EndSub换,保证程序本身的可读性和编程思维的连续性。
PrivateFunctionpdd(X1,y1,2,Y2)由坐标计算
(2)数值计算取位问题。
由于现今计算机的运行
距离速度很快,计算程序相对较小,所以不必考虑程序运行
DX—X2一X1:
dy—Y2一Y1速度与容量问题,中间计算应尽可能地多取小数位数
pdd—Int(Sqr(DX*D+dydy)*10000(如编程时丌值取到小数点后14位),以保证计算结果
+0.5)/10000的精度。
EndFunction(3)除零问题。
在计算道路路线方位角时,需要计
PrivateFunctionF’¨
(X1,y1,X2,y2)由坐标计算反正切函数,其中存在因X坐标相同而除零的情
算方位角(以弧度表示)况,此时应作特例处理,以增强程序的通用性。
dy—Y2一Y1(4)方位角判断问题。
由于反正切值仅为一/2
IfDX一0Then~/2,而方位角却为0~2。
因此,必须先判断方位
Ifdy>
0ThenF一pi/2角所在的象限,然后加以处理。
Ifdy<
0ThenFW一3*pi/2(5)角度转换问题。
在计算坐标时,正弦和余弦是
Else用弧度计算的,而放样方位角是用度分秒的形式表示,
RJ—Atn(dy/DX)这些都需要注意弧度与度分秒之间的转换。
IfDX>
0Anddy>
一0ThenF一R_厂(6)中桩桩号和桩间距设置问题。
道路工程中,习
IfDX<
0ThenF一pi+RJ惯用“K×
×
+×
”的形式表示桩号,在程序中要
0Anddy<
0ThenF一2*pi+作特殊处理,以便在计算结果中符合这一习惯;
桩间距
RJ可根据实际,随时设置为任一数值。
若程序稍作改动,
EndIf还可以计算任一中桩及边桩处对应的坐标和放样
EndFunction数据。
PrivateFunctionEDG(HD)将弧度换为度\分\秒输入已知数据后,按快捷键运行宏得到的计算结
CC—HD*180/pi果见图1。
DA—Int(CC):
MA=Int((CC—DA)*60)如图1所示,1~9行是运行宏前必须填写的,它
SA—Int(((CC—DA)*60一MA)*60*10包括相邻三交点的坐标、曲线设计半径、缓和段长度、
+0.5)/10交点B里程、测站点坐标、桩间距,计算结果中的数据
IfSA一60ThenMAl=MAl+1:
SA一0均是运行宏后显示的。
在制作测量计算表格时,首先EndIf
3期Excel2003在道路工程测量中的应用25
应确定单元格的性质,必须合理安排各单元格的位置,径、缓和段长度等;
因变单元格是指宏运行后显示计算
处理好固定单元格、自变单元格和因变单元格的关系。
结果的单元格,它因自变单元格的变化而变化,如中桩
固定单元格是指内容固定不变的单元格,如标题、计算坐标和放样数据等。
简而言之,固定单元格是框架,相
示意图和所有文字所在单元格;
自变单元格是指宏运对稳定;
自变单元格和因变单元格是内容,是可变的。
行前必须填写的存有已知数据源的单元格,它经常因运行宏得到计算表格后,可以对表格进行必要的
道路及对应曲线的变化而变化,如交点坐标、曲线半编辑,使其更加符合工作的要求。
ABCDEF
1**道数中桩坐标计算表
2输入已知数据a
43J,DDAB:
X坐标=111JDA:
y坐标一111/\\\
:
X坐标=555JDB:
y坐标555—
5JDC:
X坐标一555JDCA:
Y坐标=1200
6曲线半径R=600交点B里程=1200/z,≥\\
7缓和段LS1—120缓和段LS2=50、R
||测站点X坐标500测站点y坐标50000
9中桩间距D一20坐标计算示意图
10计算结果
11AB距离DAB=627.9108BC距离DBC=645右偏角a一45—00—00
12切线长度T1=307.754切线长度T2=274.7667曲线长度LH=556.2388
l3ZH点里程K0+392.246Hy点里程K1+12.246QZ点里程Kl+206.3654
14YH点里程K1+398.4848HZ点里程K1+448.4848
15桩号X坐标y坐标放样距离放样方位角备注
16K0+880328.7257328.7257242.2184225—00—00
17K0+900342.867342.868222.2189224—59—59.3
18K0+920356.974357.044202.2198224—59—09.5
19K0+940370.973371.329182.2202224—55—15.1
20K0+960384.78385.798l62.2274224—44—44.8
21K0+980398.312400.524142.253224——22——12
22K1+000411.482415.575122.3234223—38—39.3
23K1+020424.195431.013102.4968222—18—14.5
24K1+040436.391446.86482.8827219—52—25.7
25K1+060448.051463.11263.7136215—22—40.2
图1道路中桩坐标及放样数据计算
据处理的各种技巧和方法,如语音输入、外部数据导
4数据审查与管理入、用“宏”功能编程计算和语音审查等;
重点论述了运
用Excel2003的“宏”功能实现道路工程测量有关计
数据审查主要有3种方法:
将纸上数据与输人数算的新方法,阐述了其特点、要点和优点、以及用VB
据进行一对一的比较;
利用函数功能;
将输入数据与原编辑器创建宏的注意事项,充分发挥Excel2003的各
有数据求差,进行运算比较;
利用Excel2003提供的项功能。
相对于各种专业测量数据处理软件,Excel
语音功能中的朗读文本一项,可以边听朗读,边看纸上2003具有适应范围广、实用和直观等优点以及良好的
数据,进行语音比较,减轻了劳动量。
群众应用基础的优势,值得推广和应用。
Excel2003可以对工作表和工作簿进行两层密码
保护,并可以给用户设置权限。
通过这些保护措施,可参考文献:
以保证信息的相对安全和避免数据的意外破坏,实现[1]游润卫,赵一飞.极坐标法放样公路中线的精度保证[J].
数据的安全管理。
中外公路,2005
(2).
I-z3李仕东,孙树贤.GPS~RTK技术放样公路中线的应用
EJ3.中南公路工程.2005(4).
5结语
E33马脎.新概念Excel2003教程I-M3.北京:
科学出版社,
2006.
本文结合测量数据处理的整个过程,将Excel1-43钟孝顺,聂让,测量学[M].北京:
人民交通出版社,
2003的各项功能运用其中。
在比较分析中,给出了数1997.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excel 测量 中的 应用 解析