1:1万地形图54与80坐标系换算程序(源码）

<P>　　<a href="http://othermap.com/softdown/SoftDown.asp?ID=114" target="_blank" >http://othermap.com/softdown/SoftDown.asp?ID=114</A></P>
<P> 1:1万地形图54与80坐标系换算程序
　　　　　　国家测绘局第一航测遥感院　杨战辉

　　现在我国1:1万地形图修测和重测,平面均采用1980西安坐标
系,高程采用1985国家高程基准。 为了生产单位批量开展生产，
尤其是1:1万修测图,需要展绘一套54坐标系,一套80坐标系,加图
廓点改正数操作复杂,加之98 年国家测绘局提出治理七大江河生
产1:1万DEM要求，需提供一套准确的基础图廓信息数据，为此，
本人在原分别计算54坐标系、80坐标系图廓元素程序的基础上编
写了一个综合程序, 可方便准确计算出一幅图所需的三套信息 ,
根据1:1万老图号计算出对应新图号,80坐标系图廓坐标,54 坐标
系图廓坐标,再根据图廓点的54换到80坐标的△X△Y 改正数计算
出54坐标系图廓点在80坐标系的坐标,可满足1:1万地形图图廓的
基础信息要求。
　　1.程序所需信息
　 (1)所需计算的1:1万老图号,如I-49-40-(61)
　 (2)由国家大地数据处理中心按经纬度提供的54到80 坐标系四
个图廓点改正数
　　　DX1　　　　DY1
　　　DX2　　　　DY2
　　　DX3　　　　DY3
　　　DX4　　　　DY4
　　2.操作步骤
　　该程序在DOS环境下,用Fortran语言编写,程序名为RFV5480.
exe,将程序拷入PC机的一个目录RFV下即可,运行程序小于100KB。
　(1)C:\RFV>RFV5480
　　提示输入1:1万标准老图号
　　如 I-49-040-(61)
　　注意:
　　第一个字母要大写,49位置为二位,40位置为三位, 不足三位
前边补"0",61位置为二位,不足二位时前边补"0"。
　(2)屏幕显示该图的54图廓信息,其中包括四个图廓点经纬度信
息,查取四个图廓点,改正坐标数,按F6.2格式屏幕上提示的1 →2
→3→4顺序输入,如果下一点的改正数与上一点相同时,可直接回
车,默认上次输入。屏幕显示三套坐标。
　(3)提示是否打印
　　键入"Y"即可按一下格式打印,打印一份按回车, 程序提示是
否继续解算新图号,键"Y"开始开下一幅图,直接回车结束</P>

<P>ding</P>

<img src="images/post/smile/dvbbs/em01.gif" />

<img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em05.gif" />

<P>是啊</P><P>说有原码怎么没有呢</P>

<P>楼主啊源码在哪啊？这个问题困扰我好长时间了，非常渴望能够得到解决的方法。拜托了！！！！</P><P>Email:milkkitty_1206@163.com</P>

<P>好样的</P>

ding

能不能把源码共享啊

<P>你好！能否告知“国家大地数据处理中心按经纬度提供的54到80 坐标系四
个图廓点改正数”在那里可以高到。谢谢！
           weiyn2003@yahoo.com.cn</P>