gst Geomatics Science and Technology 2329-549X 2329-7239 beplay体育官网网页版等您来挑战! 10.12677/gst.2024.123032 gst-92822 Articles 工程技术 割圆锥投影的正反算变换——Excel VBA实数计算与Mathcad复数变换
Forward and Inverse Transformation of Secant Conic Projection—Excel VBA Real Number Calculation and Mathcad Complex Number Transformation
刘大海 1 2 方春波 1 2 陈永红 2 莫晓锋 2 陈永冰 3 深圳市地质局,广东 深圳 深圳地质建设工程公司,广东 深圳 海军工程大学电气工程学院,湖北 武汉 05 07 2024 12 03 257 265 26 6 :2024 23 6 :2024 23 7 :2024 Copyright © 2024 beplay安卓登录 All rights reserved. 2024 This work is licensed under the Creative Commons Attribution International License (CC BY). http://creativecommons.org/licenses/by/4.0/ 圆锥投影图广泛用于中小比例尺地图,如国际航空图、全国地图、中小比例尺分省地图、地质图、专用地图等。利用计算工具Excel VBA及Mathcad分别开发了适用于BJ54、XIAN80、WGS84、CGCS2000坐标系割圆锥投影的实数及复数正反算变换程序,为野外地质调查进行快捷的批量坐标转换提供了普适工具。
Conic projection maps are widely used in small and medium-sized maps, such as international aerial maps, national maps, provincial maps at small and medium-sized scales, geological maps, and specialized maps. Real and complex forward and inverse transformation programs suitable for cutting cone projection in BJ54, XIAN80, WGS84, and CGCS2000 coordinate systems were developed using calculation tools Excel VBA and Mathcad, respectively, providing a universal tool for fast batch coordinate transformation in field geological surveys.
割圆锥投影,实数,复数,大地坐标,直角坐标,坐标变换,地质图
Secant Conic Projections
Real Number Complex Geographical Coordinates Cartesian Coordinates Coordinate Transformation Geologic Map
1. 前言

圆锥投影图,因其制图简单、等角变换、在中纬度地区变形小等特点,从而广泛用于中小比例尺地图,如国际航空图、全国地图、中小比例尺的分省地图、地质图、专用地图等。

随着我国工程建设的发展,对投影变形的控制要求较高,尤其是地铁及高铁,其长度变形精度要求小于1 m/100km。采用高斯投影时,为满足变形控制要求,投影分带需<57 km,长线路工程的坐标转换非常繁琐。由于割圆锥投影的南北基准纬线长度不变形,投影区域变形小,因此,割圆锥投影变换对东西向条带状的投影变换有其独特优势。

国家行业标准地质图编绘规范规定,1:50万、1:100万地质图,需采用割圆锥投影 [1] - [3]

我国圆锥投影变换研究始于上世纪60年代。杨启和(1965, 1982, 1983)系统研究了等角投影变换 [4] - [6] ,讨论了圆锥投影的一般特性;黄伟(1979)介绍了国际上1:100万地图及我国1978年前后1:100万地图采用圆锥投影编制应用的基本情况 [7] ,肖学勤(1985)研究了正轴双标纬线等角圆锥投影 [8] ,开发了Fortran 77及Casiofx-180F正算程序,用于1:50万、1:100万、1:200万的土地资源及草地资源调查;庄培德(1995)开发了PC-1500袖珍机的等角割圆锥投影正反解程序 [9] ;钟业勋、李占元(2002)针对广西的地理位置及分布形状,研究了适用于广西壮族自治区的正轴等角割圆锥投影,计算了XIAN80坐标系的投影参数、长度变形及面积变形 [10] ;韩尤杰、尹继法等(2007)基于VC++开发了圆锥投影的图形界面的正反解程序(1940克拉索夫斯基椭球、1967国际椭球、1975国际椭球),实现了(等角、等距离、等面积的)地理坐标与平面坐标之间的转换 [11] ;戴勤奋(2006)、达恒(中国)有限公司(2007)编制了图形界面的等角投影正反变换程序 [12] [13] ;李厚朴、边少锋等(2012, 2015, 2024)研究了复数域的等角投影及等角圆锥投影的参数优化 [14] - [16] ;赵淑湘(2016)研究了甘肃省的割圆锥投影(CGCS2000),计算了投影参数,给出了161组坐标变换值 [17] ;丁士俊、李鹏鹏等(2022)研究了等角圆锥投影反解的不同算法,利用Mathematica导出了等量纬度反解大地纬度的直接算法 [18] ;焦晨晨、李松林等(2023)研究了等角圆锥投影基准纬线,利用Mathenatica导出了计算基准纬线的非迭代算法 [19] [20] ;割圆锥投影的1:50万广东省地质图于1999年出版。

