?? program2dlg.cpp
字號:
for(j=tabelCols+1;j<=SS.GetTotalColumns();j++)
{
m_FlexGrid.SetCol(j-tabelCols);
s=Rows.GetAt(j-1);
if(s=="")
m_FlexGrid.SetText("0.0000");
if(IsNumber(s))
{
m_FlexGrid.SetText(s);
}
}
}
ShowWindow(SW_RESTORE);//顯示窗口
}
}
}
}
}
/////////////////////////////////////////////////
///
///
///導(dǎo)出數(shù)據(jù)到Excel
void CProGram2Dlg::OnMENU1PutOut()
{
// TODO: Add your command handler code here
//導(dǎo)出標(biāo)簽列沒有涉及
if(m_MeanRows==0||m_MeanCols==0)
{
MessageBox(" 不能保存空數(shù)據(jù) ","出錯啦");
return;
}
CFileDialog File(false,NULL,"數(shù)據(jù).xls",OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,"表格(*.xls)|*.xls||");
if(File.DoModal()==IDOK)
{
int i,j;
CString s;
CString sPath=File.GetPathName();
CSpreadSheet SS(sPath, "Sheet1");
CStringArray sampleArray, testRow;
SS.BeginTransaction();
// MessageBox(sPath);
///
// s.Format("%d",m_IsDataFromExcel);
// MessageBox(s);//測試是否數(shù)據(jù)來自excel文件
///
if(m_IsDataHasTabel)//數(shù)據(jù)來自表格，有標(biāo)題行
{
sampleArray.RemoveAll();
for(i=1;i<=m_MeanCols;i++)
{
sampleArray.Add(m_FlexGrid.GetTextMatrix(0,i));
}
SS.AddHeaders(sampleArray);
}
for(i=1;i<=m_MeanRows;i++)
{
sampleArray.RemoveAll();
for(j=1;j<=m_MeanCols;j++)
{
s=m_FlexGrid.GetTextMatrix(i,j);
sampleArray.Add(s);
}
SS.AddRow(sampleArray);
}
AfxMessageBox("文件寫入成功!");
}
}
void CProGram2Dlg::OnMenu1Clearn()
{
// TODO: Add your command handler code here
ShowWindow(SW_MINIMIZE);//隱藏窗口，在后臺錄入數(shù)據(jù)
UpdateData(true);
m_IsDataHasTabel=0;
m_IsDataHasTabelOnCol=0;
m_MeanRows=0;//有效行列初始化
m_MeanCols=0;
UpdateData(false);
m_FlexGrid.Clear();
m_FlexGrid.SetCols(m_NumCols);
m_FlexGrid.SetRows(m_NumRows);
m_FlexGrid.SetRow(0);
m_FlexGrid.SetCol(0);
m_FlexGrid.SetText("品種\\性狀");
m_FlexGrid.SetRow(0);
CString s;
for(int i=1;i<m_NumCols;i++)
{
m_FlexGrid.SetCol(i);
s.Format(" %d ",i);
m_FlexGrid.SetText(s);
}
m_FlexGrid.SetCol(0);
for(i=1;i<m_NumRows;i++)
{
m_FlexGrid.SetRow(i);
s.Format(" %d ",i);
m_FlexGrid.SetText(s);
}
m_Change.ShowWindow(SW_HIDE);
ShowWindow(SW_RESTORE);//顯示窗口
}
void CProGram2Dlg::OnMenu1New()
{
// TODO: Add your command handler code here
ShowWindow(SW_MINIMIZE);//隱藏窗口，在后臺錄入數(shù)據(jù)
m_FlexGrid.Clear();
UpdateData(true);
m_IsDataHasTabel=0;
m_IsDataHasTabelOnCol=0;
m_MeanRows=0;//有效行列初始化
m_MeanCols=0;
UpdateData(false);
m_NumRows=300;
m_NumCols=100;
m_FlexGrid.SetCols(m_NumCols);
m_FlexGrid.SetRows(m_NumRows);
m_FlexGrid.SetRow(0);
m_FlexGrid.SetCol(0);
m_FlexGrid.SetText("品種\\性狀");
m_FlexGrid.SetRow(0);
CString s;
for(int i=1;i<m_NumCols;i++)
{
m_FlexGrid.SetCol(i);
s.Format(" %d ",i);
m_FlexGrid.SetText(s);
}
m_FlexGrid.SetCol(0);
for(i=1;i<m_NumRows;i++)
{
m_FlexGrid.SetRow(i);
s.Format(" %d ",i);
m_FlexGrid.SetText(s);
}
m_Change.ShowWindow(SW_HIDE);
ShowWindow(SW_RESTORE);//顯示窗口
}
void CProGram2Dlg::OnMenu1Exit()
{
// TODO: Add your command handler code here
CSureExit dlg;
if(dlg.DoModal()==IDOK)
OnMENU1PutOut();
else
exit(0);
}
void CProGram2Dlg::OnMenu2Main()
{ // TODO: Add your command handler code here
//數(shù)據(jù)更新測試
// CString s;
// s.Format("%d---%d;;;;%d---%d",m_MeanRows,m_MeanCols,m_lRow,m_lCol);
// MessageBox(s);
//
MainFactorsData dlg;
dlg.m_MeanRows=m_MeanRows;
dlg.m_MeanCols=m_MeanCols;
dlg.m_OfferRate=0.80;
if(dlg.DoModal()==IDOK)
{
if(dlg.m_MeanCols<=0||dlg.m_MeanRows<=0)
{
MessageBox(" 錯誤的有效行列數(shù)! ","出錯啦");
return;
}
if(dlg.m_ModoKind==2)
{
MessageBox(" 沒有選擇分析模型! ","出錯啦");
return;
}
//Add our program on Main here
/*
CMatrix m_Matrix2; //標(biāo)準(zhǔn)化樣本數(shù)據(jù)
CMatrix m_Result1; //存放主成分的特征根，貢獻(xiàn)率和累計(jì)貢獻(xiàn)率
CMatrix m_Result2; //存放主成分系數(shù)
CMatrix m_Result3; //存放樣品的主成分得分值
CMatrix m_Result4; //主成分載荷因子
*/
CMatrix Data(ReadDataToMatrix(dlg.m_MeanRows,dlg.m_MeanCols));
Data=Data.Transpose();
MainFactor mainfactor(Data,dlg.m_OfferRate,dlg.m_ModoKind);
mainfactor.Analyze1();
CMatrix *a;
a=new CMatrix[5];
a[0]=mainfactor.m_Matrix2;
a[1]=mainfactor.m_Result1;
a[2]=mainfactor.m_Result2;
a[3]=mainfactor.m_Result3;
a[4]=mainfactor.m_Result4;
int J[5]={1,mainfactor.m_mainNum,1,1,1};//5個矩陣均需要輸出
CResultDlg result;
result.TranMemberNumber(1,a,5,J);
result.DoModal();
}
}
void CProGram2Dlg::OnMENU2ONorIN()
{// TODO: Add your command handler code here
ONorINData dlg;
dlg.m_MeanRows=m_MeanRows;
dlg.m_MeanCols=m_MeanCols;
dlg.m_OfferRate=0.80;
if(dlg.DoModal()==IDOK)
{
if(dlg.m_MeanCols<=0||dlg.m_MeanRows<=0)
{
MessageBox(" 錯誤的有效行列數(shù)! ","出錯啦");
return;
}//Add our program on ONorIN here
CMatrix a(ReadDataToMatrix(dlg.m_MeanRows,dlg.m_MeanCols));
a=a.Transpose();
QR_analysis analysis;
analysis.run(a);
CMatrix *Data;
Data=new CMatrix[4];
Data[0]=analysis.result1;
Data[1]=analysis.result2;
Data[2]=analysis.result3;
Data[3]=analysis.result4;
int J[4]={1,1,1,1};
CResultDlg result;
result.TranMemberNumber(2,Data,4,J);
result.DoModal();
}
}
void CProGram2Dlg::OnMenu2Factors()
{// TODO: Add your command handler code here
FactorsData dlg;
dlg.m_MeanRows=m_MeanRows;
dlg.m_MeanCols=m_MeanCols;
dlg.m_OfferRate=0.80;
if(dlg.DoModal()==IDOK)
{
if(dlg.m_MeanCols<=0||dlg.m_MeanRows<=0)
{
MessageBox(" 錯誤的有效行列數(shù)! ","出錯啦");
return;
}
//Add our program on Factors here
//在這里定義解決方法的類，并得到結(jié)果
///讀和傳輸矩陣測試
CMatrix a;
a=ReadDataToMatrix(dlg.m_MeanRows,dlg.m_MeanCols);
Factor factor(a,dlg.m_OfferRate);
factor.Run();
CMatrix *Data;
Data=new CMatrix[7];
Data[0]=factor.X;//原數(shù)據(jù)，最后為標(biāo)準(zhǔn)化后的數(shù)據(jù)
Data[1]=factor.R;//相關(guān)矩陣P*P
Data[2]=factor.te_R;//特征值和特征矩陣
CMatrix A1((int)factor.p,(int)factor.m_ColsOfA+2);
for(int i=0;i<factor.p;i++)
{
for(int j=0;j<factor.m_ColsOfA;j++)
{
A1.SetElement(i,j,factor.A.GetElement(i,j));
}
double *t=factor.h2;
A1.SetElement(i,(int)factor.m_ColsOfA,t[i]*t[i]);
A1.SetElement(i,(int)factor.m_ColsOfA+1,1-t[i]*t[i]);
}
Data[3]=factor.A;//因子載荷陣p*p
Data[4]=A1;//因子載荷陣p*m+h2+a2
Data[5]=factor.B;//正交旋轉(zhuǎn)后的主因子載荷陣p*m
Data[6]=factor.F;//因子得分m_ColsOfA*p
int J[7]={dlg.m_CHECK1,dlg.m_CHECK2,dlg.m_CHECK3,dlg.m_CHECK4,1,((factor.m_ColsOfA>=2)? 1:0),1};
CResultDlg result;
result.TranMemberNumber(3,Data,7,J);//結(jié)果傳輸
result.DoModal();
}
}
void CProGram2Dlg::OnMenu3Help()
{
// TODO: Add your command handler code here
ShellExecute(NULL, "open", "使用說明.pdf", NULL, NULL, SW_SHOWNORMAL);
ShowWindow(SW_MINIMIZE);
}
void CProGram2Dlg::OnMenu3About()
{
// TODO: Add your command handler code here
CAboutDlg dl;
dl.DoModal();
}
///////////////////////////////////////////////////////
///
///
///行列增減控制按鈕
void CProGram2Dlg::OnBuntonRowDown()
{
// TODO: Add your control notification handler code here
if(m_NumRows>1)
{
m_NumRows-=1;
m_FlexGrid.SetRows(m_NumRows);
}
}
void CProGram2Dlg::OnButtonColDown()
{
// TODO: Add your control notification handler code here
if(m_NumCols>1)
{
m_NumCols-=1;
m_FlexGrid.SetCols(m_NumCols);
}
}
void CProGram2Dlg::OnButtonColUp()
{
// TODO: Add your control notification handler code here
m_NumCols+=1;
m_FlexGrid.SetCols(m_NumCols);
m_FlexGrid.SetRow(0);
m_FlexGrid.SetCol(m_NumCols-1);
CString s;
s.Format(" %d",m_NumCols-1);
m_FlexGrid.SetText(s);
}
void CProGram2Dlg::OnButtonRowUp()
{
// TODO: Add your control notification handler code here
m_NumRows+=1;
m_FlexGrid.SetRows(m_NumRows);
m_FlexGrid.SetCol(0);
m_FlexGrid.SetRow(m_NumRows-1);
CString s;
s.Format(" %d",m_NumRows-1);
m_FlexGrid.SetText(s);
}
/////////////////////////////////////////////////////////////////////
///
///
///對話框失去焦點(diǎn)，取值
void CProGram2Dlg::OnKillfocusEditChange()
{
// TODO: Add your control notification handler code here
UpdateData(true);
if(m_sChange=="")
return;
if(IsNumber(m_sChange))
{
m_MeanRows=((m_lRow>m_MeanRows)? m_lRow:m_MeanRows);
m_MeanCols=((m_lCol>m_MeanCols)? m_lCol:m_MeanCols);
m_FlexGrid.SetText(m_sChange);
m_Change.ShowWindow(SW_HIDE);
m_sChange="";
}
else
{
MessageBox(" 請輸入數(shù)值型數(shù)據(jù)! ","出錯啦");
m_FlexGrid.SetText("");
}
UpdateData(false);
}
///
///
///判斷CString是否為數(shù)據(jù)類型的
bool CProGram2Dlg::IsNumber(CString str)
{
if(!str.GetLength())
return false;
char ch;
for(int i=0;i<str.GetLength();i++)
{
ch=str[i];
if(ch!=45 && ch!=46 && ch<48 || ch>57)
return false;
}
return true;
}
///
///
///按照有效行列數(shù)讀取數(shù)據(jù)
CMatrix CProGram2Dlg::ReadDataToMatrix(int Rows,int Cols)
{
int i,j;
CString s,c;
CMatrix result(Rows,Cols);
for(i=1;i<=Rows;i++)
{
for(j=1;j<=Cols;j++)
{
s=m_FlexGrid.GetTextMatrix(i,j);
// c.Format("%f",(double)atof(s));
// MessageBox(c);
result.SetElement(i-1,j-1,(double)atof(s));
}
}
// MessageBox("讀數(shù)據(jù)完成");
return result;
}
void CProGram2Dlg::showMatrix(CMatrix a)
{
if(a.GetNumCols==0)
return;
CString s,c;
for(int i=0;i<a.GetNumRows();i++)
{
s="";
for(int j=0;j<a.GetNumCols();j++)
{
c.Format(" %f",(double)a.GetElement(i,j));
s=s+c;
}
MessageBox(s);
}
}
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -