// MainFrm.cpp : implementation of the CMainFrame class
//

#include "stdafx.h"
#include "Test3.h"

#include "MainFrm.h"

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

/////////////////////////////////////////////////////////////////////////////
// CMainFrame

IMPLEMENT_DYNCREATE(CMainFrame, CFrameWnd)

BEGIN_MESSAGE_MAP(CMainFrame, CFrameWnd)
	//{{AFX_MSG_MAP(CMainFrame)
	ON_WM_CREATE()
	ON_COMMAND(ID_Menu_MM_A, OnMenuMMA)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

static UINT indicators[] =
{
	ID_SEPARATOR,           // status line indicator
	ID_INDICATOR_CAPS,
	ID_INDICATOR_NUM,
	ID_INDICATOR_SCRL,
};

/////////////////////////////////////////////////////////////////////////////
// CMainFrame construction/destruction

CMainFrame::CMainFrame()
{
	// TODO: add member initialization code here
	
}

CMainFrame::~CMainFrame()
{
}

int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
	if (CFrameWnd::OnCreate(lpCreateStruct) == -1)
		return -1;
	
	if (!m_wndToolBar.CreateEx(this, TBSTYLE_FLAT, WS_CHILD | WS_VISIBLE | CBRS_TOP
		| CBRS_GRIPPER | CBRS_TOOLTIPS | CBRS_FLYBY | CBRS_SIZE_DYNAMIC) ||
		!m_wndToolBar.LoadToolBar(IDR_MAINFRAME))
	{
		TRACE0("Failed to create toolbar\n");
		return -1;      // fail to create
	}

	if (!m_wndStatusBar.Create(this) ||
		!m_wndStatusBar.SetIndicators(indicators,
		  sizeof(indicators)/sizeof(UINT)))
	{
		TRACE0("Failed to create status bar\n");
		return -1;      // fail to create
	}

	// TODO: Delete these three lines if you don't want the toolbar to
	//  be dockable
	m_wndToolBar.EnableDocking(CBRS_ALIGN_ANY);
	EnableDocking(CBRS_ALIGN_ANY);
	DockControlBar(&m_wndToolBar);

	return 0;
}

BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
	if( !CFrameWnd::PreCreateWindow(cs) )
		return FALSE;
	// TODO: Modify the Window class or styles here by modifying
	//  the CREATESTRUCT cs

	return TRUE;
}

/////////////////////////////////////////////////////////////////////////////
// CMainFrame diagnostics

#ifdef _DEBUG
void CMainFrame::AssertValid() const
{
	CFrameWnd::AssertValid();
}

void CMainFrame::Dump(CDumpContext& dc) const
{
	CFrameWnd::Dump(dc);
}

#endif //_DEBUG

/////////////////////////////////////////////////////////////////////////////
// CMainFrame message handlers


void CMainFrame::OnMenuMMA() 
{
//////////////Mm對象定義、賦值、運算等舉例
int i,j,m,n; 
double **A1,**B1,**C1,**D1;
Mm X1,X2,X3,X4,X5; ////用無參數的構造函數定義Mm類對象
FILE* fp;
if((fp=fopen("Mm.txt","w"))==NULL){MessageBox("Can't open R_R Input File");exit(0);}
m=n=5;
A1=new double*[m];for(i=0;i<m;i++)A1[i]=new double[n];//C動態數組由用戶創建并分配地址
B1=new double*[m];for(i=0;i<m;i++)B1[i]=new double[n];
C1=new double*[m];for(i=0;i<m;i++)C1[i]=new double[n];
D1=new double*[m];for(i=0;i<m;i++)D1[i]=new double[n];

X1=magic(n); ///////////////生成一個3階魔方矩陣，由Matlib矩陣直接賦值，賦值時隱含矩陣方式初始化
X2=X1;       /////Mm類實現了操作符"="重載，賦值時隱含矩陣方式初始化 
//Mm ii,jj;
X3=X1+X2; /////Mm類實現了操作符"+"重載，賦值時隱含矩陣方式初始化
X4=X1*X2; /////Mm類實現了操作符"*"重載(矩陣乘法)，賦值時隱含矩陣方式初始化
for(i=0;i<n;i++)for(j=0;j<n;j++)
{A1[i][j]=*X1.addr(i+1,j+1);// .addr(i+1,j+1)獲取(i+1,j+1)元素實部地址，并將數據賦給A1[i][j] 	
 B1[i][j]=*X3.addr(i+1,j+1);// 因C數組下標從0開始，而Mm矩陣下標從1開始，故(i+1,j+1)與[i][j]對應
 C1[i][j]=X4.r(i+1,j+1);    // .r(i+1,j+1)直接讀取Mm對象的實部(i+1,j+1)中數據賦給C1[i][j]
 D1[i][j]=(*X1.addr(i+1,j+1))*(*X2.addr(i+1,j+1));//　
 *X5.addr(i+1,j+1)=D1[i][j];//X5雖由Mm定義對象，但未經矩陣方式初化而直接引用Mm對象中元素，
 /////////////////////////////這種方式極易出錯，建議不使用未經矩陣方式初始化的Mm對象
}

fprintf(fp,"\n Output X1 by *X1.addr(i+1,j+1):\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",*X1.addr(i+1,j+1));}
fprintf(fp,"\n Output X2 by X2.r(i+1,j+1) :\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",X2.r(i+1,j+1));}
fprintf(fp,"\n Output X1+X2 by B1[i][j]:\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",B1[i][j]);}
fprintf(fp,"\n Output X1*X2 by C1[i][j]:\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",C1[i][j]);}
///////////////////////////////////////////////
fprintf(fp,"\n Output X1.*X2 by D1[i][j] :\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",D1[i][j]);}
fprintf(fp,"\n Output X1.*X2 by D1[i][j] :\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",*X5.addr(i+1,j+1));}
//////////D1[i][j]輸出數據應與*X5.addr(i+1,j+1)輸出數據相同，但程序運行結果不同，
//表明，直接引用未經矩陣方式初始化的Mm對象元素，易導致錯誤結果,*X5.addr(i+1,j+1)輸出結果錯誤

