用VC++编写的因子分析程序

我们正在做一个多元统计分析软件平台，这是多元统计分析中的因子分析程序，是用VC++编写的，比较实用。

#include “iostream.h“//C++输入输出函数库
#include            //格式化输入输出所要引用的包
#include                //引入CString类
#include    //数学函数库
#include    //C语言中的输入输出库
#include //包含exit（）函数
#include “fstream“
using namespace std;
#include “FactorAnalysis.h“

void FactorAnalysis::delete_array（double *data）//data传递被释放的指针
 {//释放动态分配的内存空间
	delete [] data;   
	return;
 } 

void FactorAnalysis::delete_array（double **dataint N）//data传递被释放的指针x传递指针指向的数组的长度
{//释放动态分配的内存空间
	for（int i=0;i		delete [] data[i];   
	delete [] data;  
	return;
}
FactorAnalysis::FactorAnalysis（CString FileName）
{
	if（!LoadFile（FileName））//判断文件是否打开
	{
		cout<		system（“pause“）;
		exit（1）;
	}
}
bool FactorAnalysis::LoadFile（CString FileName）
{
    int row=0 col maxcol;
	ifstream ifs（FileName）;
	ifs>>noskipws;//不忽略空白且把每行最后那个‘\n‘也读进来
   	//判断行数和列数文件中每列数据以空格隔开

	char chrlastchr;
	row=0;
	col=0;
	maxcol=0;
	lastchr = ‘ ‘;

	while（ifs>>chr）
	{
	   switch（chr）
	   {
		case ‘\n‘: //判断读入字符是否为换行符
			if（lastchr != ‘\n‘）
			{
				++row; //是换行符则行数＋1
				col = 0; //是换行符则列数清零
			}
		break;
		case ‘ ‘: //判断读入字符是否为空格
			++ col; //则列数＋1
			if （maxcol < col）
				maxcol = col;
		break;
		default:;
	   }
	   lastchr = chr;	   
	}
		//获取样本数据	
	N=row;
	P=maxcol;
	X=new double *[N];//建立代表组成二维数组的各一维数组名的指针数组
	if（X==0）{   
		Emgs = “内存分配失败！程序终止。“;
		return false;   
	}   
	for（int j=0;j		X[j]=new double[P+1];//建立所有一维数组  
	if（X[0]==0）{   
		Emgs = “内存分配失败！程序终止。“;
		delete_array（X0）;
		return false; 
	}

	int row1=0col1=0;
	ifs.clear（）;
	ifs.seekg（0std::ios::beg）; 
	ifs>>skipws;//忽略空白和‘\n‘
	if（ifs.is_open（））
	{
		while（!ifs.eof（）） 
		{ 
			ifs>>X[row1][col1];  
			col1++;
			if（col1==P+1） 
			{	row1=row1+1;col1=0;}
		} 
      
		ifs.close（）;
	}
	else
	{
		Emgs = “样本文件读取失败！“;
		return false;
	}
	P=P+1;
	//动态创建数组变量
	C=new double *[P];
    if （C==0）
	{
 		cout<<“内存分配失败！程序终止。“<		exit（1）;  
	}
	for（j=0;j< P;j++）   
		C[j]=new double[P];//建立所有一维数组  
	if（C[0]==0）
	{   
		cout<<“内存分配失败！程序终止。“<		delete_array（FactorAnalysis::XN）;
		exit（1）;  return false;
	}
	v=new double *[P];
    if （v==0）
	{
 		cout<<“内存分配失败！程序终止。“<		exit（1）;  return false;
	}
	for（j=0;j< P;j++）   
		v[j]=new double[P];//建立所有一维数组  
	if（v[0]==0）
	{   
		cout<<“内存分配失败！程序终止。“<		delete_array（FactorAnalysis::XN）;
		delete_array（FactorAnalysis::CP）;
		exit（1）;  return false;
	}
	H=new double[P];
	if（H==0）
	{   
		cout<<“内存分配失败！程序终止。“<		delete_array（FactorAnalysis::XN）;
		delete_array（FactorAnalysis::CP）;
		delete_array（FactorAnalysis::vP）;
		exit（1）;  return false;
	}
 
	LH=new double[P];
	if（LH==0）
	{   
		cout<<“内存分配失败！程序终止。“<		delete_array（FactorAnalysis::XN）;
		delete_array（FactorAnalysis::CP）;
		delete_array（FactorAnalysis::vP）;
		delete_array（H）;
		exit（1）;  return false;
	}
	

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

     文件      85320  2010-05-10 09:16  因子分析\Debug\FactorAnalysis.obj

     文件          0  2010-05-10 09:16  因子分析\Debug\FactorAnalysis.sbr

     文件      16693  2010-05-07 11:13  因子分析\Debug\main.obj

     文件          0  2010-05-07 11:13  因子分析\Debug\main.sbr

     文件       1715  2010-05-07 11:13  因子分析\Debug\StdAfx.obj

     文件          0  2010-05-07 11:13  因子分析\Debug\StdAfx.sbr

     文件     197632  2010-05-10 09:16  因子分析\Debug\vc60.idb

     文件     167936  2010-05-10 09:16  因子分析\Debug\vc60.pdb

     文件    2475008  2010-05-10 09:16  因子分析\Debug\因子分析2.bsc

     文件     139349  2010-05-10 09:16  因子分析\Debug\因子分析2.exe

     文件     455404  2010-05-10 09:16  因子分析\Debug\因子分析2.ilk

     文件    5768492  2010-05-07 11:13  因子分析\Debug\因子分析2.pch

     文件     336896  2010-05-10 09:16  因子分析\Debug\因子分析2.pdb

     文件      29655  2010-05-07 14:29  因子分析\FactorAnalysis.cpp

     文件       2396  2010-05-07 10:47  因子分析\FactorAnalysis.h

     文件       1340  2010-05-06 15:08  因子分析\FactorAnalysis.txt

     文件       1125  2010-05-06 15:54  因子分析\main.cpp

     文件        304  2010-05-07 18:05  因子分析\mssccprj.scc

     文件        305  2010-05-06 15:54  因子分析\StdAfx.cpp

     文件        771  2010-05-06 15:54  因子分析\StdAfx.h

    ..A.SHR       405  2010-05-07 18:05  因子分析\vssver2.scc

     文件       4326  2010-05-07 11:14  因子分析\因子分析2.dsp

     文件        526  2010-05-06 15:51  因子分析\因子分析2.dsw

     文件      74752  2010-05-07 15:28  因子分析\因子分析2.ncb

     文件      54784  2010-05-10 09:23  因子分析\因子分析2.opt

     文件       1169  2010-05-07 14:28  因子分析\因子分析2.plg

     目录          0  2010-05-10 09:16  因子分析\Debug

     目录          0  2010-05-10 09:23  因子分析

----------- ---------  ---------- -----  ----

              9816303                    28

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