地圖學實習報告 1

土1203-2

丁浩20120578

圓錐投影，特別是正軸等角割圓錐投影，在我國以及一些中等緯度的國家應用得非常廣泛。例如，編制中華人民共和國地圖（南海諸島作插圖）以及各省（區）地圖都是採用這種投影。新中國成立之前，我國地形圖也是採用該投影作為數學基礎的。

可見，等角割圓錐投影可適用編制我國不同比例尺、不同型別的地圖。

φ0:長度比最小的緯度; m0:比例尺分母。

四川省1、編寫正軸等角圓錐投影的源程式。在編制源程式時，採用通用程式為好，為此，

地球橢球的資料可採用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

地圖學實習報告 1

地圖學實習報告

地圖學實習報告

地圖學實習報告

相關推薦