Mm Y1=ones(n); ///定義對象時隱含矩陣方式初始化
Mm Y2(" ",m,n); ///或采用帶參數m,n的構造函數定義對象
for(i=0;i<n;i++)for(j=0;j<n;j++)
{
 Y1.r(i+1,j+1)=A1[i][j]; ////////可引用Mm對象中元素
 *Y2.addr(i+1,j+1)=B1[i][j];////////可引用Mm對象中元素
}
fprintf(fp,"\n Output Y1 by Y1.r(i+1,j+1) :\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",Y1.r(i+1,j+1));}
fprintf(fp,"\n Output Y2 by *Y2.addr(i+1,j+1) :\n");
for(i=0;i<n;i++){fprintf(fp,"\n");for(j=0;j<n;j++)fprintf(fp," %8.3lf ",*Y2.addr(i+1,j+1));}
////////////////////　Y1.r(i+1,j+1)和*Y2.addr(i+1,j+1)輸出正確

//////////////////// 使用宏BR()對Mm對象賦初值舉例
Mm Z;
Z=(BR(10),1,3,5,7,semi,6,7,8,9,10,semi,12,17,18,19,20);//賦值時隱含用矩陣初始化Z對象
///BR()宏表示Z矩陣開始，BR(10)表示Z矩陣第一個元素值為10，以后依次將數據賦與Z，
///semi宏表示分號
fprintf(fp,"\n Output Z by *Z.addr(i+1,j+1) :\n");
for(i=0;i<3;i++){fprintf(fp,"\n");for(j=0;j<5;j++)fprintf(fp," %8.3lf ",*Z.addr(i+1,j+1));}

//////////////////// 使用宏M_VECTOR對Mm對象賦初值舉例
double E_Vector[6]={1,2,3,4,5,6};
Mm Z1; M_VECTOR(Z1,E_Vector); // 使用宏M_VECTOR對Mm對象賦初值
fprintf(fp,"\n Output Z1 by *Z.addr(1,j+1) :\n");
for(j=0;j<6;j++)fprintf(fp," %8.3lf ",*Z1.addr(1,j+1));

for(i=0;i<m;i++)delete A1[i];delete A1; //由用戶釋放內存空間，而Mm對象則自動調用
for(i=0;i<m;i++)delete B1[i];delete B1; //析構函數來釋放所分配的空間
for(i=0;i<m;i++)delete C1[i];delete C1;
for(i=0;i<m;i++)delete D1[i];delete D1;
/////////////////////字符串操作舉例
Mm Z2=("",m,n);
CString str[5];
str[0]="Matcom is based on the Mm";
str[1]="Mm is defined in matlib.h";
str[2]="Read it carefully";
str[3]="Learn the data exhange mechanism";
str[4]="You'll sigh the Matcom's programming is a piece of cake with emotion";
for(i=0;i<m;i++)Z2.addfield(str[i],i+1);///使用.addfield將字符串添加到Mm對象中
fprintf(fp,"\n Output Z2 by Z2.getfield() :\n");
for(i=0;i<m;i++)fprintf(fp,"\n %s \n",Z2.getfield(i));//按索引號獲取字符串指針

fclose(fp);	
}