本文在前人研究的基础上,从方便快捷、批量转换的实用角度出发,利用Excel VBA及Mathcad计算工具,开发了割圆锥投影正反算变换程序,适用于BJ54、XIAN80、WGS84、CGCS2000坐标系的坐标变换。

2. 割圆锥投影

圆锥投影,又称正轴等角圆锥投影,适用于中小比例尺地质图,如1:50万、1:100万地质图。

切圆锥投影,是用一个圆锥面正轴切于球面,将圆锥面作为投影面,然后沿圆锥面的一条母线切开展成平面的一种投影 [21] - [23] ,切纬线B0长度不变形,见 图1(a)

割圆锥投影,又称兰勃特投影,是德国数学家J. H. Lembert于1772年拟定。该投影是用一个正圆锥割于球面两条标准纬线B1及B2 [21] - [23] ,割纬线B1、B2长度不变形,见 图1(b)

投影坐标系,是以中央经线L0为x轴,以基准纬线Bs为y轴,x轴与y轴的交点为投影原点O (0,0),见 图2(a) ;球面与平面的投影线段微分关系见 图2(b)

(a) 切圆锥 (b) 割圆锥--Figure 1. Schematic diagram of isometric cone projection-- (a) 坐标系关系图 (b) 投影线段微分关系图--Figure 2. Relationship between conic projection ellipsoid and plane--
3. 割圆锥投影的实数变换 <xref></xref>3.1. 实数正算

正算,即由大地坐标(B, L)转换为直角坐标(x, y)。

数学上,圆锥投影平面直角坐标(x, y)的计算通式为 [21] - [23]

