C语言计算某纬度一点的子午圈和卯酉圈半径
1.输入纬度,计算子午圈和卯酉圈半径。
输入1,选为国际75椭球。输入纬度12°34′56″,计算出来子午圈半径为6338193.296米,卯酉圈半径为6379063.053米。
输入方位角为21°43′6″,该点的曲率半径为6343412.766米。
2.部分源代码
#include<stdio.h>
#include<math.h>
#define guoji75_a 6378140.00
#define guoji75_b 6356755.2881575287
#define PI 3.1415926535897932
#define keshi_a 6378245.0
#define keshi_b 6356863.0187730473
double zwqqlbj (int w[],double a,double b)
{
double B,M,e1;
e1 = (sqrt((a * a) - (b * b))) / a;
B = (w[0] + (w[1] / 60) + (w[2] / 3600)) * PI /180;
M=......
return M;
}
double myqqlbj(int w[],double a,double b)
{
double B,N,e1;
e1 = (sqrt((a * a) - (b * b))) / a;
B = (w[0] + (w[1] / 60) + (w[2] / 3600)) * PI /180;
N = ...
return N;
}
double ryfjhqlbj(int w[],double M,double N)
{
double A,R;
A = (w[0] + (w[1] / 60) + (w[2] / 3600)) * PI/ 180;
R = ...
}
double zwxhc(int w[],int tuoqiu)
{
double X,B;
B = (w[0] + (w[1] / 60) + (w[2] / 3600)) * PI /180;
if(tuoqiu==1)
X=111133.005*B*180/PI-16038.528*sin(2*B)+16.833*sin(4*B)-0.022*sin(6*B);
if(tuoqiu==2)
X=111134.861*B*180/PI-16036.48*sin(2*B)+16.828*sin(4*B)-0.022*sin(6*B);
return X;
}
main()
{
double a, e1,e2,M,N,R,_a,_b,A,B,X,P,x1,x2;
int weidu[3],fangweijiao[3],L1[3],L2[3],B1[3],B2[3],weidu1[3],weidu2[3];
int i,fg;
printf("请输入计算所用的椭球(国际75椭球请输1,克氏椭球请输2,回车结束。):\n\n");
scanf_s("%d",&fg);
if(fg==1)
{
_a=guoji75_a;
_b=guoji75_b;
}
else if(fg==2)
{
_a=keshi_a;
_b=keshi_b;
}
printf("请输入某点的纬度(度分秒之间用空格隔开,按回车结束):\n\n");
for(i=0;i<3;i++)
scanf_s("%d",&weidu[i]);
M = zwqqlbj(weidu,_a,_b);
printf("纬度为%d°%d′%d″处子午圈曲率半径M=%f米\n\n",weidu[0],weidu[1],weidu[2],M);
N = myqqlbj(weidu,_a,_b);
printf("纬度为%d°%d′%d″处卯酉圈曲率半径N=%f米\n\n",weidu[0],weidu[1],weidu[2],N);
X=zwxhc(weidu,fg);
printf("从赤道到纬度为%d°%d′%d″的子午线弧长为%f米\n\n",weidu[0],weidu[1],weidu[2],X);
printf("请输入一个方位角(度分秒之间用空格隔开,按回车结束):\n\n");
for(i=0;i<3;i++)
scanf_s("%d",&fangweijiao[i]);
R = ryfjhqlbj(fangweijiao,M,N);
printf("纬度%d°%d′%d″处方位角为%d°%d′%d″方向的曲率半径为:%f米\n\n",weidu[0],weidu[1],weidu[2],fangweijiao[0],fangweijiao[1],fangweijiao[2],R);
}