测绘程序设计结业考核报告大地坐标和大地空间直角坐标的互换..docVIP

测绘程序设计结业考核报告大地坐标和大地空间直角坐标的互换..doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
测绘程序设计结业考核报告大地坐标和大地空间直角坐标的互换.

测绘程序设计结业考核报告 大地坐标和大地空间直角坐标的互换 学生姓名 班级 成绩 指导教师(签字) 地质与测绘学院测绘工程系 年 月 日 一、目的和意义 坐标转换是空间实体的位置描述,是从一种坐标系统变换到另一种坐标系统的过程。通过建立两个坐标系统之间一一对应关系来实现。是各种比例尺地图测量和编绘中建立地图数学基础必不可少的步骤。在实际应用中必须变换到国家统一坐标系或地方独立坐标系上来。因此, 这种坐标转换具有很大的现实意义, 使各种测量工作得到实时、快捷的同时得到坐标系统的统一。 二、原理和过程 本程序数以大地坐标和大地空间直角坐标的相互换为内容展开的,其中包括了大地坐标系转化为大地空间直角坐标系,大地空间直角坐标系转化为大地坐标系,参数设置,打开文件,保存文件等功能。界面清晰,简洁,易懂,可视化好。 (一)原理 空间直角坐标系的坐标系原点位于参考椭球的中心,Z 轴指向参考椭球的北极,X,Y 轴位于赤道面上且按右手系与X 轴呈90°夹角。某点在空间中的坐标可轴指向起始子午面与赤道的交点用该点在此坐标系的各个坐标轴上的投影来表示。空间直角坐标系可用图所示: 空间大地坐标系是采用大地经、纬度和大地高来描述空间位置的。纬度是空间的点与参考椭球面的法线与赤道面的夹角;经度是空间中的点与参考椭球的自转轴所在的面与参考椭球的起始子午面的夹角;大地高是空间点沿参考椭球的法线方向到参考椭球面的距离。空间大地坐标系可用所示: 大地空间直角坐标系 大地坐标系 空间直角坐标系与空间大地坐标系间的转换,图表示了空间直角坐标系与空间大地坐标系之间的关系:  地球空间直角坐标系与大地坐标系 在相同的基准下空间大地坐标系向空间直角坐标系的转换公式为:         (2-1) 式中,  ,为椭球的长半轴,为椭球的卯酉圈曲率半径 =6378.137km =6356.7523141km ,为椭球的第一偏心率,为椭球的短半轴 在相同的基准下空间直角坐标系向空间大地坐标系的转换公式为     (2-2) 式中 (二)过程 由源坐标类型转化为目标坐标类型,根据所选的椭球基准(椭球七参数),再计算出所需的参数,而后根据原理中的转换公式计算出所要求得的目标坐标的未知量。 具体过程如下: 1.如图所示为程序的主界面: 在菜单栏的“文件”中选择“打开”弹出窗体,选择要打开文件的路径。界面如图所示: 通过单选按钮可以选选择源坐标类型和目标坐标类型,输入源坐标类型的坐标值,转换前线进行参数设置。 2..参数设置界面如下: 输入椭球基本参数,点击“计算其余参数”按钮,计算其余参数,完成后点击“设置完成”按钮,结束参数设置。返回到计算主界面。 3.坐标转换。点击“转换”按钮进行计算,坐标反向转换时亦同。如图所示: 4.文件保存。完成后可将转换数据写入到文件中,在菜单栏中点击“文件”中的“保存”将数据保存到文件夹的“MyFile。Txt”中,可在中查看。界如图所示 : 保存完后退出程序。 三、程序代码 1.主窗体计算代码 Option Explicit Const PI = 3.141592652 定义圆周率PI Private Sub Command1_Click() Dim X As Double 大地空间坐标系的x,y,z Dim Y As Double Dim z As Double Dim b2 As Double 度分秒化为弧度的过程量b2,l2 Dim l2 As Double Dim b As Double 大地坐标系的l,h,b Dim l As Double Dim h As Double Dim N As Double N为椭球的卯酉圈曲率半径 Dim wb As Double Dim e As Double 第一偏心率e Dim G As Double 公式中的量G,R Dim R As Double Dim w As Double w为第一基本纬度函数 Dim a As Double 长半轴a Dim d As Double d,f,m 分别为度,分,秒 Dim f As Double Dim m As Double If Val(设置参数.Label9.Caption) = 0 Then

文档评论(0)

jiulama + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档