myelman0610dlg.cpp

该算法为Elman 网络算法

// MyElman0610Dlg.cpp : implementation file
//

#include "stdafx.h"
#include "MyElman0610.h"
#include "MyElman0610Dlg.h"

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

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMyElman0610Dlg dialog

CMyElman0610Dlg::CMyElman0610Dlg(CWnd* pParent /*=NULL*/)
	: CDialog(CMyElman0610Dlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CMyElman0610Dlg)
	m_nLoopTimes = 0;
	m_Error = 0.0;
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CMyElman0610Dlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CMyElman0610Dlg)
	DDX_Text(pDX, IDC_EDIT1, m_nLoopTimes);
	DDX_Text(pDX, IDC_EDIT2, m_Error);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CMyElman0610Dlg, CDialog)
	//{{AFX_MSG_MAP(CMyElman0610Dlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_BtnTrain, OnBtnTrain)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMyElman0610Dlg message handlers

BOOL CMyElman0610Dlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	// TODO: Add extra initialization here
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CMyElman0610Dlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CMyElman0610Dlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CMyElman0610Dlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CMyElman0610Dlg::OnBtnTrain() 
{
	// TODO: Add your control notification handler code here
	int flag;
	flag=0;
	PanelModel.pre_Err=1e-5;
	PanelModel.InitiateMatrix();
	PanelModel.InitializeZero();
	PanelModel.initiatewb();


	PanelModel.DemoInput();
//PanelModel.premnmx();
	PanelModel.Prestd();
	for(unsigned int i=0;i<PanelModel.LoopTimes;i++)
	{

	m_nLoopTimes=i;
	PanelModel.proceed(i);//前向传递
	m_Error=PanelModel.Error[i];
	CString strSystemError;
	strSystemError.Format("%lf",m_Error);
	HWND hWnd=::GetDlgItem(this->m_hWnd,IDC_EDIT2);

	::SetWindowText(hWnd,(LPCSTR)strSystemError);
	CString strTrainTimes;
	strTrainTimes.Format("%u",m_nLoopTimes);
hWnd=::GetDlgItem(this->m_hWnd,IDC_EDIT1);
	::SetWindowText(hWnd,(LPCSTR)strTrainTimes);
	if(PanelModel.Error[i]<PanelModel.pre_Err)
		{
			flag=1;
		 	
			MessageBox("Performance goal met,是否真的结束？","训练结果状态",MB_YESNO);
			break;
		}
/*	else if(i==PanelModel.LoopTimes)
	{
		MessageBox("Maximum epoch reached, performance goal was not met.");
			break;

	*/	
/*		if(i>1)
		{
	if(abs(PanelModel.Error[i]-PanelModel.Error[i-1])<1e-5)
		{
			MessageBox("误差几乎不变","训练结果状态",MB_YESNO);
			break;
		}
		
		}*/
	PanelModel.forward();
//	PanelModel.amendlr(i);	
PanelModel.amend();
	}	

	PanelModel.SetFreeFinal();
	// 显示训练次数



/*
	if(flag>0)
		PanelModel.Simulate();
	else
	//	if(IDYES==MessageBox("是否真的结束？","训练结果状态",MB_YESNO))
	{	
		if(AfxMessageBox("训练是否真的结束？",MB_YESNO)==IDYES)
		{	
			exit(0);
			
		}
	//	else
		//break;	
	}

	*/
}