空间直角坐标系与大地坐标系转换程序x

1、空间直角坐标系与大地坐标系转换程序#include<iostream>#include<cmath>#include<iomanip>using namespace std;#define PI (2.0*asin(1.0)void main() double a,b,c,d1,d2,f1,f2,m1,m2,B,L,H,X,Y,Z,W,N,e;/cout<<" 请分别输入椭球的长半轴、短半轴（国际单位） "<<endl; /cin>>a>>b;a=6378137;/ 以 WGS84为例b=6

2、356752.3142;e=sqrt(a*a -b*b)/a;c=a*a/b;int x;cout<<" 请输入 0 或 1， 0:大地坐标系到空间直角坐标系； 1：空间直角坐标系到大地坐标系 "<<endl;cin>>x;switch(x)case 0:cout<<" 请分别输入该点大地纬度、经度、大地高（国际单位,纬度经度请按度分秒，分别输入） "<<endl;cin>>d1>>f1>>m1>>d2>>f2>>m2>

3、;>H;B=PI*(d1+f1/60+m1/3600)/180;L=PI*(d2+f2/60+m2/3600)/180;W=sqrt(1 -e*e*sin(B)*sin(B);N=a/W;X=(N+H)*cos(B)*cos(L);Y=(N+H)*cos(B)*sin(L);Z=(N*(1 -e*e)+H)*sin(B);cout<<" 空 间 直 角 坐 标 系 中X,Y,Z ， 坐 标 值 （ 国 际 单 位 ） 分 别 为"<<fixed<<setprecision(6)<<X<<""

4、;<<fixed<<setprecision(6)<<Y<<""<<fixed<<setprecision(6)<<Z<<endl;break;case 1:cout<<" 请分别输入空间直角坐标系中X,Y,Z 的值（国际单位）"<<endl;cin>>X>>Y>>Z;doublet,m,n, P,k,B0;m=Z/sqrt(X*X+Y*Y);/t0B0=atan(m);/ 初值n=Z/sqrt(X*

5、X+Y*Y);最新课件P=c*e*e/sqrt(X*X+Y*Y);k=1+(a*a -b*b)/(b*b);t=m+P*n/sqrt(k+n*n); /现在为 t1，之后代替t2,t3.B=atan(t);W=sqrt(1 -e*e*sin(B)*sin(B);N=a/W;H=Z/sin(B) - N*(1 -e*e);int i;for(i=1;fabs(B -B0)>10E-10;i+)/ 每一次新的B 与上一次计算的B 比较， 误差小于 10E-10radB0=B;n=t;t=m+P*n/sqrt(k+n*n);/迭代B=atan(t);W=sqrt(1 -e*e*sin(B)*s

6、in(B);N=a/W;/if(X<0)&(Y>0)/L=atan(Y/X)+PI;/if(X<0)&(Y<0)/ L=atan(Y/X)+PI;/ if(X>0)&(Y<0) /L=2*PI -atan(Y/X);L=atan2(Y,X);H=sqrt(X*X+Y*Y)/cos(B)-N;int Bd,Bf,Ld,Lf;double Bm,Lm;B=180*B/PI;/B 转化为度做单位Bd=B;Bf=(B-Bd)*60;Bm=(B-Bd)*60 -Bf)*60;L=180*L/PI;/L 转化为度做单位Ld=L;Lf=(L-Ld)*60;Lm=(L-Ld)*60 -Lf)*60;cout<<" 大地坐标系中纬度，经度，大地高（国际单位）分别为"<<Bd<<" "<<Bf<<""<<fixed<<setprecision(6)<<Bm<<endl<<Ld<<""<<Lf<<""<<fixed<<setp