实习目的及任务

1) 通过野外认识实习，巩固和扩充课堂学习的地图知识，提高读图能力；初步了解野外工作方法，掌握野外定向定点的简易方法，运用罗盘、GPS等设备进行基本的定位定线工作，面对野外的复杂地形将所学的知识进行灵活处理与运用。

2) 通过参观煤航航测遥感局和陕西测绘局，初步了解地图制图的相关程序步骤，加深对地图制图工作及过程的了解，了解遥感与土地资源管理方面的联系，了解遥感技术的操作及处理过程。

3) 运用地图学实验课所学习的内容，对地图矢量图进行符号化，熟悉地图符号化及相关处理的方法步骤。

实习内容

1) 野外实习：

野外实习主要是运用课堂上所学习的相关知识，对地形图及土地利用专题地图进行读图的工作及相关仪器（罗盘，GPS）的使用，具体包括地形图的阅读、地形图的外业定向、确定站立点点位以及进行地图图解分析等内容。

地形图的阅读，主要是对地形图基础要素的阅读以及通过已知高程点对等高线的推算。罗盘与GPS作为地图读图中的两各重要仪器，其在地图定向、坡度及方位角测量等方面具有重要的作用；地形图的外业定向是通过罗盘以及地物地貌对地形进行分析，从而在地图中标定位置的工作；站立点点位主要是运用实物定位、后方交会法定位以及GPS定位等方法确定自己站立在图上的位置；图解分析主要运用是新增点位，即运用前方交汇法确定新增点位的位置，对新增点位在地图上进行标定。

2) 参观实习

参观实习主要是对煤航航测遥感局和陕西测绘局进行参观，了解遥感工作的步骤及应用，对遥感有粗略的认识，同时了解地图制图的相关程序步骤，对地图的制图过程有大致的了解，明确未来的学习目标及方向，为下阶段的学习提供概况。

3) 操作实习

操作实习是通过地图学实验课所学习的内容，对地图学的软件应用进行联系，主要是进行地图矢量图的符号化以及出图等工作，加深对于地图学的认识以及实际操作能力，了解符合相关标准的地形图的制图模式，仿照进行制图。

 

第二篇：地图学实习报告(1)

地图学实习报告

土1203-2

丁浩

20120578

实习一 正轴等角割圆锥投影源程序的设计

圆锥投影，特别是正轴等角割圆锥投影，在我国以及一些中等纬度的国家应用得非常广泛。例如，编制中华人民共和国地图（南海诸岛作插图）以及各省（区）地图都是采用这种投影。新中国成立之前，我国地形图也是采用该投影作为数学基础的。可见，等角割圆锥投影可适用编制我国不同比例尺、不同类型的地图。

一、投影公式

tg(450??lgr1?lgr2A2)???(U?e,sin??esin?,e??0lgU2?lgU1Btg(45?)

sin?0??

Kcm100r1U1??M0??a2?b2)2a100r2U2??M0??

?????

K

U?

x??s??cos???

y??sin?

m?n??K

rU?

p?m?n

??0

Φ0:长度比最小的纬度; M0:比例尺分母。

二、制图区域

四川省

?N?34000?,?S?26000?

?E?108000?,?w?97000?

三、要求

1、编写正轴等角圆锥投影的源程序。在编制源程序时，采用通用程序为好，为此，

a(1?e2)aa2?b2

2M?,N?,e?(1?e2sin2?)3/2(1?e2sin2?)1/2a2

地球椭球的数据可采用IAG-1975椭球：a=6378140m，b=6356755m。

2、输出成果要求完整、整齐，有条件时可采用汉字化、表格化。输出成果包括：

U1,U2;

投影常数：α

积分常数：K

长度比为最小的纬线纬度：φ0

纬度：φ

经度：λ

直角坐标：X，Y

3.绘制该地图的经纬线网格。

四．实习实现代码

Private Sub Command1_Click()

Dim s As Single, o As Single

s = Pic1.Width / Pic1.Height

o = (x(16) - x(1)) / s + y(13)

Pic1.Scale (x(1), y(13))-(x(16), o)

For i = 1 To 15

If i Mod 4 <> 0 Then

Pic1.Line (x(i), y(i))-(x(i + 1), y(i + 1))

End If

Next i

For i = 1 To 12

Pic1.Line (x(i), y(i))-(x(i + 4), y(i + 4))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Single, c As Single, b As Single, r1 As Single, r2 As Single, d As Double, k As Double, f As Double, g As Double, s As Double

Dim cc(16) As Single, bb(16) As Single

Const e = 0.0066943799013

Const a = 6378137

Const π = 3.1415926

c1 = 26: c2 = 34

b1 = 97: b2 = 108

For i = 1 To 4

cc(i) = 26 + (i - 1) * 2

bb(i) = 97 + (i - 1) * 2

Next i

For i = 1 To 16

c = cc((i - 1) \ 4 + 1)

b = bb((i - 1) Mod 4 + 1)

Pic2.Print c, b

r1 = a * Cos(π * 38 / 180) / Sqr((1 - e * e * Sin(π * 38 / 180)))

r2 = a * Cos(π * 40 / 180) / Sqr((1 - e * e * Sin(π * 40 / 180)))

d = (Log(r2) / Log(10) - Log(r1) / Log(10)) / (Log(Tan(π * (45 + 19) / 180)) / Log(10) - Log(Tan(π * (45 + 20) / 180)) / Log(10))

k = r1 * Tan(π * (45 + 38) / 180) ^ d / d

f = d * (b * π / 180)

g = k / ((Tan(π * (45 + c / 2) / 180)) ^ d)

s = k / ((Tan(π * (45 + 36 / 2) / 180)) ^ d)

x(i) = (s - g * Cos(f)) / 2000

y(i) = (g * Sin(f)) / 2000

Pic2.Print x(i), y(i)

Next i

End Sub