白塞尔大地主题解算MFC

// Fansuan.cpp : 实现文件
//

#include “stdafx.h“
#include “白塞尔大地主题解算.h“
#include “Fansuan.h“
#include “afxdialogex.h“
#include

// CFansuan 对话框

IMPLEMENT_DYNAMIC（CFansuan CDialogEx）

CFansuan::CFansuan（CWnd* pParent /*=NULL*/）
	: CDialogEx（CFansuan::IDD pParent）
	 ang1（0）
	 min1（0）
	 sec1（0）
	 ang2（0）
	 ang3（0）
	 ang4（0）
	 min2（0）
	 sec2（0）
	 min3（0）
	 sec3（0）
	 min4（0）
	 sec4（0）
	 S（0）
	 A11（0）
	 A22（0）
{
	pi=4*atan（1.0）;
}

CFansuan::~CFansuan（）
{
}

void CFansuan::DoDataExchange（CDataExchange* pDX）
{
	CDialogEx::DoDataExchange（pDX）;
	DDX_Text（pDX IDC_EDIT17 ang1）;
	DDX_Text（pDX IDC_EDIT12 min1）;
	DDV_MinMaxInt（pDX min1 0 59）;
	DDX_Text（pDX IDC_EDIT16 sec1）;
	DDV_MinMaxDouble（pDX sec1 0 60）;
	DDX_Text（pDX IDC_EDIT2 ang2）;
	DDX_Text（pDX IDC_EDIT4 ang3）;
	DDX_Text（pDX IDC_EDIT19 ang4）;
	DDX_Text（pDX IDC_EDIT9 min2）;
	DDV_MinMaxInt（pDX min2 0 59）;
	DDX_Text（pDX IDC_EDIT13 sec2）;
	DDV_MinMaxDouble（pDX sec2 0 60）;
	DDX_Text（pDX IDC_EDIT14 min3）;
	DDV_MinMaxInt（pDX min3 0 59）;
	DDX_Text（pDX IDC_EDIT15 sec3）;
	DDV_MinMaxDouble（pDX sec3 0 60）;
	DDX_Text（pDX IDC_EDIT11 min4）;
	DDV_MinMaxInt（pDX min4 0 59）;
	DDX_Text（pDX IDC_EDIT18 sec4）;
	DDV_MinMaxDouble（pDX sec4 0 60）;
	DDX_Text（pDX IDC_EDIT7 S）;
	DDX_Control（pDX IDC_COMBO1 comtuoqiu）;
	DDX_Text（pDX IDC_EDIT5 A11）;
	DDX_Text（pDX IDC_EDIT6 A22）;
}


BEGIN_MESSAGE_MAP（CFansuan CDialogEx）
//	ON_EN_CHANGE（IDC_EDIT17 &CFansuan::OnEnChangeEdit17）
	ON_BN_CLICKED（IDC_BUTTON1 &CFansuan::OnBnClickedButton1）
	ON_CBN_SELCHANGE（IDC_COMBO1 &CFansuan::OnSelchangeCombo1）
END_MESSAGE_MAP（）


// CFansuan 消息处理程序



#include
void CFansuan::OnBnClickedButton1（）
{
	// TODO: 在此添加控件通知处理程序代码
	UpdateData（TRUE）;
	B1=（ang1+min1/60.0+sec1/3600.0）*pi/180.0;
	L1=（ang2+min2/60.0+sec2/3600.0）*pi/180.0;
	B2=（ang3+min3/60.0+sec3/3600.0）*pi/180.0;
	L2=（ang4+min4/60.0+sec4/3600.0）*pi/180.0;
	InverseComputation（ a be2 e_2B1L1B2L2） ;
	UpdateData（FALSE）;
}

void CFansuan::InverseComputation（double adouble bdouble e2double e_2double B1double L1double B2double L2）   
{
		UpdateData（TRUE）;
	//辅助计算
	double W1W2sin_u1cos_u1sin_u2cos_u2;
	W1=sqrt（1-e2*sin（B1）*sin（B1））;
	W2=sqrt（1-e2*sin（B2）*sin（B2））;
	sin_u1=sin（B1）*sqrt（1-e2）/W1;
	cos_u1=cos（B1）/W1;
	sin_u2=sin（B2）*sqrt（1-e2）/W2;
	cos_u2=cos（B2）/W2;
	double La1a2b1b2;
	L=L2-L1;
	a1=sin_u1*sin_u2;
	a2=cos_u1*cos_u2;
	b1=cos_u1*sin_u2;
	b2=sin_u1*cos_u2;

	//逐次趋近法同时计算起点大地方位角、球面长度和经差
	double lamdapqA1det;
	double cos2_A0sin_A0;
	double *deta=new double[100];
	double xyafabeita_1;
	double sin_rocos_roro;
	deta[0]=0;
	int n=0;
	do
	{ 
		lamda=L+deta[n];
		p=cos_u2*sin（lamda）;
		q=b1-b2*cos（lamda）;
		A1=double（atan（p/q））;
		if（p>0&&q>0）
			A1=fabs（A1）;
		if（p>0&&q<0）
			A1=pi-fabs（A1）;
		if（p<0&&q<0）
			A1=pi+fabs（A1）;
		if（p<0&&q>0）
			A1=2*pi-fabs（A1）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       4734  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算Debugcl.command.1.tlog

     文件      73616  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算DebugCL.read.1.tlog

     文件       5306  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算DebugCL.write.1.tlog

     文件      49825  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算DebugFansuan.obj

     文件          2  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debuglink-cvtres.read.1.tlog

     文件          2  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debuglink-cvtres.write.1.tlog

     文件       3092  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debuglink.command.1.tlog

     文件       7696  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debuglink.read.1.tlog

     文件       2518  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debuglink.write.1.tlog

     文件        840  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debugmt.command.1.tlog

     文件        972  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debugmt.read.1.tlog

     文件        700  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debugmt.write.1.tlog

     文件       1516  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug
c.command.1.tlog

     文件       4612  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug
c.read.1.tlog

     文件        958  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug
c.write.1.tlog

     文件     641273  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debugstdafx.obj

     文件    2018304  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算Debugvc100.idb

     文件    3469312  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算Debugvc100.pdb

     文件      54767  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debughengsuan.obj

     文件        667  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.exe.embed.manifest

     文件        732  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.exe.embed.manifest.res

     文件        381  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.exe.intermediate.manifest

     文件        170  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.lastbuildstate

     文件       3237  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.log

     文件      31899  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.obj

     文件   33882112  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.pch

     文件     300336  2014-12-16 01:16  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算.res

     文件      48604  2014-12-16 01:10  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算Dlg.obj

     文件        208  2014-12-16 01:06  白塞尔大地主题解算白塞尔大地主题解算Debug白塞尔大地主题解算_manifest.rc

     文件       5528  2014-12-16 01:14  白塞尔大地主题解算白塞尔大地主题解算Fansuan.cpp

............此处省略32个文件信息