


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
先计算出坐标增量:dX=Xb-XadY=Yb-YadY=dY+1E-10 为了使除数不为零而加一个很小的数方位角计算万能公式:Az=pi * (1-Sgn(dY)/2)-Atn(dX / dY) 单位为弧度 Az=Az * 180 /pi 单位为度此公式计算无需判断象限,只需在值小于0时加上360即可!其中,sgn()为求符号函数,若dX0时为1,dX=0时为0。使用此公式不用判断所在象限,直接将坐标增量代入即可求出方位角值,在用计算器编程时若没有SGN()函数可自行判断并用一个变量代替!VBA代码:方位角计算函数 Azimuth()Sx为起点X,Sy为起点YEx为终点X,Ey为终点YStyle指明返回值格式Style=-1为弧度格式Style=0为“DD MM SS”格式Style=1为“DD-MM-SS”格式Style=2为“DDMMSS”格式Style=其它值时返回十进制度值Function Azimuth(Sx As Double, Sy As Double, Ex As Double, Ey As Double, Style As Integer)Dim DltX As Double, DltY As Double, A_tmp As Double, Pi As DoublePi = Atn(1) * 4 定义PI值DltX = Ex - SxDltY = Ey - Sy + 1E-20A_tmp = Pi * (1 - Sgn(DltY) / 2) - Atn(DltX / DltY) 计算方位角A_tmp = A_tmp * 180 / Pi 转换为360进制角度Azimuth = Deg2DMS(A_tmp, Style)End Function转换角度为度分秒Style=-1为弧度格式Style=0为“DD MM SS”格式Style=1为“DD-MM-SS”格式Style=2为“DDMMSS”格式Style=其它值时返回十进制度值Function Deg2DMS(DegValue As Double, Style As Integer)Dim tD As Integer, tM As Integer, Ts As Double, tmp As DoubletD = Int(DegValue)tmp = (DegValue - tD) * 60tM = Int(tmp)tmp = (tmp - tM) * 60Ts = Round(tmp, 1)select Case StyleCase -1 返回弧度Deg2DMS = DegValue * Atn(1) * 4 / 180Case 0Deg2DMS = tD & & Format(tM, 00) & & Format(Ts, 00.0)Case 1Deg2DMS = tD & - & Format(tM, 00) & - & Format(Ts, 00.0)Case 2Deg2DMS = tD & & Format(tM, 00) & & Format(Ts, 00.0) & Case ElseDeg2DMS = DegValueEnd SelectEnd FunctionFunction pol(AX As Double, AY As Double, Bx As Double, By As Double) As Stringpol = Azimuth(AX, AY, Bx, By, 2) & & Distance(AX, AY, Bx, By, 3)End FunctionFunction rec(alpha As String, dist As Double) As StringDim Alpha_Rad As DoubleAlpha_Rad = StringToRad(alpha)rec = dx: & Round(Cos(Alpha_Rad) * dist, 3) & dy: & Round(Sin(Alpha_Rad) * dist, 3)End FunctionFunction StringToRad(strAz) 将字符串格式方位角转换成弧度格式Dim azSubStrIf strAz ThenazSubStr =Split(strAz, -)If UBound(azSubStr) = 2 ThenStringToRad = (azSubStr(0) + azSubStr(1) / 60 + az
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2026届江苏省无锡市宜城环科园教联盟七年级数学第一学期期末学业质量监测试题含解析
- 电车维修技术知识培训课件
- 借条正确合同
- 电视安装课件
- 电视剧推广专业知识培训课件
- 2026届安徽省六安市叶集区七年级数学第一学期期末质量检测试题含解析
- 2025年产品销售代理合同范本
- 2025青岛市房屋买卖合同
- 第5课 语音识别技术 说课稿 2024-2025学年浙教版(2023)初中信息技术八年级下册
- 2025四川省建设工程施工合同示范文本
- Q-JJJ 9002-2025 铁路建设项目安全穿透式管理实施指南
- 第4课 吃动平衡 健康体重 课件-2024-2025学年人教版(2024)初中体育与健康七年级全一册
- 义务教育劳动新课程标准精选试题题库测试卷(一)(2022版)含答案
- GB/T 22886-2008皮革色牢度试验耐水渍色牢度
- 滚丝机操作指导书
- 商务策划学-(全)课件
- 阀门基础知识培训课件
- 2018年10月自考00107现代管理学试题及答案
- 数字图像处理冈萨雷斯课件
- 客户服务满意度调查表
- 伊美雅(异帕米星),抗感染的信心之选20130415课件
评论
0/150
提交评论