{ x = ρ s ρ cos δ y = ρ sin δ (1)

其中:

{ ρ = C exp ( α c q ) δ = α c l (2)

{ m = A D A D = 1 M d ρ d B n = A E A E = ρ r α c = d δ d l (3)

{ δ = L 0 L α c d l = α c l l = L L 0 (4)

{ e = 1 ( 1 f ) 2 N = a 1 ( e sin B ) 2 r = N cos B U = tan ( π 4 + B 2 ) ( 1 e sin B 1 + e sin B ) e 2 (5)

a

为椭球长半轴

f

为椭球扁率

e

为椭球偏心率

M

子午圈曲率半径

N

卯酉圈曲率半径

r

纬圈半径

U

等角表象函数

L0

中央经线经度

L

经线经度

l

椭球面经线与中央经线夹角

δ

平面经线与中央经线夹角

ρ

平面经线长

ρs

中央经线顶点到基准纬线的径线长

m

经线变形系数

n

纬线变形系数

对于割圆锥投影,B1、B2两条纬线长度不变形,即:

{ n 1 = 1 n 2 = 1 (6)

从而有:

{ α c = d δ d l = ln r 2 ln r 1 ln U 2 α c ln U 1 α c C = r 1 U 1 α c α c = r 2 U 2 α c α c ρ = C U α c (7)

式中:

C

赤道投影半径

αc

平面角与球面角的投影变换常数

确定αc及C后,就可由式(1)将坐标(B, L)转换为直角坐标(x, y)。

3.2. 实数反算

反算,即由直角坐标(x, y)转换为大地坐标(B, L)。

由式(7)确定αc、C、ρs参量后,就可由等量纬度q确定大地坐标(B, L) [14] [15] [18]

{ q = 1 α c ln ( C ) ln ( ( ρ s x ) 2 + y 2 ) l = 1 α c arctan ( y ρ s x ) φ = arcsin ( tanh ( q ) ) B = φ + t = 1 5 a t sin ( 2 t φ ) L = L 0 + l (8)

等角变换系数a可由下式确定(丁士俊,2022) [18]

{ a 2 = 2 e 3 2 3 e 3 2 2 e 3 3 + 116 45 e 3 4 + 26 45 e 3 5 a 4 = 7 3 e 3 2 8 5 e 3 3 227 45 e 3 4 + 2704 315 e 3 5 a 6 = 56 15 e 3 3 136 35 e 3 4 1262 105 e 3 5 a 8 = 4279 630 e 3 4 332 35 e 3 5 a 10 = 4174 315 e 3 5 (9)

其中第3偏心率:

e 3 = 1 1 e 2 1 + 1 e 2 (10)

4. 割圆锥投影的复数变换 <xref></xref>4.1. 复数正算

{ q = arctanh ( sin B e arctanh ( e sin B ) ) l = L L 0 w = q + i l z = ρ s C exp ( α c w ) (11)

4.2. 复数反算

{ w = 1 α c ln ( C ) ln ( ρ s z ) q = Re ( w ) l = Im ( w ) φ = arcsin ( t a n h ( q ) ) B = φ + t = 1 5 a 2 t sin ( 2 t φ ) L = L 0 + l (12)

<xref></xref>5. 割圆锥投影变换程序开发 <xref></xref>5.1. Excel VBA实域开发

Excel目前不支持复数运算,Excel平台的割圆锥投影变换只能在实数域中开发。

割圆锥投影正算变换宏为scp( ),反算变换宏为Inv_scp( )。

坐标转换程序使用方法:

1) 人工选择坐标系(三角下拉菜单):BJ54、XIAN80、WGS84、CGCS2000;

2) 人工输入投影参数:L0、Bs、B1、B2

3) 人工输入源坐标:(B, L)或(x, y);

4) 人工输入坐标点序号;

5) 运行宏,一键得到目标坐标。

5.2. Mathcad复域开发

Mathcad割圆锥投影复域变换的核心代码非常简洁:

1) 正算核心代码:

q : = atanh ( sin ( B ) ) e atanh ( e sin ( B ) ) l : = L L 0 w : = q + l 1 i z : = ρ s C exp ( α c w )

2) 反算核心代码:

w : = 1 α c ln ( C ) ln ( ρ s z )

q : = Re ( w ) l : = Im ( w ) φ : = asin ( t a n h ( q ) ) B : = φ + t = 1 5 a 2 t sin ( 2 t φ ) L : = L 0 + l

6. 计算实例

文献 [17] 刊载了161组(B, L)源数据的CGCS2000坐标系的正算结果。割圆锥投影中央经度L0=101˚,基准纬度Bs= 32˚,第1标准纬线B1= 34˚,第2标准纬线B2= 41˚。

本文选取其中8组(B, L)源数据,用Excel VBA及Mathcad 15进行了投影变换验算,两者计算结果一致。 表1 为正算结果,本文换算精度高于原文献; 表2 为反算结果,可精确还原到原文献经纬度坐标。

<xref></xref>Table 1. Conical projection calculation tableTable 1. Conical projection calculation table 表1. 割圆锥投影正算表

坐标点

源坐标

原文献正算坐标

本文正算坐标

序号

B/˚

L/˚

x/m

y/m

x/m

y/m

1

43

101

1,220,470

0

1220468.242

0.000

2

43

110

1,255,650

734,810

1255650.125

734810.617

3

40

101

887,040

0

887043.311

0.000

4

40

110

923,750

766,670

923750.373

766665.594

5

35

101

332,960

0

332963.006

0.000

6

35

110

372,200

819,600

372204.587

819601.692

7

32

101

0

0

0.000

0.000

8

32

110

40,760

851,410

40764.648

851412.537

<xref></xref>Table 2. Reverse calculation table for conical projectionTable 2. Reverse calculation table for conical projection 表2. 割圆锥投影反算表

坐标点

源坐标

反算坐标

原文献坐标

序号

x/m

y/m

B/˚

L/˚

B/˚

L/˚

1

1220468.242

0.000

43.000000

101.000000

43

101

2

1255650.125

734810.617

43.000000

110.000000

43

110

3

887043.311

0.000

40.000000

101.000000

40

101

4

923750.373

766665.594

40.000000

110.000000

40

110

5

332963.006

0.000

35.000000

101.000000

35

101

6

372204.587

819601.692

35.000000

110.000000

35

110

7

0.000

0.000

32.000000

101.000000

32

101

8

40764.648

851412.537

32.000000

110.000000

32

110

7. 结语

1) 割圆锥投影的南北标准纬线长度不变形,投影区域变形小。因此,割圆锥投影变换对东西向条带状的投影变换有其独特优势,尤其适用于东西向长线路的地铁及高铁工程的地图投影。

2) 本文在割圆锥投影变换中,等角变换系数采用了丁士俊(2022)以第3偏心率表达的最新研究成果,其系数比以用第1偏心率表达的公式简洁。

3) 本文利用割圆锥投影理论,分别在实域的Excel VBA平台及复域的Mathcad平台开发了割圆锥投影的正反算变换工具。利用公开发表的相关论文数据进行了计算验证对比,本文转换工具计算精度更高,结果更准确可靠。

4) Mathcad是一款所见即所得的计算软件,其代码表达式与数学表达式十分接近。相比于实数域,复数域的Mathcad割圆锥变换工具,其代码简洁,可读性好。

