📄 resultdlg.cpp

📁 基于vc环境开发的主成分分析软件
💻 CPP
字号:
// ResultDlg.cpp : implementation file
//

#include "stdafx.h"
#include "ProGram2.h"
#include "ResultDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CResultDlg dialog


CResultDlg::CResultDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CResultDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CResultDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
}

void CResultDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CResultDlg)
	DDX_Control(pDX, IDC_LIST1, m_List1);
	//}}AFX_DATA_MAP
}
BOOL CResultDlg::OnInitDialog() 
{
	CDialog::OnInitDialog();
	m_List1.AddString(" ");
	m_List1.AddString("==============================================================分析结果=========================================================");
	m_List1.AddString(" ");
	m_List1.AddString(" ");
	CString black="      ";//矩阵距离左边的距离
	///
	///
	///显示测试

/*	// TODO: Add extra initialization here
	m_List1.AddString("--------------------结果显示窗口测试---------------");
	m_List1.AddString("  ");
	m_List1.AddString("_____________________________________________________");
	m_List1.AddString(" . \t 454545 4545");
	m_List1.AddString(" . 11    11");
	m_List1.AddString(" . 22    22");
	m_List1.AddString(" . ");
	m_List1.AddString(" . ");
	m_List1.AddString(" . ");
	m_List1.AddString(" . ");
	m_List1.AddString(" . ");
	m_List1.AddString("____________________________________________________");
	
	MatrixOut(m_Matrix[m_matrixNum-1],black);
	MatrixOut(m_Matrix[m_matrixNum-1],black);*/

	//for(int i=1;i<=m_matrixNum;i++)
	//{
	//	MatrixOut(m_Matrix[i-1],"    ");
	//}
	//////////////////////////////////////
	///
	///结果输出
	if(m_resultkind==1)
	{//主成分分析结果输出
		m_List1.AddString("标准化样本数据:");
		MatrixOut(m_Matrix[0],black);
		m_List1.AddString(" ");
		CString s;
		s.Format("前%d个主成分的特征根、贡献率和累积贡献率:",m_J[1]);
		m_List1.AddString(s);
		m_List1.AddString("（第一行为特征根，第二行为贡献率，第三行为累积贡献率）");
		MatrixOut(m_Matrix[1],black);
		m_List1.AddString(" ");
		s.Format("前%d个主成分的特征间量(各行对应一个指标):",m_J[1]);
		m_List1.AddString(s);
		MatrixOut(m_Matrix[2],black);
		m_List1.AddString(" ");
		m_List1.AddString("因子载荷阵(行对应指标,列对应主成分):");
		MatrixOut(m_Matrix[4],black);
		m_List1.AddString(" ");
		s.Format("样本的前%d个主成分得分值:",m_J[1]);
		m_List1.AddString(s);
		MatrixOut(m_Matrix[3],black);

	}
	else if(m_resultkind==2)
	{//对应分析结果输出
		CMatrix a(m_Matrix[0]);
		CString s;
		s.Format("%d个样本的主成分得分值:",a.GetNumRows());
		m_List1.AddString(s);
		MatrixOut(m_Matrix[0],black);		
		m_List1.AddString(" ");
		a=m_Matrix[1];
		s.Format(" R型因子载荷阵:");
		m_List1.AddString(s);
		MatrixOut(m_Matrix[1],black);
		m_List1.AddString(" ");
		a=m_Matrix[2];
		s.Format("%d个性状的主成分得分:",a.GetNumRows());
		m_List1.AddString(s);
		MatrixOut(m_Matrix[2],black);
		m_List1.AddString(" ");
		a=m_Matrix[3];
		s.Format(" Q型因子载荷阵:",a.GetNumRows());
		m_List1.AddString(s);
		MatrixOut(m_Matrix[3],black);
		m_List1.AddString(" ");
	}
	else if(m_resultkind==3)
	{//因子分析结果输出
		if(m_J[0])
		{
			m_List1.AddString("标准化矩阵：");
			MatrixOut(m_Matrix[0],black);
		}
		if(m_J[1])
		{
			m_List1.AddString(" ");
			m_List1.AddString("相关矩阵:");
			MatrixOut(m_Matrix[1],black);
		}
		if(m_J[2])
		{
			m_List1.AddString(" ");
			m_List1.AddString("特征值与特征矩阵(第一行为特征根，其后为相应特征向量):");
			MatrixOut(m_Matrix[2],black);			
		}
		if(m_J[3])
		{
			m_List1.AddString(" ");
			m_List1.AddString("因子载荷阵:");
			MatrixOut(m_Matrix[3],black);			
		}
		m_List1.AddString(" ");
		m_List1.AddString("因子模型:");
		CMatrix a(m_Matrix[4]);
		if(a.GetNumCols()>8)
			MatrixOut(m_Matrix[4],black,1,false);
		else
			MatrixOut(m_Matrix[4],black,1,true);
		if(m_J[5])
		{
			m_List1.AddString(" ");
			m_List1.AddString("旋转后的主因子载荷阵:");
			MatrixOut(m_Matrix[5],black);
		}
		m_List1.AddString(" ");
		m_List1.AddString("因子得分(行对应因子):");
		MatrixOut(m_Matrix[6],black);
	}
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

BEGIN_MESSAGE_MAP(CResultDlg, CDialog)
	//{{AFX_MSG_MAP(CResultDlg)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CResultDlg message handlers

void CResultDlg::TranMemberNumber(int resultkind, CMatrix Matrix[], int matrixNum,int J[])
{
	m_resultkind=resultkind;
	m_matrixNum=matrixNum;
	m_Matrix=new CMatrix[m_matrixNum];
	m_Matrix=Matrix;
	m_J=J;
}
///
///
///接下来是两个重载函数，第一个输出一般矩阵，第二个输出、、、
void CResultDlg::MatrixOut(CMatrix matrix,CString black)
{
	if(matrix==NULL)
	{
		MessageBox("空矩阵");
		return;
	}
	int n=matrix.GetNumRows(),p=matrix.GetNumCols();
	int i,j;
	if(matrix.GetNumCols()>8)
	{
		CMatrix matrix1(n,8);
		CMatrix matrix2(n,p-8);
		for(i=0;i<n;i++)
		{
			for(j=0;j<8;j++)
			{
				matrix1.SetElement(i,j,matrix.GetElement(i,j));
			}
			for(j=0;j<p-8;j++)
			{
				matrix2.SetElement(i,j,matrix.GetElement(i,8+j));
			}
		}
		MatrixOut(matrix1,black);
		MatrixOut(matrix2,black);
	}
	else
	{
		//black为矩阵距离左边的距离
		CString s,member,t="    ";//t为矩阵中数据之间的距离
		s=black;
		for(i=0;i<=p+1;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);//输出矩阵前面的横线
		for(i=0;i<n;i++)
		{
			s=black+black;
			for(j=0;j<p;j++)
			{
				member.Format("%f",(double)matrix.GetElement(i,j));// 取矩阵元素
				s=s+member;
				s=s+t;
			}
			m_List1.AddString(s);
		}
		s=black;
		for(i=0;i<=p+1;i++)
			s=s+"~~~~~~~~~~~";
	
		m_List1.AddString(s);//输出矩阵后面的横线
		m_List1.AddString("   ");
		
	}	
}

void CResultDlg::MatrixOut(CMatrix matrix, CString black, int matrixNum, bool isLastMatrix)
{
	int i,j;

	if(matrix.GetNumCols()==9)
	{
		CString s,member,t="    ";
		s=black;
		for(i=0;i<=9;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
		s=black+black;
		for(i=1;i<8;i++)
		{
			
			member.Format("因子%d",(matrixNum-1)*8+i);
			s=s+member;
			s=s+t+t;
		}
		s=s+"共同度";
		m_List1.AddString(s);
		for(i=0;i<matrix.GetNumRows();i++)
		{
			s=black+black;
			for(j=0;j<8;j++)
			{
				member.Format("%f",(double)matrix.GetElement(i,j));
				s=s+member;
				s=s+t;
			}
			m_List1.AddString(s);
		}
		s=black;
		for(i=0;i<=9;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
		s=black;
		for(i=0;i<=2;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
		s=black+black;
		s=s+"特殊方差";
		m_List1.AddString(s);
		for(i=0;i<matrix.GetNumCols();i++)
		{
			s=black+black;
			member.Format("%f",(double)matrix.GetElement(i,8));
			s=s+member;
			s=s+t;
			m_List1.AddString(s);
		}
		s=black;
		for(i=0;i<=2;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
	}
	else if(matrix.GetNumCols()<=8 && isLastMatrix==true)
	{
		CString s,member,t="   ";
		int i,j;
		int n=matrix.GetNumRows();
		int p=matrix.GetNumCols();
		s=black;
		for(i=0;i<p+1;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
		s=black+black;
		for(i=0;i<p-2;i++)
		{
			member.Format("因子%d",(matrixNum-1)*8+i+1);
			s=s+member;
			s=s+t+t;
		}
		s=s+"共同度";
		s=s+t+t;
		s=s+"特殊方差";
		m_List1.AddString(s);
		for(i=0;i<n;i++)
		{
			s=black+black;
			for(j=0;j<p;j++)
			{
				member.Format("%f",(double)matrix.GetElement(i,j));
				s=s+member;
				s=s+t;
			}
			m_List1.AddString(s);
		}
		s=black;
		for(i=0;i<p+1;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
	}
	else if(matrix.GetNumCols()>8)
	{	
		CString s,member,t="    ";
		int i,j;
		int n=matrix.GetNumRows();
		int p=matrix.GetNumCols();
		CMatrix matrixA(n,p-8);

		for(i=0;i<n;i++)
		{
			for(j=8;j<p;j++)
			{
				matrixA.SetElement(i,j-8,matrix.GetElement(i,j));//将第8列后面的值放在另一个矩阵中
			}
		}
		//输出前8列；
		s=black;
		for(i=0;i<=9;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
		s=black+black;
		for(i=1;i<=8;i++)
		{
			
			member.Format("因子%d",(matrixNum-1)*8+i);
			s=s+member;
			s=s+t+t;
		}
		m_List1.AddString(s);
		for(i=0;i<8;i++)
		{
			s=black+black;
			for(j=0;j<8;j++)
			{
				member.Format("%f",(double)matrix.GetElement(i,j));
				s=s+member;
				s=s+t;
			}
			m_List1.AddString(s);
		}
		s=black;
		for(i=0;i<=9;i++)
			s=s+"~~~~~~~~~~~";
		m_List1.AddString(s);
		if(matrixA.GetNumCols()>8)
			MatrixOut(matrixA,black,matrixNum+1, false);
		else
			MatrixOut(matrixA,black,matrixNum+1, true);

	}
}
💿 文件大小 196 K
👤 上传用户 my
📂 所属分类数学计算
🏷️ 相关标签

#环境 #主成分分析 #软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -