#include?“iostream.h“//C++輸入輸出函數(shù)庫
#include????????????//格式化輸入輸出所要引用的包
#include????????????????//引入CString類
#include????//數(shù)學(xué)函數(shù)庫
#include????//C語言中的輸入輸出庫
#include?//包含exit（）函數(shù)
#include?“fstream“
using?namespace?std;
#include?“FactorAnalysis.h“

void?FactorAnalysis::delete_array（double?*data）//data傳遞被釋放的指針
?{//釋放動態(tài)分配的內(nèi)存空間
	delete?[]?data;???
	return;
?}?

void?FactorAnalysis::delete_array（double?**dataint?N）//data傳遞被釋放的指針x傳遞指針指向的數(shù)組的長度
{//釋放動態(tài)分配的內(nèi)存空間
	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;//不忽略空白且把每行最后那個(gè)‘\n‘也讀進(jìn)來
???	//判斷行數(shù)和列數(shù)文件中每列數(shù)據(jù)以空格隔開

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

	while（ifs>>chr）
	{
	???switch（chr）
	???{
		case?‘\n‘:?//判斷讀入字符是否為換行符
			if（lastchr?!=?‘\n‘）
			{
				++row;?//是換行符則行數(shù)＋1
				col?=?0;?//是換行符則列數(shù)清零
			}
		break;
		case?‘?‘:?//判斷讀入字符是否為空格
			++?col;?//則列數(shù)＋1
			if?（maxcol?				maxcol?=?col;
		break;
		default:;
	???}
	???lastchr?=?chr;	???
	}
		//獲取樣本數(shù)據(jù)	
	N=row;
	P=maxcol;
	X=new?double?*[N];//建立代表組成二維數(shù)組的各一維數(shù)組名的指針數(shù)組
	if（X==0）{???
		Emgs?=?“內(nèi)存分配失敗！程序終止。“;
		return?false;???
	}???
	for（int?j=0;j		X[j]=new?double[P+1];//建立所有一維數(shù)組??
	if（X[0]==0）{???
		Emgs?=?“內(nèi)存分配失敗！程序終止。“;
		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;
	//動態(tài)創(chuàng)建數(shù)組變量
	C=new?double?*[P];
????if?（C==0）
	{
?		cout<<“內(nèi)存分配失敗！程序終止。“<		exit（1）;??
	}
	for（j=0;j		C[j]=new?double[P];//建立所有一維數(shù)組??
	if（C[0]==0）
	{???
		cout<<“內(nèi)存分配失敗！程序終止。“<		delete_array（FactorAnalysis::XN）;
		exit（1）;??return?false;
	}
	v=new?double?*[P];
????if?（v==0）
	{
?		cout<<“內(nèi)存分配失敗！程序終止。“<		exit（1）;??return?false;
	}
	for（j=0;j		v[j]=new?double[P];//建立所有一維數(shù)組??
	if（v[0]==0）
	{???
		cout<<“內(nèi)存分配失敗！程序終止。“<		delete_array（FactorAnalysis::XN）;
		delete_array（FactorAnalysis::CP）;
		exit（1）;??return?false;
	}
	H=new?double[P];
	if（H==0）
	{???
		cout<<“內(nèi)存分配失敗！程序終止。“<		delete_array（FactorAnalysis::XN）;
		delete_array（FactorAnalysis::CP）;
		delete_array（FactorAnalysis::vP）;
		exit（1）;??return?false;
	}
?
	LH=new?double[P];
	if（LH==0）
	{???
		cout<<“內(nèi)存分配失敗！程序終止。“<		delete_array（FactorAnalysis::XN）;
		delete_array（FactorAnalysis::CP）;
		delete_array（FactorAnalysis::vP）;
		delete_array（H）;
		exit（1）;??return?false;
	}
	

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件??????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個(gè)文件信息