5) 本文Excel VBA变换工具,虽未进行图形界面设计,但使用十分简单,可实现坐标的一键批量转换。在Excel表中输入相应的原始数据,直接运行正变换或反变换宏,就可得到目标坐标,简洁明快。

6) Excel变换表可直接作为工作用表。作为一款批量坐标转换的高效普适工具,具有较高的使用价值,特别适用于野外工作者进行坐标的快捷转换。

致 谢

海军工程大学边少锋教授对课题研究给予了大力支持,在此表示衷心感谢!

基金项目

国家自然科学基金项目(42074010)。

NOTES

*第一作者。

#通讯作者。

References 地质矿产部. DZ/T 0159-1995 1:500000 1:1000000省(市、区)地质图地理底图编绘规范[S]. 1995. >http://www.bzfxw.com/soft/sort055/sort086/8691131.html 中华人民共和国国家标准. GB/T 12343.3-2009国家基本比例尺地图编绘规范第3部分: 1:500000 1:1000000地形图编绘规范[S]. 2009. >http://www.bzfxw.com/soft/sort055/cehui/108142985.html 中华人民共和国国家标准. GB/T 14512-1993 1-100万地形图编绘规范及图式[S]. 1993. >http://www.bzfxw.com/soft/sort055/cehui/10865375.html 杨启和. 运用数值法建立任意性质的圆锥投影[J]. 测绘学报, 1965, 8(4), 295-317. 杨启和. 等角投影数值变换的研究[J]. 测绘学报, 1982, 11(4), 268-282. 杨启和. 关于圆锥投影的参数B 0、n 0及其性质和应用的研究[J]. 测绘通报, 1983(6): 41-44. 黄伟. 关于我国新编1:100万地形图的数学基础[J]. 武测资料, 1979(4): 27-32. 肖学勤. 正轴双标准纬线等角圆锥投影及其计算程序在资源调查中的应用[J]. 资源开发与保护, 1989(2): 43-45+35. 庄培德. 等角割圆锥投影的正、反解程序(PC-1500机) [J]. 地矿测绘, 1995(2): 20-22. 钟叶勋, 李占元. 广西壮族自治区正轴等角割圆锥投影[J]. 测绘信息与工程, 2002, 27(3): 12-13. 韩尤杰, 尹继法, 刘新华. 基于VC++的正解和反解软件的设计与实现[J]. 测绘工程, 2007, 16(6): 58-62. 戴勤奋. 兰勃特等角投影正反变换程序LTProject [Z]. 青岛海洋地质研究所信息室, 2006. >https://www.eeworm.com/dl/534/237808.html 达恒(中国)有限公司. Transform.2007 [Z]. >https://xiazai.zol.com.cn/detail/49/485494.shtml 李厚朴, 边少锋, 李海波. 常用等角投影及其解析变换的复变函数表示[J]. 测绘科学技术学报, 2012, 29(2): 109-117. 李厚朴, 边少锋, 钟斌. 地理坐标系计算机代数精密分析理论[M]. 北京: 国防工业出版社, 2015: 124-125. 边少锋, 李厚朴. 地图投影计算机代数分析[M]. 北京: 科学出版社, 2024: 121-141. 赵淑湘. 甘肃省地图正轴等角割圆锥投影[J]. 矿山测量, 2016, 44(3): 35-38. 丁士俊, 李鹏鹏, 邹进贵, 金银龙. 兰勃脱等角圆锥投影反解不同算法的解析[J]. 武汉大学学报(信息科学版), 2022, 47(9): 1452-1459. 焦晨晨. 常用地图投影变形计算机分析与优化[D]: [硕士学位论文]. 武汉: 中国地质大学, 2022. 焦晨晨, 李松林, 李厚朴, 边少锋, 钟业勋. 等角圆锥投影基准纬度非迭代算法[J]. 武汉大学学报(信息科学版), 2023, 48(2): 301-307. 杨启和. 地图投影变换原理与方法[M]. 北京: 测绘出版社, 1989: 201-205. 吕晓华, 李少梅. 地图投影原理与方法[M]. 北京: 测绘出版社, 2016: 109-111+113-115. 黄文骞, 张立华, 吴迪, 于彩霞, 李树军, 朱穆华. 地图投影[M]. 北京: 测绘出版社, 2022: 147-151+153.
Baidu
map