开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 人工智能/神经网络 > 查看源码
NNBPDlg.cpp
资源名称：神经网络源代码(附说明文档和数据）.rar　[点击查看]
上传用户：guanx8y8
上传日期：2007-07-30
资源大小：326k
文件大小：44k
源码类别：

人工智能/神经网络

开发平台：

Visual C++

NNBPDlg.cpp：源码内容
  1. // NNBPDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "NNBP.h"
  6. #include "NNBPDlg.h"
  9. //***************************************************************************
  10. // Add the user-defined header file
  11. #include "AllDef.h"
  12. //***************************************************************************
  14. #ifdef _DEBUG
  15. #define new DEBUG_NEW
  16. #undef THIS_FILE
  17. static char THIS_FILE[] = __FILE__;
  18. #endif
  20. /////////////////////////////////////////////////////////////////////////////
  21. // CAboutDlg dialog used for App About
  23. class CAboutDlg : public CDialog
  24. {
  25. public:
  26. CAboutDlg();
  28. // Dialog Data
  29. //{{AFX_DATA(CAboutDlg)
  30. enum { IDD = IDD_ABOUTBOX };
  31. CButtonST m_btnHelpDocument;
  32. //}}AFX_DATA
  34. // ClassWizard generated virtual function overrides
  35. //{{AFX_VIRTUAL(CAboutDlg)
  36. protected:
  37. virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
  38. //}}AFX_VIRTUAL
  40. // Implementation
  41. protected:
  42. //{{AFX_MSG(CAboutDlg)
  43. virtual BOOL OnInitDialog();
  44. afx_msg void OnHelpdocument();
  45. afx_msg void OnLButtonDown(UINT nFlags, CPoint point);
  46. //}}AFX_MSG
  47. DECLARE_MESSAGE_MAP()
  48. };
  50. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  51. {
  52. //{{AFX_DATA_INIT(CAboutDlg)
  53. //}}AFX_DATA_INIT
  54. }
  56. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  57. {
  58. CDialog::DoDataExchange(pDX);
  59. //{{AFX_DATA_MAP(CAboutDlg)
  60. DDX_Control(pDX, IDC_HELPDOCUMENT, m_btnHelpDocument);
  61. //}}AFX_DATA_MAP
  62. }
  64. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  65. //{{AFX_MSG_MAP(CAboutDlg)
  66. ON_BN_CLICKED(IDC_HELPDOCUMENT, OnHelpdocument)
  67. ON_WM_LBUTTONDOWN()
  68. //}}AFX_MSG_MAP
  69. END_MESSAGE_MAP()
  71. /////////////////////////////////////////////////////////////////////////////
  72. // CNNBPDlg dialog
  74. CNNBPDlg::CNNBPDlg(CWnd* pParent /*=NULL*/)
  75. : CDialog(CNNBPDlg::IDD, pParent)
  76. {
  77. //{{AFX_DATA_INIT(CNNBPDlg)
  78. m_strDemoDataInput = _T("");
  79. m_strDemoSaveResult = _T("");
  80. m_nInputLayerNumber = 0;
  81. m_nHideLayerNumber = 0;
  82. m_nOutputLayerNumber = 0;
  83. m_nComboFunc = -1;
  84. m_nSystemError = 0.0;
  85. m_nTrainTimes = 0;
  86. m_nSystemErrorLevel = SYSTEM_ERROR_LEVEL;
  87. m_nMaxTrainTimes = LOOP_MAX_TIMES;
  88. m_strDemoSaveNetwork = _T("");
  89. m_strSimuNetworkFold = _T("");
  90. m_strSimuDataInput = _T("");
  91. m_strSimuResult = _T("");
  92. m_nComboArithmetic = -1;
  93. m_nStep = INIT_STEP;
  94. //}}AFX_DATA_INIT
  95. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  96. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  98. // Initialize the member variables
  99. m_bStartFlag = false;
  100. m_bSimulateDataFlag = false;
  103. m_SystemErrorNew = MAX_SYSTEM_ERROR;
  104. m_SystemErrorOld = MAX_SYSTEM_ERROR;
  106. m_hThread = NULL;
  109. }
  111. void CNNBPDlg::DoDataExchange(CDataExchange* pDX)
  112. {
  113. CDialog::DoDataExchange(pDX);
  114. //{{AFX_DATA_MAP(CNNBPDlg)
  115. DDX_Control(pDX, IDC_COMBO_ARITHMETIC, m_ctrlComboArithmetic);
  116. DDX_Control(pDX, IDC_COMBO_FUNC, m_ctrlComboFunc);
  117. DDX_Control(pDX, IDC_STATIC_TITLE, m_staticTextTitle);
  118. DDX_Control(pDX, IDC_STATE, m_btnState);
  119. DDX_Control(pDX, IDC_SIMU_RESULT_BROWSER, m_btnSimuResultBrowser);
  120. DDX_Control(pDX, IDC_SIMU_NETWORK_FOLD_BROWSER, m_btnSimuNetworkFoldBrowser);
  121. DDX_Control(pDX, IDC_SIMU_DATA_INPUT_BROWSER, m_btnSimuDataInputBrowser);
  122. DDX_Control(pDX, IDC_DEMO_SAVE_RESULT_BROWSER, m_btnDemoSaveResultBrowser);
  123. DDX_Control(pDX, IDC_DEMO_SAVE_NETWORK_BROWSER, m_btnDemoSaveNetworkBrowser);
  124. DDX_Control(pDX, IDC_DEMO_DATA_INPUT_BROWSER, m_btnDemoDataInputBrowser);
  125. DDX_Control(pDX, IDC_STOP_TRAIN, m_btnStopTrain);
  126. DDX_Control(pDX, IDC_EXIT, m_btnExit);
  127. DDX_Control(pDX, IDC_ABOUT_US, m_btnAboutUs);
  128. DDX_Control(pDX, IDC_BEGIN_TRAIN, m_btnBeginTrain);
  129. DDX_Text(pDX, IDC_DEMO_DATA_INPUT, m_strDemoDataInput);
  130. DDX_Text(pDX, IDC_DEMO_SAVE_RESULT, m_strDemoSaveResult);
  131. DDX_Text(pDX, IDC_INPUT_LAYER_NUMBER, m_nInputLayerNumber);
  132. DDX_Text(pDX, IDC_HIDE_LAYER_NUMBER, m_nHideLayerNumber);
  133. DDX_Text(pDX, IDC_OUTPUT_LAYER_NUMBER, m_nOutputLayerNumber);
  134. DDX_CBIndex(pDX, IDC_COMBO_FUNC, m_nComboFunc);
  135. DDX_Text(pDX, IDC_SYSTEM_ERROR, m_nSystemError);
  136. DDX_Text(pDX, IDC_TRAIN_TIMES, m_nTrainTimes);
  137. DDX_Text(pDX, IDC_SYSTEM_LEVEL, m_nSystemErrorLevel);
  138. DDX_Text(pDX, IDC_MAX_TRAIN_TIMES, m_nMaxTrainTimes);
  139. DDX_Text(pDX, IDC_DEMO_SAVE_NETWORK, m_strDemoSaveNetwork);
  140. DDX_Text(pDX, IDC_SIMU_NETWORK_FOLD, m_strSimuNetworkFold);
  141. DDX_Text(pDX, IDC_SIMU_DATA_INPUT, m_strSimuDataInput);
  142. DDX_Text(pDX, IDC_SIMU_RESULT, m_strSimuResult);
  143. DDX_CBIndex(pDX, IDC_COMBO_ARITHMETIC, m_nComboArithmetic);
  144. DDX_Text(pDX, IDC_STEP, m_nStep);
  145. //}}AFX_DATA_MAP
  146. }
  148. BEGIN_MESSAGE_MAP(CNNBPDlg, CDialog)
  149. //{{AFX_MSG_MAP(CNNBPDlg)
  150. ON_WM_SYSCOMMAND()
  151. ON_WM_PAINT()
  152. ON_WM_QUERYDRAGICON()
  153. ON_BN_CLICKED(IDC_EXIT, OnExit)
  154. ON_BN_CLICKED(IDC_ABOUTUS, OnAboutus)
  155. ON_WM_TIMER()
  156. ON_BN_CLICKED(IDC_DEMO_DATA_INPUT_BROWSER, OnDemoDataInputBrowser)
  157. ON_BN_CLICKED(IDC_DEMO_SAVE_NETWORK_BROWSER, OnDemoSaveNetworkBrowser)
  158. ON_BN_CLICKED(IDC_DEMO_SAVE_RESULT_BROWSER, OnDemoSaveResultBrowser)
  159. ON_BN_CLICKED(IDC_SIMU_NETWORK_FOLD_BROWSER, OnSimuNetworkFoldBrowser)
  160. ON_BN_CLICKED(IDC_SIMU_DATA_INPUT_BROWSER, OnSimuDataInputBrowser)
  161. ON_BN_CLICKED(IDC_SIMU_RESULT_BROWSER, OnSimuResultBrowser)
  162. ON_BN_CLICKED(IDC_BEGIN_TRAIN, OnBeginTrain)
  163. ON_BN_CLICKED(IDC_STATE, OnState)
  164. ON_BN_CLICKED(IDC_STOP_TRAIN, OnStopTrain)
  165. //}}AFX_MSG_MAP
  166. END_MESSAGE_MAP()
  168. /////////////////////////////////////////////////////////////////////////////
  169. // CNNBPDlg message handlers
  171. BOOL CNNBPDlg::OnInitDialog()
  172. {
  173. CDialog::OnInitDialog();
  175. // Add "About..." menu item to system menu.
  177. // IDM_ABOUTBOX must be in the system command range.
  178. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  179. ASSERT(IDM_ABOUTBOX < 0xF000);
  181. CMenu* pSysMenu = GetSystemMenu(FALSE);
  182. if (pSysMenu != NULL)
  183. {
  184. CString strAboutMenu;
  185. strAboutMenu.LoadString(IDS_ABOUTBOX);
  186. if (!strAboutMenu.IsEmpty())
  187. {
  188. pSysMenu->AppendMenu(MF_SEPARATOR);
  189. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  190. }
  191. }
  193. // Set the icon for this dialog.  The framework does this automatically
  194. //  when the application's main window is not a dialog
  195. SetIcon(m_hIcon, TRUE); // Set big icon
  196. SetIcon(m_hIcon, FALSE); // Set small icon
  198. // TODO: Add extra initialization here
  200. // Set the Graphic Title
  201. {
  202. m_staticTextTitle.Initialise( RGB(160,180,220) );
  203. m_staticTextTitle.SetAlignCentre();
  204. m_staticTextTitle.SetDrawShadow();
  205. CFont font;
  206. font.CreateFont(36,0,0,0,FW_BOLD,0,0,0,GB2312_CHARSET,0,0,0,0,TEXT("黑体"));
  207. LOGFONT logfont;
  208. font.GetLogFont(&logfont);
  209. m_staticTextTitle.SetMainTextLogFont(logfont);
  210. }
  212. // "浏览"按钮的资源的装入
  213. // For Demo Data Input Browser Button
  214. m_btnDemoDataInputBrowser.SubclassDlgItem (IDI_FILEOPEN,this);
  215. m_btnDemoDataInputBrowser.SetIcon ( IDI_FILEOPEN);
  216. m_btnDemoDataInputBrowser.SetActiveBgColor (RGB(160,180,220));
  217. m_btnDemoDataInputBrowser.SetInactiveBgColor (RGB(160,180,220));
  218. m_btnDemoDataInputBrowser.AddToolTip(TEXT("浏览"));
  220. // For Demo Save Network Browser Button
  221. m_btnDemoSaveNetworkBrowser.SubclassDlgItem (IDI_FILEOPEN,this);
  222. m_btnDemoSaveNetworkBrowser.SetIcon ( IDI_FILEOPEN);
  223. m_btnDemoSaveNetworkBrowser.SetActiveBgColor (RGB(160,180,220));
  224. m_btnDemoSaveNetworkBrowser.SetInactiveBgColor (RGB(160,180,220));
  225. m_btnDemoSaveNetworkBrowser.AddToolTip(TEXT("浏览"));
  227. // For Demo Save Result Browser Button
  228. m_btnDemoSaveResultBrowser.SubclassDlgItem (IDI_FILEOPEN,this);
  229. m_btnDemoSaveResultBrowser.SetIcon ( IDI_FILEOPEN);
  230. m_btnDemoSaveResultBrowser.SetActiveBgColor (RGB(160,180,220));
  231. m_btnDemoSaveResultBrowser.SetInactiveBgColor (RGB(160,180,220));
  232. m_btnDemoSaveResultBrowser.AddToolTip(TEXT("浏览"));
  234. // For Simu Data Input Browser Button
  235. m_btnSimuDataInputBrowser.SubclassDlgItem (IDI_FILEOPEN,this);
  236. m_btnSimuDataInputBrowser.SetIcon ( IDI_FILEOPEN);
  237. m_btnSimuDataInputBrowser.SetActiveBgColor (RGB(160,180,220));
  238. m_btnSimuDataInputBrowser.SetInactiveBgColor (RGB(160,180,220));
  239. m_btnSimuDataInputBrowser.AddToolTip(TEXT("浏览"));
  241. // For Simu Network Fold Browser Button
  242. m_btnSimuNetworkFoldBrowser.SubclassDlgItem (IDI_FILEOPEN,this);
  243. m_btnSimuNetworkFoldBrowser.SetIcon ( IDI_FILEOPEN);
  244. m_btnSimuNetworkFoldBrowser.SetActiveBgColor (RGB(160,180,220));
  245. m_btnSimuNetworkFoldBrowser.SetInactiveBgColor (RGB(160,180,220));
  246. m_btnSimuNetworkFoldBrowser.AddToolTip(TEXT("浏览"));
  248. // For Simu Result Browser Button
  249. m_btnSimuResultBrowser.SubclassDlgItem (IDI_FILEOPEN,this);
  250. m_btnSimuResultBrowser.SetIcon ( IDI_FILEOPEN);
  251. m_btnSimuResultBrowser.SetActiveBgColor (RGB(160,180,220));
  252. m_btnSimuResultBrowser.SetInactiveBgColor (RGB(160,180,220));
  253. m_btnSimuResultBrowser.AddToolTip(TEXT("浏览"));
  256. // "开始训练"按钮的资源的装入
  257. m_btnBeginTrain.SubclassDlgItem ( IDI_START,this);
  258. m_btnBeginTrain.SetIcon ( IDI_START);
  259. m_btnBeginTrain.SetActiveBgColor (RGB(160,180,220));
  260. m_btnBeginTrain.SetInactiveBgColor (RGB(160,180,220));
  261. m_btnBeginTrain.AddToolTip(TEXT("开始训练"));
  263. // "停止训练"按钮的资源的装入
  264. m_btnStopTrain.SubclassDlgItem ( IDI_STOP,this);
  265. m_btnStopTrain.SetIcon ( IDI_STOP);
  266. m_btnStopTrain.SetActiveBgColor (RGB(160,180,220));
  267. m_btnStopTrain.SetInactiveBgColor (RGB(160,180,220));
  268. m_btnStopTrain.AddToolTip(TEXT("停止训练"));
  270. // "显示程序状态"按钮的资源的装入
  271. m_btnState.SubclassDlgItem ( IDI_TRAINING,this);
  272. m_btnState.SubclassDlgItem ( IDI_SIMULATOR,this);
  273. m_btnState.SetIcon ( IDI_TRAINING);
  274. m_btnState.SetActiveBgColor (RGB(160,180,220));
  275. m_btnState.SetInactiveBgColor (RGB(160,180,220));
  276. m_btnState.AddToolTip (TEXT("样本训练状态"));
  278. // "关于我们"按钮的资源的装入
  279. m_btnAboutUs.SubclassDlgItem (IDI_ABOUT,this);
  280. m_btnAboutUs.SetIcon (IDI_ABOUT);
  281. m_btnAboutUs.SetActiveBgColor (RGB(160,180,220));
  282. m_btnAboutUs.SetInactiveBgColor (RGB(160,180,220));
  283. m_btnAboutUs.AddToolTip (TEXT("关于我们"));
  285. // "退出程序"按钮的资源的装入--->Yes
  286. m_btnExit.SubclassDlgItem (IDI_EXIT,this);
  287. m_btnExit.SetIcon (IDI_EXIT);
  288. m_btnExit.SetActiveBgColor (RGB(160,180,220));
  289. m_btnExit.SetInactiveBgColor (RGB(160,180,220));
  290. m_btnExit.AddToolTip (TEXT("退出程序"));
  292. /////////////////////////////////////////////////////////////////////////
  293. // 初始化对话框上各控件的状态
  294. //
  296. /////////////////////////////////////////////////////////////////////
  297. // Disabled the following controls
  298. /////////////////////////////////////////////////////////////////////
  299. (CNNBPDlg *)GetDlgItem(IDC_SIMU_NETWORK_FOLD)->EnableWindow(FALSE);
  301. (CNNBPDlg *)GetDlgItem(IDC_SIMU_NETWORK_FOLD_BROWSER)->EnableWindow(FALSE);
  303. (CNNBPDlg *)GetDlgItem(IDC_SIMU_DATA_INPUT)->EnableWindow(FALSE);
  305. (CNNBPDlg *)GetDlgItem(IDC_SIMU_DATA_INPUT_BROWSER)->EnableWindow(FALSE);
  307. (CNNBPDlg *)GetDlgItem(IDC_SIMU_RESULT)->EnableWindow(FALSE);
  309. (CNNBPDlg *)GetDlgItem(IDC_SIMU_RESULT_BROWSER)->EnableWindow(FALSE);
  311. /////////////////////////////////////////////////////////////////////
  312. // Enabled the following controls
  313. /////////////////////////////////////////////////////////////////////
  314. (CNNBPDlg *)GetDlgItem(IDC_SYSTEM_LEVEL)->EnableWindow(TRUE);
  316. (CNNBPDlg *)GetDlgItem(IDC_MAX_TRAIN_TIMES)->EnableWindow(TRUE);
  318. (CNNBPDlg *)GetDlgItem(IDC_STEP)->EnableWindow(TRUE);
  320. (CNNBPDlg *)GetDlgItem(IDC_INPUT_LAYER_NUMBER)->EnableWindow(TRUE);
  322. (CNNBPDlg *)GetDlgItem(IDC_HIDE_LAYER_NUMBER)->EnableWindow(TRUE);
  324. (CNNBPDlg *)GetDlgItem(IDC_OUTPUT_LAYER_NUMBER)->EnableWindow(TRUE);
  326. (CNNBPDlg *)GetDlgItem(IDC_COMBO_TRAIN)->EnableWindow(TRUE);
  328. (CNNBPDlg *)GetDlgItem(IDC_COMBO_FUNC)->EnableWindow(TRUE);
  330. (CNNBPDlg *)GetDlgItem(IDC_DEMO_DATA_INPUT)->EnableWindow(TRUE);
  332. (CNNBPDlg *)GetDlgItem(IDC_DEMO_DATA_INPUT_BROWSER)->EnableWindow(TRUE);
  334. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_NETWORK)->EnableWindow(TRUE);
  336. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_NETWORK_BROWSER)->EnableWindow(TRUE);
  338. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_RESULT)->EnableWindow(TRUE);
  340. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_RESULT_BROWSER)->EnableWindow(TRUE);
  342. //
  343. // End of initializing the state of the controls on the CNNBPDlg
  344. /////////////////////////////////////////////////////////////////////////
  347. return TRUE;  // return TRUE  unless you set the focus to a control
  348. }
  350. void CNNBPDlg::OnSysCommand(UINT nID, LPARAM lParam)
  351. {
  352. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  353. {
  354. CAboutDlg dlgAbout;
  355. dlgAbout.DoModal();
  356. }
  357. else
  358. {
  359. CDialog::OnSysCommand(nID, lParam);
  360. }
  361. }
  363. // If you add a minimize button to your dialog, you will need the code below
  364. //  to draw the icon.  For MFC applications using the document/view model,
  365. //  this is automatically done for you by the framework.
  367. void CNNBPDlg::OnPaint() 
  368. {
  369. // Draw the title label
  370. m_staticTextTitle.SetMainTextColour (RGB(0,128,192));
  371. m_staticTextTitle.Display (TEXT("神经网络仿真工具"),TEXT(""),0);
  373. if (IsIconic())
  374. {
  375. CPaintDC dc(this); // device context for painting
  377. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  379. // Center icon in client rectangle
  380. int cxIcon = GetSystemMetrics(SM_CXICON);
  381. int cyIcon = GetSystemMetrics(SM_CYICON);
  382. CRect rect;
  383. GetClientRect(&rect);
  384. int x = (rect.Width() - cxIcon + 1) / 2;
  385. int y = (rect.Height() - cyIcon + 1) / 2;
  387. // Draw the icon
  388. dc.DrawIcon(x, y, m_hIcon);
  389. }
  390. else
  391. {
  392. CDialog::OnPaint();
  393. }
  394. }
  396. // The system calls this to obtain the cursor to display while the user drags
  397. //  the minimized window.
  398. HCURSOR CNNBPDlg::OnQueryDragIcon()
  399. {
  400. return (HCURSOR) m_hIcon;
  401. }
  403. void CNNBPDlg::OnExit() 
  404. {
  405. // TODO: Add your control notification handler code here
  406. DWORD dwExitCode = 0;
  408. if(::GetExitCodeThread (m_hThread, &dwExitCode))
  409. {
  410. if(dwExitCode == STILL_ACTIVE)
  411. {
  412. ::TerminateThread (m_hThread, (DWORD)0);
  413. }
  415. CloseHandle (m_hThread);
  416. m_hThread = NULL;
  417. }
  419. CDialog::OnOK ();
  421. }
  423. void CNNBPDlg::OnAboutus() 
  424. {
  425. // TODO: Add your control notification handler code here
  426. CAboutDlg dlg;
  427. if(dlg.DoModal () == IDOK)
  428. return;
  430. }
  432. void CNNBPDlg::OnTimer(UINT nIDEvent) 
  433. {
  434. // TODO: Add your message handler code here and/or call default
  436. CDialog::OnTimer(nIDEvent);
  437. }
  439. void CNNBPDlg::OnDemoDataInputBrowser() 
  440. {
  441. // TODO: Add your control notification handler code here
  442. static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
  443. static char BASED_CODE lpszDefExt[] = TEXT("txt");
  445. //Create the dialog to select the demo data file to load the data
  446. CFileDialog dlg(TRUE,
  447.             lpszDefExt,
  448. NULL,
  449. OFN_READONLY | 
  450. OFN_FILEMUSTEXIST   |
  451. OFN_PATHMUSTEXIST,
  452. szFilter,
  453. this);
  455. if(dlg.DoModal () == IDOK)
  456. {
  457. m_strDemoDataInput = dlg.GetPathName ();
  459. HWND hWnd = ::GetDlgItem (this->m_hWnd,IDC_DEMO_DATA_INPUT);
  460. ::SetWindowText (hWnd,m_strDemoDataInput);
  462. }
  463. else
  464. {
  465. return;
  466. }
  468. }
  470. void CNNBPDlg::OnDemoSaveNetworkBrowser() 
  471. {
  472. // TODO: Add your control notification handler code here
  474. static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
  475. static char BASED_CODE lpszDefExt[] = TEXT("txt");
  477. //Create the dialog to select the demo data file to save the network
  478. CFileDialog dlg(FALSE,
  479.             lpszDefExt,
  480. NULL,
  481. OFN_HIDEREADONLY    | 
  482. OFN_CREATEPROMPT |
  483. OFN_OVERWRITEPROMPT,
  484. szFilter,
  485. this );
  487. if(dlg.DoModal ()==IDOK)
  488. {
  489. m_strDemoSaveNetwork = dlg.GetPathName ();
  491. HWND hWnd = ::GetDlgItem (this->m_hWnd,IDC_DEMO_SAVE_NETWORK);
  492. ::SetWindowText (hWnd,m_strDemoSaveNetwork);
  494. }
  495. else
  496. {
  497. return;
  498. }
  500. }
  502. void CNNBPDlg::OnDemoSaveResultBrowser() 
  503. {
  504. // TODO: Add your control notification handler code here
  506. static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
  507. static char BASED_CODE lpszDefExt[] = TEXT("txt");
  509. //Create the dialog to select the demo data file to save the result
  510. CFileDialog dlg(FALSE,
  511.             lpszDefExt,
  512. NULL,
  513. OFN_HIDEREADONLY    | 
  514. OFN_CREATEPROMPT |
  515. OFN_OVERWRITEPROMPT,
  516. szFilter,
  517. this);
  519. if(dlg.DoModal ()==IDOK)
  520. {
  521. m_strDemoSaveResult = dlg.GetPathName ();
  523. HWND hWnd = ::GetDlgItem (this->m_hWnd , IDC_DEMO_SAVE_RESULT);
  524. ::SetWindowText (hWnd, m_strDemoSaveResult);
  526. }
  527. else
  528. {
  529. return;
  530. }
  532. }
  534. void CNNBPDlg::OnSimuNetworkFoldBrowser() 
  535. {
  536. // TODO: Add your control notification handler code here
  538. static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
  539. static char BASED_CODE lpszDefExt[] = TEXT("txt");
  542. //Create the dialog to select the network data file
  543. CFileDialog dlg(TRUE,
  544.             lpszDefExt,
  545. NULL,
  546. OFN_READONLY | 
  547. OFN_FILEMUSTEXIST   |
  548. OFN_PATHMUSTEXIST,
  549. szFilter,
  550. this);
  552. if(dlg.DoModal ()==IDOK)
  553. {
  554. m_strSimuNetworkFold = dlg.GetPathName ();
  556. HWND hWnd = ::GetDlgItem (this->m_hWnd ,IDC_SIMU_NETWORK_FOLD);
  557. ::SetWindowText (hWnd, m_strSimuNetworkFold);
  559. }
  560. else
  561. {
  562. return;
  563. }
  565. }
  567. void CNNBPDlg::OnSimuDataInputBrowser() 
  568. {
  569. // TODO: Add your control notification handler code here
  571. static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
  572. static char BASED_CODE lpszDefExt[] = TEXT("txt");
  574. //Create the dialog to select the simulate data file
  575. CFileDialog dlg(TRUE,
  576.             lpszDefExt,
  577. NULL,
  578. OFN_READONLY | 
  579. OFN_FILEMUSTEXIST   |
  580. OFN_PATHMUSTEXIST,
  581. szFilter,
  582. this);
  584. if(dlg.DoModal ()==IDOK)
  585. {
  586. m_strSimuDataInput = dlg.GetPathName ();
  588. HWND hWnd = ::GetDlgItem (this->m_hWnd ,IDC_SIMU_DATA_INPUT);
  589. ::SetWindowText (hWnd,m_strSimuDataInput);
  591. }
  592. else
  593. {
  594. return;
  595. }
  597. }
  599. void CNNBPDlg::OnSimuResultBrowser() 
  600. {
  601. // TODO: Add your control notification handler code here
  603. static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
  604. static char BASED_CODE lpszDefExt[] = TEXT("txt");
  606. //Create the dialog to select the demo data file
  607. CFileDialog dlg(FALSE,
  608.             lpszDefExt,
  609. NULL,
  610. OFN_HIDEREADONLY    | 
  611. OFN_CREATEPROMPT |
  612. OFN_OVERWRITEPROMPT,
  613. szFilter,
  614. this);
  616. if(dlg.DoModal ()==IDOK)
  617. {
  618. m_strSimuResult = dlg.GetPathName ();
  620. HWND hWnd = ::GetDlgItem (this->m_hWnd ,IDC_SIMU_RESULT);
  621. ::SetWindowText (hWnd,m_strSimuResult);
  623. }
  624. else
  625. {
  626. return;
  627. }
  629. }
  631. void CNNBPDlg::OnBeginTrain() 
  632. {
  633. // TODO: Add your control notification handler code here
  635. UpdateData(TRUE);
  637. STHREADDATA* pData = new STHREADDATA;
  639. pData->pDlg = this;
  641. DWORD dwExitCode = 0;
  642. ::GetExitCodeThread (m_hThread, &dwExitCode);
  644. if(dwExitCode == STILL_ACTIVE)
  645. {
  646. ::MessageBox (this->m_hWnd, _T("程序中的训练线程仍然在运行中!"), _T("警告:"), MB_ICONWARNING | MB_OK);
  647. return;
  648. }
  650. ULONG ulThreadID;
  652. m_hThread = ::CreateThread (NULL,
  653. 0,
  654. WorkThreadProc,
  655. pData,
  656. CREATE_SUSPENDED,
  657. &ulThreadID
  658. );
  660. ResumeThread (m_hThread);
  663. }
  665. BOOL CAboutDlg::OnInitDialog() 
  666. {
  667. CDialog::OnInitDialog();
  669. // TODO: Add extra initialization here
  671. // "使用说明"按钮的资源的装入
  672. m_btnHelpDocument.SubclassDlgItem (IDI_HELP,this);
  673. m_btnHelpDocument.SetIcon ( IDI_HELP);
  674. m_btnHelpDocument.SetActiveBgColor (RGB(160,180,220));
  675. m_btnHelpDocument.SetInactiveBgColor (RGB(160,180,220));
  676. m_btnHelpDocument.AddToolTip (TEXT("使用说明"));
  678. return TRUE;  // return TRUE unless you set the focus to a control
  679.               // EXCEPTION: OCX Property Pages should return FALSE
  680. }
  683. void CNNBPDlg::OnState() 
  684. {
  685. // TODO: Add your control notification handler code here
  687. /////////////////////////////////////////////////////////////////////////
  688. // Change the button flag
  689. m_bSimulateDataFlag = !m_bSimulateDataFlag;
  691. if(m_bSimulateDataFlag)
  692. {
  693. // 程序处在数据仿真状态
  694. m_btnState.SetIcon (IDI_SIMULATOR);
  695. m_btnState.AddToolTip (TEXT("数据仿真状态"));
  697. // the BeginTrain Button State
  698. m_btnBeginTrain.AddToolTip(TEXT("开始仿真"));
  700. /////////////////////////////////////////////////////////////////////
  701. // Disabled the following controls
  702. /////////////////////////////////////////////////////////////////////
  703. (CNNBPDlg *)GetDlgItem(IDC_SYSTEM_LEVEL)->EnableWindow(FALSE);
  705. (CNNBPDlg *)GetDlgItem(IDC_MAX_TRAIN_TIMES)->EnableWindow(FALSE);
  707. (CNNBPDlg *)GetDlgItem(IDC_STEP)->EnableWindow(FALSE);
  709. (CNNBPDlg *)GetDlgItem(IDC_INPUT_LAYER_NUMBER)->EnableWindow(FALSE);
  711. (CNNBPDlg *)GetDlgItem(IDC_HIDE_LAYER_NUMBER)->EnableWindow(FALSE);
  713. (CNNBPDlg *)GetDlgItem(IDC_OUTPUT_LAYER_NUMBER)->EnableWindow(FALSE);
  715. (CNNBPDlg *)GetDlgItem(IDC_COMBO_TRAIN)->EnableWindow(FALSE);
  717. (CNNBPDlg *)GetDlgItem(IDC_COMBO_FUNC)->EnableWindow(FALSE);
  719. (CNNBPDlg *)GetDlgItem(IDC_DEMO_DATA_INPUT)->EnableWindow(FALSE);
  721. (CNNBPDlg *)GetDlgItem(IDC_DEMO_DATA_INPUT_BROWSER)->EnableWindow(FALSE);
  723. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_NETWORK)->EnableWindow(FALSE);
  725. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_NETWORK_BROWSER)->EnableWindow(FALSE);
  727. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_RESULT)->EnableWindow(FALSE);
  729. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_RESULT_BROWSER)->EnableWindow(FALSE);
  731. (CNNBPDlg *)GetDlgItem(IDC_STOP_TRAIN)->EnableWindow(FALSE);
  734. /////////////////////////////////////////////////////////////////////
  735. // Enabled the following controls
  736. /////////////////////////////////////////////////////////////////////
  737. (CNNBPDlg *)GetDlgItem(IDC_SIMU_NETWORK_FOLD)->EnableWindow(TRUE);
  739. (CNNBPDlg *)GetDlgItem(IDC_SIMU_NETWORK_FOLD_BROWSER)->EnableWindow(TRUE);
  741. (CNNBPDlg *)GetDlgItem(IDC_SIMU_DATA_INPUT)->EnableWindow(TRUE);
  743. (CNNBPDlg *)GetDlgItem(IDC_SIMU_DATA_INPUT_BROWSER)->EnableWindow(TRUE);
  745. (CNNBPDlg *)GetDlgItem(IDC_SIMU_RESULT)->EnableWindow(TRUE);
  747. (CNNBPDlg *)GetDlgItem(IDC_SIMU_RESULT_BROWSER)->EnableWindow(TRUE);
  749. }
  750. else
  751. {
  752. // 程序处在样本训练状态
  753. m_btnState.SetIcon (IDI_TRAINING);
  754. m_btnState.AddToolTip (TEXT("样本训练状态"));
  756. // the BeginTrain Button State 
  757. m_btnBeginTrain.AddToolTip(TEXT("开始训练"));
  759. /////////////////////////////////////////////////////////////////////
  760. // Disabled the following controls
  761. /////////////////////////////////////////////////////////////////////
  762. (CNNBPDlg *)GetDlgItem(IDC_SIMU_NETWORK_FOLD)->EnableWindow(FALSE);
  764. (CNNBPDlg *)GetDlgItem(IDC_SIMU_NETWORK_FOLD_BROWSER)->EnableWindow(FALSE);
  766. (CNNBPDlg *)GetDlgItem(IDC_SIMU_DATA_INPUT)->EnableWindow(FALSE);
  768. (CNNBPDlg *)GetDlgItem(IDC_SIMU_DATA_INPUT_BROWSER)->EnableWindow(FALSE);
  770. (CNNBPDlg *)GetDlgItem(IDC_SIMU_RESULT)->EnableWindow(FALSE);
  772. (CNNBPDlg *)GetDlgItem(IDC_SIMU_RESULT_BROWSER)->EnableWindow(FALSE);
  774. /////////////////////////////////////////////////////////////////////
  775. // Enabled the following controls
  776. /////////////////////////////////////////////////////////////////////
  777. (CNNBPDlg *)GetDlgItem(IDC_SYSTEM_LEVEL)->EnableWindow(TRUE);
  779. (CNNBPDlg *)GetDlgItem(IDC_MAX_TRAIN_TIMES)->EnableWindow(TRUE);
  781. (CNNBPDlg *)GetDlgItem(IDC_STEP)->EnableWindow(TRUE);
  783. (CNNBPDlg *)GetDlgItem(IDC_INPUT_LAYER_NUMBER)->EnableWindow(TRUE);
  785. (CNNBPDlg *)GetDlgItem(IDC_HIDE_LAYER_NUMBER)->EnableWindow(TRUE);
  787. (CNNBPDlg *)GetDlgItem(IDC_OUTPUT_LAYER_NUMBER)->EnableWindow(TRUE);
  789. (CNNBPDlg *)GetDlgItem(IDC_COMBO_TRAIN)->EnableWindow(TRUE);
  791. (CNNBPDlg *)GetDlgItem(IDC_COMBO_FUNC)->EnableWindow(TRUE);
  793. (CNNBPDlg *)GetDlgItem(IDC_DEMO_DATA_INPUT)->EnableWindow(TRUE);
  795. (CNNBPDlg *)GetDlgItem(IDC_DEMO_DATA_INPUT_BROWSER)->EnableWindow(TRUE);
  797. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_NETWORK)->EnableWindow(TRUE);
  799. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_NETWORK_BROWSER)->EnableWindow(TRUE);
  801. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_RESULT)->EnableWindow(TRUE);
  803. (CNNBPDlg *)GetDlgItem(IDC_DEMO_SAVE_RESULT_BROWSER)->EnableWindow(TRUE);
  805. (CNNBPDlg *)GetDlgItem(IDC_STOP_TRAIN)->EnableWindow(TRUE);
  808. }
  811. }
  813. bool CNNBPDlg::TrainingDemo()
  814. {
  815. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(FALSE);
  817. if(m_bSimulateDataFlag)
  818. {
  819. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  820. return false;
  821. }
  823. if(m_nInputLayerNumber <= 0)
  824. {
  825. ::MessageBox (this->m_hWnd, _T("输入层数目必须为大于等于1的正整数!"), _T(":("), MB_OK);
  827. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  828. return false;
  829. }
  831. if(m_nHideLayerNumber <= 0)
  832. {
  833. ::MessageBox (this->m_hWnd, _T("隐含层数目必须为大于等于1的正整数!"), _T(":("), MB_OK);
  835. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  836. return false;
  837. }
  839. if(m_nOutputLayerNumber <= 0)
  840. {
  841. ::MessageBox (this->m_hWnd, _T("输出层数目必须为大于等于1的正整数!"), _T(":("), MB_OK | MB_ICONINFORMATION);
  843. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  844. return false;
  845. }
  847. if(m_nComboArithmetic == -1)
  848. {
  849. ::MessageBox (this->m_hWnd, _T("你还没有选取用来训练的算法!"), _T(":("), MB_OK | MB_ICONINFORMATION);
  851. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  852. return false;
  853. }
  855. if(m_nComboFunc == -1)
  856. {
  857. ::MessageBox (this->m_hWnd, _T("你还没有选取用来训练的激活函数!"), _T(":("), MB_OK | MB_ICONINFORMATION);
  859. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  860. return false;
  861. }
  863. if(m_strDemoDataInput.IsEmpty ())
  864. {
  865. ::MessageBox (this->m_hWnd, _T("你还没选取用来训练的样本数据文件的装载路径!"), _T(":("), MB_OK | MB_ICONINFORMATION);
  867. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  868. return false;
  869. }
  871. if(m_strDemoSaveNetwork.IsEmpty ())
  872. {
  873. ::MessageBox (this->m_hWnd, _T("你还没选取最终模拟输出网络参数的文件的存放路径!"), _T(":("), MB_OK | MB_ICONINFORMATION);
  875. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  876. return false;
  878. }
  880. if(m_strDemoSaveResult.IsEmpty ())
  881. {
  882. ::MessageBox (this->m_hWnd, _T("你还没选取最终模拟输出结果的文件的存放路径!"), _T(":("), MB_OK | MB_ICONINFORMATION);
  883. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  884. return false;
  886. }
  888. // 装载资源
  889. m_matrixDemoDataInput.LoadDataFromFile (m_strDemoDataInput);
  892. if((m_nInputLayerNumber + m_nOutputLayerNumber) != m_matrixDemoDataInput.GetMatrixColNumber () )
  893. {
  894. ::MessageBox (this->m_hWnd, _T("所输入的输入层和输出层数目之和与被读取文件中的数目不相符!"), _T("错误!"), MB_OK | MB_ICONERROR);
  895. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  896. return FALSE;
  897. }
  899. // 第一次前向计算初始化
  900. ForwardCalculateInit();
  902. // 反复反馈运算
  903. bool bSuccess = DemoDataTrainRepeat();
  905. if(bSuccess) // Successful!
  906. {
  908. //////////////////////////////////////////////////////////////////////////////
  909. // 定义存储矩阵格式 //
  910. //////////////////////////////////////////////////////////////////////////////
  912. if(!(m_strDemoSaveNetwork.IsEmpty ()))
  913. {
  914. CString strDemoInputLayerNumber = _T("## 样本的输入层的数目: ##n");
  915. SaveConstantStringToFile(m_strDemoSaveNetwork, strDemoInputLayerNumber);
  917. CString strInputLayerNumber;
  918. strInputLayerNumber.Format ("%u", m_nInputLayerNumber);
  919. SaveConstantStringToFile(m_strDemoSaveNetwork, strInputLayerNumber);
  921. CString strDemoHideLayerNumber = _T("n## 样本的隐含层的数目: ##n");
  922. SaveConstantStringToFile(m_strDemoSaveNetwork, strDemoHideLayerNumber);
  924. CString strHideLayerNumber;
  925. strHideLayerNumber.Format ("%u", m_nHideLayerNumber);
  926. SaveConstantStringToFile(m_strDemoSaveNetwork, strHideLayerNumber);
  928. CString strDemoOutputLayerNumber = _T("n## 样本的输出层的数目: ##n");
  929. SaveConstantStringToFile(m_strDemoSaveNetwork, strDemoOutputLayerNumber);
  931. CString strOutputLayerNumber;
  932. strOutputLayerNumber.Format ("%u", m_nOutputLayerNumber);
  933. SaveConstantStringToFile(m_strDemoSaveNetwork, strOutputLayerNumber);
  935. CString strSelectAlgorithm = _T("n## 训练网络所采用的神经网络算法: ##n");
  936. SaveConstantStringToFile(m_strDemoSaveNetwork, strSelectAlgorithm);
  938. CString strComboArithmetic;
  939. strComboArithmetic.Format ("%d", m_nComboArithmetic);
  940. SaveConstantStringToFile(m_strDemoSaveNetwork, strComboArithmetic);
  942. CString strSelectFunction = _T("n## 网络中使用的函数的索引值: ##n");
  943. SaveConstantStringToFile(m_strDemoSaveNetwork, strSelectFunction);
  945. CString strComboFunc;
  946. strComboFunc.Format ("%d", m_nComboFunc);
  947. SaveConstantStringToFile(m_strDemoSaveNetwork, strComboFunc);
  950. CString strSeparator = _T("n## 输入层到隐含层的权值矩阵 ##n");
  951. SaveConstantStringToFile(m_strDemoSaveNetwork, strSeparator);
  953. // 存储模拟过的输入到隐含层的权值矩阵
  954. m_matrixInputToHideWeightValue.SaveDataToFile (m_strDemoSaveNetwork);
  956. strSeparator = _T("n## 隐含层的阀值矩阵 ##n");
  957. SaveConstantStringToFile(m_strDemoSaveNetwork,strSeparator);
  959. // 存储模拟过的隐含层的阀值矩阵
  960. m_matrixHideLayerValveValue.SaveDataToFile (m_strDemoSaveNetwork);
  962. strSeparator = _T("n## 隐含层到输出层的权值矩阵 ##n");
  963. SaveConstantStringToFile(m_strDemoSaveNetwork,strSeparator);
  965. // 存储模拟过的隐含层到输出层的权值矩阵
  966. m_matrixHideToOutputWeightValue.SaveDataToFile (m_strDemoSaveNetwork);
  968. strSeparator = _T("n## 输出层的阀值矩阵 ##n");
  969. SaveConstantStringToFile(m_strDemoSaveNetwork,strSeparator);
  971. // 存储模拟过的输出层的阀值矩阵
  972. m_matrixOutputLayerValveValue.SaveDataToFile (m_strDemoSaveNetwork);
  974. }
  977. // 存储模拟过输出层的输出值矩阵
  978. if(!(m_strDemoSaveResult.IsEmpty ()))
  979. {
  980. (m_matrixOutputLayerOutput.Transpose()).SaveDataToFile (m_strDemoSaveResult);
  981. }
  983. // 释放全局变量所占的内存
  984. m_matrixDemoDataInput.InitializeZero ();
  986. m_matrixInputLayerValue.InitializeZero ();
  988. m_matrixInputToHideWeightValue.InitializeZero ();
  989. m_matrixHideLayerValveValue.InitializeZero ();
  990. m_matrixHideLayerOutput.InitializeZero ();
  992. m_matrixHideToOutputWeightValue.InitializeZero ();
  993. m_matrixOutputLayerValveValue.InitializeZero ();
  995. m_matrixOutputLayerOutput.InitializeZero ();
  997. // ReInitialize the global value
  998. m_nInputLayerNumber = 0;
  999. m_nHideLayerNumber = 0;
  1000. m_nOutputLayerNumber = 0;
  1002. m_nComboFunc = -1;
  1003. m_nComboArithmetic = -1;
  1005. m_nSystemError = 0;
  1006. m_nTrainTimes = 0;
  1008. m_nSystemErrorLevel = SYSTEM_ERROR_LEVEL;
  1009. m_nMaxTrainTimes = LOOP_MAX_TIMES;
  1011. m_SystemErrorNew = MAX_SYSTEM_ERROR;
  1012. m_SystemErrorOld = MAX_SYSTEM_ERROR;
  1014. m_nStep = INIT_STEP;
  1016. m_strDemoDataInput = TEXT("");
  1017. m_strDemoSaveNetwork = TEXT("");
  1018. m_strDemoSaveResult = TEXT("");
  1021. ::MessageBox (this->m_hWnd, _T("任务完成了!"), _T("恭喜!"), MB_OK);
  1023. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1025. //*******************************************************************
  1026. // handle the UI
  1027. //
  1028. CString strSystemErrorLevel;
  1029. strSystemErrorLevel.Format ("%lf", m_nSystemErrorLevel);
  1030. HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_LEVEL);
  1031. ::SetWindowText (hWnd, (LPCTSTR)strSystemErrorLevel);
  1033. CString strMaxTrainTimes;
  1034. strMaxTrainTimes.Format ("%u", m_nMaxTrainTimes);
  1035. hWnd = ::GetDlgItem (this->m_hWnd, IDC_MAX_TRAIN_TIMES);
  1036. ::SetWindowText (hWnd, (LPCTSTR)strMaxTrainTimes);
  1038. hWnd = ::GetDlgItem (this->m_hWnd, IDC_INPUT_LAYER_NUMBER);
  1039. ::SetWindowText (hWnd, _T("0"));
  1041. hWnd = ::GetDlgItem (this->m_hWnd, IDC_HIDE_LAYER_NUMBER);
  1042. ::SetWindowText (hWnd, _T("0"));
  1044. hWnd = ::GetDlgItem (this->m_hWnd, IDC_OUTPUT_LAYER_NUMBER);
  1045. ::SetWindowText (hWnd, _T("0"));
  1047. m_ctrlComboArithmetic.SetCurSel (-1);
  1049. m_ctrlComboFunc.SetCurSel (-1);
  1051. hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_DATA_INPUT);
  1052. ::SetWindowText (hWnd, _T(""));
  1054. hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_NETWORK);
  1055. ::SetWindowText (hWnd, _T(""));
  1057. hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_RESULT);
  1058. ::SetWindowText (hWnd, _T(""));
  1060. hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_ERROR);
  1061. ::SetWindowText (hWnd, _T("0"));
  1063. hWnd = ::GetDlgItem (this->m_hWnd, IDC_TRAIN_TIMES);
  1064. ::SetWindowText (hWnd, _T("0"));
  1068. }
  1069. else // Fail to accomplish the task
  1070. {
  1072. // 释放全局变量所占的内存
  1073. m_matrixDemoDataInput.InitializeZero ();
  1075. m_matrixInputLayerValue.InitializeZero ();
  1077. m_matrixInputToHideWeightValue.InitializeZero ();
  1078. m_matrixHideLayerValveValue.InitializeZero ();
  1079. m_matrixHideLayerOutput.InitializeZero ();
  1081. m_matrixHideToOutputWeightValue.InitializeZero ();
  1082. m_matrixOutputLayerValveValue.InitializeZero ();
  1084. m_matrixOutputLayerOutput.InitializeZero ();
  1086. // ReInitialize the global value
  1087. m_nInputLayerNumber = 0;
  1088. m_nHideLayerNumber = 0;
  1089. m_nOutputLayerNumber = 0;
  1091. m_nComboFunc = -1;
  1092. m_nComboArithmetic = -1;
  1094. m_nSystemError = 0;
  1095. m_nTrainTimes = 0;
  1097. m_nSystemErrorLevel = SYSTEM_ERROR_LEVEL;
  1098. m_nMaxTrainTimes = LOOP_MAX_TIMES;
  1100. m_SystemErrorNew = MAX_SYSTEM_ERROR;
  1101. m_SystemErrorOld = MAX_SYSTEM_ERROR;
  1103. m_nStep = INIT_STEP;
  1105. m_strDemoDataInput = TEXT("");
  1106. m_strDemoSaveNetwork = TEXT("");
  1107. m_strDemoSaveResult = TEXT("");
  1109. ::MessageBox (this->m_hWnd, _T("很抱歉,我未能完成您交给我的任务."), _T(":("),MB_OK | MB_ICONERROR);
  1111. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1113. //*******************************************************************
  1114. // handle the UI
  1115. //
  1116. CString strSystemErrorLevel;
  1117. strSystemErrorLevel.Format ("%lf", m_nSystemErrorLevel);
  1118. HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_LEVEL);
  1119. ::SetWindowText (hWnd, (LPCTSTR)strSystemErrorLevel);
  1121. CString strMaxTrainTimes;
  1122. strMaxTrainTimes.Format ("%u", m_nMaxTrainTimes);
  1123. hWnd = ::GetDlgItem (this->m_hWnd, IDC_MAX_TRAIN_TIMES);
  1124. ::SetWindowText (hWnd, (LPCTSTR)strMaxTrainTimes);
  1126. hWnd = ::GetDlgItem (this->m_hWnd, IDC_INPUT_LAYER_NUMBER);
  1127. ::SetWindowText (hWnd, _T("0"));
  1129. hWnd = ::GetDlgItem (this->m_hWnd, IDC_HIDE_LAYER_NUMBER);
  1130. ::SetWindowText (hWnd, _T("0"));
  1132. hWnd = ::GetDlgItem (this->m_hWnd, IDC_OUTPUT_LAYER_NUMBER);
  1133. ::SetWindowText (hWnd, _T("0"));
  1135. m_ctrlComboArithmetic.SetCurSel (-1);
  1137. m_ctrlComboFunc.SetCurSel (-1);
  1139. hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_DATA_INPUT);
  1140. ::SetWindowText (hWnd, _T(""));
  1142. hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_NETWORK);
  1143. ::SetWindowText (hWnd, _T(""));
  1145. hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_RESULT);
  1146. ::SetWindowText (hWnd, _T(""));
  1148. hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_ERROR);
  1149. ::SetWindowText (hWnd, _T("0"));
  1151. hWnd = ::GetDlgItem (this->m_hWnd, IDC_TRAIN_TIMES);
  1152. ::SetWindowText (hWnd, _T("0"));
  1155. return false;
  1157. }
  1159. return true;
  1162. }
  1165. bool CNNBPDlg::SimulateData()
  1166. {
  1167. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(FALSE);
  1169. if(!m_bSimulateDataFlag)
  1170. {
  1171. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1172. return false;
  1173. }
  1175. if(m_strSimuNetworkFold.IsEmpty ())
  1176. {
  1177. ::MessageBox (this->m_hWnd, _T("你还没选取提供网络参数的文件的装载路径!"), _T(":("),MB_OK | MB_ICONWARNING);
  1179. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1180. return false;
  1181. }
  1183. if(m_strSimuDataInput.IsEmpty ())
  1184. {
  1185. ::MessageBox (this->m_hWnd, _T("你还没选取用来仿真的数据文件的装载路径!"), _T(":("),MB_OK | MB_ICONWARNING);
  1187. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1188. return false;
  1189. }
  1191. if(m_strSimuResult.IsEmpty ())
  1192. {
  1193. ::MessageBox (this->m_hWnd, _T("你还没选取最终仿真结果的数据文件的存放路径!"), _T(":("),MB_OK | MB_ICONWARNING);
  1195. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1196. return false;
  1197. }
  1199. // 装载网络参数文件
  1200. m_matrixSimuNetwork.LoadDataFromFileSpecial(m_strSimuNetworkFold,
  1201. m_matrixInputToHideWeightValue,
  1202. m_matrixHideLayerValveValue,
  1203. m_matrixHideToOutputWeightValue,
  1204. m_matrixOutputLayerValveValue,
  1205. m_nInputLayerNumber,
  1206. m_nHideLayerNumber,
  1207. m_nOutputLayerNumber,
  1208. m_nComboArithmetic,
  1209. m_nComboFunc);
  1213. // 装载仿真数据文件
  1214. m_matrixDemoDataInput.LoadDataFromFile (m_strSimuDataInput);
  1217. if( m_matrixDemoDataInput.GetMatrixColNumber () != m_nInputLayerNumber )
  1218. {
  1219. ::MessageBox (this->m_hWnd, _T("待仿真数据文件的输入层数目与网络中的输入层数目不相等!!!"), _T("错误!"), MB_OK | MB_ICONERROR);
  1221. // 释放全局变量所占的内存
  1222. m_matrixSimuNetwork.InitializeZero ();
  1224. m_matrixInputToHideWeightValue.InitializeZero ();
  1225. m_matrixHideLayerValveValue.InitializeZero ();
  1226. m_matrixHideToOutputWeightValue.InitializeZero ();
  1227. m_matrixOutputLayerValveValue.InitializeZero ();
  1229. m_matrixDemoDataInput.InitializeZero ();
  1231. m_strSimuNetworkFold = TEXT("");
  1232. m_strSimuDataInput = TEXT("");
  1233. m_strSimuResult = TEXT("");
  1236. m_nInputLayerNumber = 0;
  1237. m_nHideLayerNumber = 0;
  1238. m_nOutputLayerNumber = 0;
  1240. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1242. //*******************************************************************
  1243. // Update the UI
  1244. //
  1245. HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SIMU_NETWORK_FOLD);
  1246. ::SetWindowText (hWnd, _T(""));
  1248. hWnd = ::GetDlgItem (this->m_hWnd, IDC_SIMU_DATA_INPUT);
  1249. ::SetWindowText (hWnd, _T(""));
  1251. hWnd = ::GetDlgItem (this->m_hWnd, IDC_SIMU_RESULT);
  1252. ::SetWindowText (hWnd, _T(""));
  1254. return false;
  1256. }
  1257. else // Successful!!!
  1258. {
  1259. // 前向计算
  1260. switch(m_nComboArithmetic)
  1261. {
  1262. case 0: // LM Arithmetic Selected
  1263. LMForwardCalculate( m_nInputLayerNumber,
  1264. m_nHideLayerNumber,
  1265. m_nOutputLayerNumber,
  1266. m_bSimulateDataFlag,
  1267. m_nComboFunc,
  1268. m_matrixDemoDataInput,
  1269. m_matrixInputLayerValue,
  1270. m_matrixInputToHideWeightValue,
  1271. m_matrixHideLayerValveValue,
  1272. m_matrixHideLayerOutput,
  1273. m_matrixHideToOutputWeightValue,
  1274. m_matrixOutputLayerOutput,
  1275. m_matrixOutputLayerValveValue
  1276.  );
  1278. break;
  1280. case 1: // BP Arithmetic Selected
  1281. BPForwardCalculate2(m_nInputLayerNumber,
  1282. m_nHideLayerNumber,
  1283. m_nOutputLayerNumber,
  1284. m_bSimulateDataFlag,
  1285. m_nComboFunc,
  1286. m_matrixDemoDataInput,
  1287. m_matrixInputLayerValue,
  1288. m_matrixInputToHideWeightValue,
  1289. m_matrixHideLayerValveValue,
  1290. m_matrixHideLayerOutput,
  1291. m_matrixHideToOutputWeightValue,
  1292. m_matrixOutputLayerOutput,
  1293. m_matrixOutputLayerValveValue
  1294.  );
  1296. break;
  1298. default: // No Arithmetic Selected
  1299. return false;
  1301. }
  1305. // 存储模拟结果
  1306. (m_matrixOutputLayerOutput.Transpose()).SaveDataToFile(m_strSimuResult);
  1309. // 释放全局变量所占的内存
  1310. m_matrixSimuNetwork.InitializeZero ();
  1312. m_matrixInputToHideWeightValue.InitializeZero ();
  1313. m_matrixHideLayerValveValue.InitializeZero ();
  1314. m_matrixHideToOutputWeightValue.InitializeZero ();
  1315. m_matrixOutputLayerValveValue.InitializeZero ();
  1317. m_matrixDemoDataInput.InitializeZero ();
  1319. m_matrixHideLayerOutput.InitializeZero ();
  1320. m_matrixOutputLayerOutput.InitializeZero ();
  1322. m_strSimuNetworkFold = _T("");
  1323. m_strSimuDataInput = _T("");
  1324. m_strSimuResult = _T("");
  1326. m_nComboFunc = -1;
  1328. m_nInputLayerNumber = 0;
  1329. m_nHideLayerNumber = 0;
  1330. m_nOutputLayerNumber = 0;
  1332. ::MessageBox (this->m_hWnd, _T("数据仿真结果保存成功!"), _T("恭喜!"), MB_OK);
  1334. (CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
  1336. //*******************************************************************
  1337. // Update the UI
  1338. //
  1339. HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SIMU_NETWORK_FOLD);
  1340. ::SetWindowText (hWnd, _T(""));
  1342. hWnd = ::GetDlgItem (this->m_hWnd, IDC_SIMU_DATA_INPUT);
  1343. ::SetWindowText (hWnd, _T(""));
  1345. hWnd = ::GetDlgItem (this->m_hWnd, IDC_SIMU_RESULT);
  1346. ::SetWindowText (hWnd, _T(""));
  1348. }
  1351. return true;
  1353. }
  1355. void CNNBPDlg::ForwardCalculateInit()
  1356. {
  1357. LMForwardCalculateInit( m_nInputLayerNumber,
  1358. m_nHideLayerNumber,
  1359. m_nOutputLayerNumber,
  1360. m_matrixDemoDataInput,
  1361. m_matrixInputLayerValue,
  1362. m_matrixInputToHideWeightValue,
  1363. m_matrixHideLayerValveValue,
  1364. m_matrixHideToOutputWeightValue,
  1365. m_matrixOutputLayerValveValue
  1366. );
  1368. }
  1370. bool CNNBPDlg::DemoDataTrainRepeat()
  1371. {
  1372. bool bReturn = false;
  1374. switch( m_nComboArithmetic)
  1375. {
  1376. case 0: // LM Arithmetic Selected
  1377. bReturn = LMDemoDataTrainRepeat ( m_nInputLayerNumber,
  1378. m_nHideLayerNumber,
  1379. m_nOutputLayerNumber,
  1380. m_bSimulateDataFlag,
  1381. m_nComboFunc,
  1382. m_SystemErrorOld,
  1383. m_SystemErrorNew,
  1384. m_nSystemErrorLevel,
  1385. m_nSystemError,
  1386. m_nStep,
  1387. m_nMaxTrainTimes,
  1388. m_nTrainTimes,
  1389. IDC_SYSTEM_ERROR,
  1390. IDC_TRAIN_TIMES,
  1391. this->m_hWnd,
  1392. m_matrixDemoDataInput,
  1393. m_matrixInputLayerValue,
  1394. m_matrixInputToHideWeightValue,
  1395. m_matrixHideLayerValveValue,
  1396. m_matrixHideLayerOutput,
  1397. m_matrixHideToOutputWeightValue,
  1398. m_matrixOutputLayerOutput,
  1399. m_matrixOutputLayerValveValue
  1400. );
  1402. break;
  1405. case 1: // BP Arithmetic Selected
  1406. bReturn = BPDemoDataTrainRepeat ( m_nInputLayerNumber,
  1407. m_nHideLayerNumber,
  1408. m_nOutputLayerNumber,
  1409. m_bSimulateDataFlag,
  1410. m_nComboFunc,
  1411. m_SystemErrorOld,
  1412. m_SystemErrorNew,
  1413. m_nSystemErrorLevel,
  1414. m_nSystemError,
  1415. m_nStep,
  1416. m_nMaxTrainTimes,
  1417. m_nTrainTimes,
  1418. IDC_SYSTEM_ERROR,
  1419. IDC_TRAIN_TIMES,
  1420. this->m_hWnd,
  1421. m_matrixDemoDataInput,
  1422. m_matrixInputLayerValue,
  1423. m_matrixInputToHideWeightValue,
  1424. m_matrixHideLayerValveValue,
  1425. m_matrixHideLayerOutput,
  1426. m_matrixHideToOutputWeightValue,
  1427. m_matrixOutputLayerOutput,
  1428. m_matrixOutputLayerValveValue
  1429.  );
  1431. break;
  1433. default: // No Arithmetic Selected
  1434. return bReturn;
  1436. }
  1438. return bReturn;
  1440. }
  1444. bool CNNBPDlg::SaveConstantStringToFile(CString& strFileName,CString& strConstantData)
  1445. {
  1447. // Convert CString to LPCTSTR 
  1448. LPCTSTR lpszFileName = "";
  1450. strFileName.TrimLeft ();
  1451. strFileName.TrimRight ();
  1452. lpszFileName = (LPCTSTR)strFileName;
  1454. CStdioFile dataFile;
  1456. if(!dataFile.Open (lpszFileName, CFile::modeCreate | CFile::modeNoTruncate | CFile::modeWrite | CFile::typeText))
  1457. {
  1458. ::MessageBox(this->m_hWnd, _T("不能创建存储网络参数的文件!"), _T("错误!"), MB_OK | MB_ICONERROR);
  1459. dataFile.Close ();
  1460. return FALSE;
  1461. }
  1463. dataFile.SeekToEnd ();
  1465. // Write data into the file
  1466. char *pBuffer = new char[strConstantData.GetLength ()];
  1468. memcpy(pBuffer,strConstantData,strConstantData.GetLength ());
  1470. dataFile.Write (pBuffer,strConstantData.GetLength ());
  1472. dataFile.Close ();
  1473. return TRUE;
  1475. }
  1478. /////////////////////////////////////////////////////////////////////////////
  1479. // 工作线程过程
  1480. //
  1481. /////////////////////////////////////////////////////////////////////////////
  1483. ULONG __stdcall WorkThreadProc(LPVOID lParam)
  1484. {
  1485. if(lParam == NULL)
  1486. return -1;
  1489. STHREADDATA *pData = (STHREADDATA *)lParam;
  1491. // Set the flag
  1492. pData->pDlg->m_bStartFlag = true;
  1496. if(pData->pDlg->m_bSimulateDataFlag)
  1497. {
  1498. pData->pDlg->SimulateData();
  1499. }
  1500. else
  1501. {
  1502. pData->pDlg->TrainingDemo();
  1503. }
  1505. pData->pDlg->m_bStartFlag = false;
  1507. delete pData;
  1509. pData = 0;
  1511. return 0;
  1513. }
  1516. void CAboutDlg::OnHelpdocument() 
  1517. {
  1518. // TODO: Add your control notification handler code here
  1520. DWORD nBufferLength=256;
  1521. TCHAR lpBuffer[256];
  1522. CString m_strPath;
  1524. GetCurrentDirectory(nBufferLength,lpBuffer);
  1525. m_strPath = lpBuffer;
  1526. m_strPath = m_strPath + '\' + TEXT("Help.chm");
  1527. HINSTANCE hHelpFile = ShellExecute (NULL,"open", m_strPath, NULL, NULL, SW_SHOWNORMAL);
  1529. if((long)hHelpFile == ERROR_FILE_NOT_FOUND)
  1530. {
  1531. ::MessageBox(this->m_hWnd, _T("帮助文件没有找到,你是不是把它给删了?"), _T("没找到"), MB_ICONEXCLAMATION | MB_OK );
  1532. return ;
  1533. }
  1535. }
  1537. void CAboutDlg::OnLButtonDown(UINT nFlags, CPoint point) 
  1538. {
  1539. // TODO: Add your message handler code here and/or call default
  1541. CDialog::OnOK ();
  1543. //CDialog::OnLButtonDown(nFlags, point);
  1544. }
  1546. void CNNBPDlg::OnStopTrain() 
  1547. {
  1548. // TODO: Add your control notification handler code here
  1549. DWORD dwExitCode = 0;
  1550. ::GetExitCodeThread (m_hThread, &dwExitCode);
  1552. if(dwExitCode == STILL_ACTIVE)
  1553. {
  1554. ::TerminateThread (m_hThread, (DWORD)0);
  1556. CloseHandle (m_hThread);
  1557. m_hThread = NULL;
  1559. HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_ERROR);
  1560. ::SetWindowText (hWnd, _T("0"));
  1562. hWnd = ::GetDlgItem (this->m_hWnd, IDC_TRAIN_TIMES);
  1563. ::SetWindowText (hWnd, _T("0"));
  1564. }
  1567. }