同一坐标系下不同投影带换带程序实现

辽宁工程技术大学大地测量基础综合训练二教学单位 测绘与地理科学学院 专 业 测绘工程 名 称 同一坐标系不同投影带 坐标程序设计与实现 班 级 测绘15-3 学 号 学生姓名 王瑞征 指导教师 王佩贤 部分源码坐标反算UpdateData(true); (CEdit*)GetDlgItem(IDC_EDIT3)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT4)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT5)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT6)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT7)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT8)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT9)-EnableWindow(true);对应的编辑框的可用性double Bf,beta,Z,Nf,b2,b3,b4,b5,l,B,L,Bf2,beta2;beta=m_X*P/.4969;beta2=cos(beta/P)*cos(beta/P);Bf=beta+(+(+(2350+22*beta2)*beta2)*beta2)*sin(beta/P)*cos(beta/P)*P*0.;Bf2=cos(Bf/P)*cos(Bf/P);Nf=.902-(21562.267-(108.973-0.612*Bf2)*Bf2)*Bf2;Z=m_Y/(Nf*cos(Bf/P);b2=(0.5+0.*Bf2)*sin(Bf/P)*cos(Bf/P);b3=0.-(0.-0.*Bf2)*Bf2;b4=0.25+(0.16161+0.00562*Bf2)*Bf2;b5=0.2-(0.1667-0.0088*Bf2)*Bf2; B=Bf-(1-(b4-0.12*Z*Z)*Z*Z)*Z*Z*b2*P; l=(1-(b3-b5*Z*Z)*Z*Z)*Z*P;L=m_LO*3600+l;m_B0=(int)(B/3600);m_B1=(int)(B-m_B0*3600)/60);m_B2=B-(m_B0*3600+m_B1*60);m_L0=(int)(L/3600);m_L1=(int)(L-m_L0*3600)/60);m_L2=L-(m_L0*3600+m_L1*60);UpdateData(false);坐标正算：UpdateData(true);(CEdit*)GetDlgItem(IDC_EDIT1)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT2)-EnableWindow(true);/使坐标X，Y编辑框可用double B,L,l,N,BB,a0,a3,a4,a5,a6;L=(m_L0*3600+m_L1*60+m_L2)/P;B=(m_B0*3600+m_B1*60+m_B2)/P;BB=cos(B)*cos(B); l=(m_L0*3600+m_L1*60+m_L2-m_LO*3600)/P;N=.902-(21562.267-(108.973-0.612*BB)*BB)*BB;a0=32140.404-(135.3302-(0.7092-0.0040*BB)*BB)*BB;a3=(0.+0.*BB)*BB-0.;a4=(0.25+0.00252*BB)*BB-0.04166;a5=0.0083-(0.1667-(0.1968+0.0040*BB)*BB)*BB;a6=(0.166*BB-0.084)*BB;m_X=.4969*B-(a0-(0.5+(a4+a6*l*l)*l*l)*l*l*N)*sin(B)*cos(B);m_Y=(1+(a3+a5*l*l)*l*l)*l*N*cos(B);UpdateData(false);/释放显示数据换带计算： UpdateData(true);(CEdit*)GetDlgItem(IDC_EDIT10)-EnableWindow(true);(CEdit*)GetDlgItem(IDC_EDIT12)-EnableWindow(true);double Bf,beta,Z,Nf,b2,b3,b4,b5,l,B,L,Bf2,beta2;beta=m_X*P/.4969;beta2=cos(beta/P)*cos(beta/P);Bf=beta+(+(+(2350+22*beta2)*beta2)*beta2)*sin(beta/P)*cos(beta/P)*P*0.;Bf2=cos(Bf/P)*cos(Bf/P);Nf=.902-(21562.267-(108.973-0.612*Bf2)*Bf2)*Bf2;Z=m_Y/(Nf*cos(Bf/P);b2=(0.5+0.*Bf2)*sin(Bf/P)*cos(Bf/P);b3=0.-(0.-0.*Bf2)*Bf2;b4=0.25+(0.16161+0.00562*Bf2)*Bf2;b5=0.2-(0.1667-0.0088*Bf2)*Bf2; /参数计算部分B=Bf-(1-(b4-0.12*Z*Z)*Z*Z)*Z*Z*b2*P; l=(1-(b3-b5*Z*Z)*Z*Z)*Z*P;L=m_LO*3600+l;m_B0=(int)(B/3600);m_B1=(int)(B-m_B0*3600)/60);m_B2=B-(m_B0*3600+m_B1*60);m_L0=(int)(L/3600);BB=cos(B1)*cos(B1); l1=(L-m_XINL0*3600)/P;N=.902-(21562.267-(108.973-0.612*BB)*BB)*BB;a0=32140.404-(135.3302-(0.7092-0.0040*BB)*BB)*BB;a3=(0.+0.*BB)*BB-0.;a4=(0.25+0.00252*BB)*BB-0.04166;a5=0.0083-(0.1667-(0.1968+0.0040*BB)*BB)*BB;a6=(0.166*BB-0.084)*BB;m_XINX=