展开全部
function [Bm,Lm]=geo2mag(Bg,Lg)
% 将大地经纬度转化为地磁经纬度
% 磁极点取:经度72.2°W,纬度80.0°N(IGRF,2011)
% 输入及输出值为弧度制单位(rad)
% by chensd HHU 2016.01.02
% 磁极点经纬度
b=80.0*pi/180;
l=-72.2*pi/180;
% 以下公式基于刘长建,2011
sb=sin(Bg)*sin(b)+cos(Bg)*cos(b)*cos(Lg-l);
Bm=asin(sb);
sl=cos(Bg)*sin(Lg-l)/cos(Bm);
cl=(sin(b)*sb-sin(Bg))/(cos(b)*cos(Bm));
Lm=atan2(sl,cl);
% 将大地经纬度转化为地磁经纬度
% 磁极点取:经度72.2°W,纬度80.0°N(IGRF,2011)
% 输入及输出值为弧度制单位(rad)
% by chensd HHU 2016.01.02
% 磁极点经纬度
b=80.0*pi/180;
l=-72.2*pi/180;
% 以下公式基于刘长建,2011
sb=sin(Bg)*sin(b)+cos(Bg)*cos(b)*cos(Lg-l);
Bm=asin(sb);
sl=cos(Bg)*sin(Lg-l)/cos(Bm);
cl=(sin(b)*sb-sin(Bg))/(cos(b)*cos(Bm));
Lm=atan2(sl,cl);
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |