dlgsom.cpp

人工神经网络基本模型：BP、ART、Hopfield、SOM

// DlgSom.cpp : implementation file
//

#include "stdafx.h"
#include "ANN.h"
#include "DlgSom.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
	const	int			PANES_Row=11;
	const	int			PANES_Col=9;
	const	int			PANE_Height=12;
	const	int			PANE_Width=12;
	const	COLORREF	PANES_BkColor=RGB(255,255,255);//RGB(0xd4,0xd0,0xc8);
	const	COLORREF	PANES_BorderColor=RGB(0x0,0x4d,0x99);
	const	COLORREF	PANE_FillColor=RGB(0,125,0);//RGB(0,0,0);
	const	COLORREF	PANE_NullColor=PANES_BkColor;//RGB(255,255,0);

	const	int			PANES_x10=60;
	const	int			PANES_y10=40;
	const	int			PANES_x11=PANES_x10+PANE_Width*PANES_Col;
	const	int			PANES_y11=PANES_y10+PANE_Height*PANES_Row;
	const	int			PANES_x20=PANES_x11+PANE_Width*9;
	const	int			PANES_y20=PANES_y10;
	const	int			PANES_x21=PANES_x20+PANE_Width*PANES_Col;
	const	int			PANES_y21=PANES_y20+PANE_Height*PANES_Row;

	const	int			SAM_NUM=10;
	int		sampleNum=0;
/////////////////////////////////////////////////////////////////////////////
// CDlgSom dialog


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


void CDlgSom::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDlgSom)
		// NOTE: the ClassWizard will add DDX and DDV calls here
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CDlgSom, CDialog)
	//{{AFX_MSG_MAP(CDlgSom)
	ON_WM_LBUTTONDOWN()
	ON_WM_LBUTTONUP()
	ON_WM_MOUSEMOVE()
	ON_WM_PAINT()
	ON_BN_CLICKED(IDC_BUTTON_Sample, OnBUTTONSample)
	ON_BN_CLICKED(IDC_BUTTON_Study, OnBUTTONStudy)
	ON_BN_CLICKED(IDC_BUTTON_Clear, OnBUTTONClear)
	ON_BN_CLICKED(IDC_BUTTON_quan, OnBUTTONquan)
	ON_BN_CLICKED(IDC_BUTTON_Remmber, OnBUTTONRemmber)
	ON_BN_CLICKED(IDC_BUTTON_Quest, OnBUTTONQuest)
	ON_BN_CLICKED(IDC_BUTTON_Gain, OnBUTTONGain)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDlgSom message handlers

BOOL CDlgSom::OnInitDialog() 
{
	CDialog::OnInitDialog();
	pTable1=new CPanes(this,PANES_x10,PANES_y10,PANES_Row,PANES_Col,PANE_Height,PANE_Width,RGB(0,0,0),RGB(0,150,0),RGB(0,230,0),RGB(0,0,0),1,"书写区");
	pTable2=new CPanes(this,PANES_x20,PANES_y20,PANES_Row,PANES_Col,PANE_Height,PANE_Width,RGB(0,0,0),RGB(0,150,0),RGB(0,230,0),RGB(0,0,0),1,"识别区");

	// TODO: Add extra initialization here
	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CDlgSom::OnLButtonDown(UINT nFlags, CPoint point) 
{
	// TODO: Add your message handler code here and/or call default
	pTable1->DoLButtonDown(point);
	pTable2->DoLButtonDown(point);
	
	CDialog::OnLButtonDown(nFlags, point);
}

void CDlgSom::OnLButtonUp(UINT nFlags, CPoint point) 
{
	// TODO: Add your message handler code here and/or call default
	pTable1->DoLButtonUp(point);
	pTable2->DoLButtonUp(point);

	CDialog::OnLButtonUp(nFlags, point);
}

void CDlgSom::OnMouseMove(UINT nFlags, CPoint point) 
{
	// TODO: Add your message handler code here and/or call default
	pTable1->DoMouseMove(point);
	pTable2->DoMouseMove(point);

	CDialog::OnMouseMove(nFlags, point);
}

void CDlgSom::OnPaint() 
{
	CPaintDC dc(this); // device context for painting
	pTable1->Draw();
	pTable2->Draw();

	// TODO: Add your message handler code here
	
	// Do not call CDialog::OnPaint() for painting messages
}

void CDlgSom::OnBUTTONStudy() 
{
	// TODO: Add your control notification handler code here
	 CButton	*pBtn;		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_quan);
	pBtn->EnableWindow(FALSE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Clear);
	pBtn->EnableWindow(FALSE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Remmber);
	pBtn->EnableWindow(FALSE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Sample);
	pBtn->EnableWindow(FALSE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Gain);
	pBtn->EnableWindow(FALSE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Study);
	pBtn->EnableWindow(FALSE);

	int i,j;
	int **sampleBins;
	CString	sampleWords;
	CString	sampleWord[SAM_NUM]={"0","1","2","3","4","5","6","7","8","9"};//
	this->GetDlgItemText(IDC_EDIT_Sample,sampleWords);

	sampleBins= (int**) calloc(SAM_NUM, sizeof(int*));
	for (i=0; i<SAM_NUM; i++) {
		sampleBins[i]=(int*) calloc(PANES_Row*PANES_Col, sizeof(int));
	}
	for(i=0; i<SAM_NUM; i++){
			/*
	for(int ii=0; ii<10000; ii++)
			for(int jj=0; jj<10000; jj++);
	*/
			pTable1->SetSample(sampleWord[i],0,0,"宋体",
		RGB(0,0,0),RGB(0,255,255));
		pTable1->FillSample(0,0);
		pTable1->Get(sampleBins[i]);
	}
	pSom=new Som(SAM_NUM, PANES_Row*PANES_Col, 10, sampleBins, sampleWord,0.9,5000);
/*
*/


	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_quan);
	pBtn->EnableWindow(TRUE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Clear);
	pBtn->EnableWindow(TRUE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Remmber);
	pBtn->EnableWindow(TRUE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Sample);
	pBtn->EnableWindow(TRUE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Gain);
	pBtn->EnableWindow(TRUE);		
	pBtn=(CButton*)GetDlgItem(IDC_BUTTON_Study);
	pBtn->EnableWindow(TRUE);
	
	
}

void CDlgSom::OnBUTTONSample() 
{
	// TODO: Add your control notification handler code here
	int sampleBin[PANES_Row*PANES_Col];

	pSom->GetSample(sampleNum,sampleBin);
	sampleNum=(sampleNum+1)%SAM_NUM;
	pTable1->Fill(sampleBin);
	CString s;
	s.Format(">>样本%d",sampleNum);
	this->SetDlgItemText(IDC_BUTTON_Sample,s);
	
}

void CDlgSom::OnBUTTONClear() 
{
	pTable1->Clear();
	pTable2->Clear();
	// TODO: Add your control notification handler code here
	
}

void CDlgSom::OnBUTTONquan() 
{
	pSom->WeightsToFile("SOMWeight.txt");

	HWND h=::FindWindowEx(NULL,NULL,NULL,"Microsoft Internet Explorer");
	::ShellExecute(h,"open","SOMWeight.txt",NULL,NULL,SW_SHOWNORMAL);	

	// TODO: Add your control notification handler code here
	
}

void CDlgSom::OnBUTTONRemmber() 
{
	// TODO: Add your control notification handler code here
	int	p1[PANES_Row*PANES_Col];
	int	p2[PANES_Row*PANES_Col];
	int	iSucc;

	pTable1->Get(p1);
	iSucc=pSom->GetOutput(p1);
	pSom->GetResult(iSucc,p2);
	pTable2->Fill(p2);
	/*
	*/
	
}

void CDlgSom::OnBUTTONQuest() 
{
	// TODO: Add your control notification handler code here
	CString	s;
	s="";
	s+="【问题】\n";
	s+="本SOM网目的在于识别鼠标书写的数字0～9共10个数字。\n";
	s+="本SOM网能够正确识别10个学习模式，以及相应的微量加噪模式，\n";
	s+="但是噪声稍大时，识别结果往往错误。\n";
	MessageBox(s,"Hopfield",MB_ICONINFORMATION);
	
}

void CDlgSom::OnBUTTONGain() 
{
	// TODO: Add your control notification handler code here
	pSom->GainsToFile("SOMGain.txt");

	HWND h=::FindWindowEx(NULL,NULL,NULL,"Microsoft Internet Explorer");
	::ShellExecute(h,"open","SOMGain.txt",NULL,NULL,SW_SHOWNORMAL);	

}