空間直角坐標(biāo)系與大地坐標(biāo)系轉(zhuǎn)換程序

1、精選優(yōu)質(zhì)文檔-傾情為你奉上 空間直角坐標(biāo)系與大地坐標(biāo)系轉(zhuǎn)換程序#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<<"請(qǐng)分別輸入橢球的長(zhǎng)半軸、短半軸（國(guó)際單位）"<<endl; /cin>>a>>b; a=; /以WG

2、S84為例b=.3142;e=sqrt(a*a-b*b)/a;c=a*a/b;int x;cout<<"請(qǐng)輸入0或1，0:大地坐標(biāo)系到空間直角坐標(biāo)系；1：空間直角坐標(biāo)系到大地坐標(biāo)系"<<endl;cin>>x; switch(x) case 0: cout<<"請(qǐng)分別輸入該點(diǎn)大地緯度、經(jīng)度、大地高（國(guó)際單位,緯度經(jīng)度請(qǐng)按度分秒，分別輸入）"<<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<<"空間直角坐標(biāo)系中X,Y,Z，坐標(biāo)值（國(guó)際單位）分別為"<<fixed<<setprecision(6)<<X<<" "<<fixed<&

4、lt;setprecision(6)<<Y<<" "<<fixed<<setprecision(6)<<Z<<endl;break; case 1: cout<<"請(qǐng)分別輸入空間直角坐標(biāo)系中X,Y,Z的值（國(guó)際單位）"<<endl; cin>>X>>Y>>Z; double t,m,n, P,k,B0; m=Z/sqrt(X*X+Y*Y); /t0 B0=atan(m); /初值 n=Z/sqrt(X*X+Y*Y); P=c

5、*e*e/sqrt(X*X+Y*Y); k=1+(a*a-b*b)/(b*b); t=m+P*n/sqrt(k+n*n); /現(xià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與上一次計(jì)算的B比較，誤差小于10E-10 rad B0=B; n=t; t=m+P*n/sqrt(k+n*n);/迭代 B=atan(t); W=sqrt(1-e*e*sin(B)*sin(B); N=a/

6、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轉(zhuǎn)化為度做單位 Bd=B; Bf=(B-Bd)*60; Bm=(B-Bd)*60-Bf)*60; L=180*L/PI;/L轉(zhuǎn)化為度做單位 Ld=L; Lf=(L-Ld)*60; Lm=(L-Ld)*60-Lf)*60; cout<<"大地坐標(biāo)系中緯度，經(jīng)度，大地高（國(guó)際單位）分別為"<<Bd<<" "<<Bf<<" "<<fixed<<setprecision(6)<<Bm<<endl<<Ld<<" "<<Lf<<" "<<fixed<<setpr