📄 nnbpdlg.cpp

📁 bp神经网络源代码
💻 CPP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
	LMForwardCalculateInit( m_nInputLayerNumber,
		m_nHideLayerNumber,
		m_nOutputLayerNumber,
		m_matrixDemoDataInput,
		m_matrixInputLayerValue,
		m_matrixInputToHideWeightValue,
		m_matrixHideLayerValveValue,
		m_matrixHideToOutputWeightValue,
		m_matrixOutputLayerValveValue
		);	
	
}


bool CNNBPDlg::DemoDataTrainRepeat()
{
	bool	bReturn = false;
	
		bReturn = LMDemoDataTrainRepeat (	m_nInputLayerNumber,
			m_nHideLayerNumber,
			m_nOutputLayerNumber,
			m_bSimulateDataFlag,
			m_nComboFunc,
			m_SystemErrorOld,
			m_SystemErrorNew,
			m_nSystemErrorLevel,
			m_nSystemError,
			m_nStep,
			m_nMaxTrainTimes,
			m_nTrainTimes,
			IDC_SYSTEM_ERROR,
			IDC_TRAIN_TIMES,
			this->m_hWnd,
			m_matrixDemoDataInput,
			m_matrixInputLayerValue,
			m_matrixInputToHideWeightValue,
			m_matrixHideLayerValveValue,
			m_matrixHideLayerOutput,
			m_matrixHideToOutputWeightValue,
			m_matrixOutputLayerOutput,
			m_matrixOutputLayerValveValue
			);
		
	return bReturn;
	
}


bool CNNBPDlg::TrainingDemo()
{

	(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(FALSE);

	if(m_bSimulateDataFlag)
	{
		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;
	}

	if(m_nInputLayerNumber <= 0)
	{
		::MessageBox (this->m_hWnd, _T("输入层数目必须为大于等于1的正整数!"), _T(":("), MB_OK);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;
	}

	if(m_nHideLayerNumber <= 0)
	{
		::MessageBox (this->m_hWnd, _T("隐含层数目必须为大于等于1的正整数!"), _T(":("), MB_OK);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;
	}

	if(m_nOutputLayerNumber <= 0)
	{
		::MessageBox (this->m_hWnd, _T("输出层数目必须为大于等于1的正整数!"), _T(":("), MB_OK | MB_ICONINFORMATION);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;
	}

	if(m_strDemoDataInput.IsEmpty ())
	{
		::MessageBox (this->m_hWnd, _T("你还没选取用来训练的样本数据文件的装载路径!"), _T(":("), MB_OK | MB_ICONINFORMATION);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;
	}

	if(m_strDemoSaveNetwork.IsEmpty ())
	{
		::MessageBox (this->m_hWnd, _T("你还没选取最终模拟输出网络参数的文件的存放路径!"), _T(":("), MB_OK | MB_ICONINFORMATION);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;

	}

	if(m_strDemoSaveResult.IsEmpty ())
	{
		::MessageBox (this->m_hWnd, _T("你还没选取最终模拟输出结果的文件的存放路径!"), _T(":("), MB_OK | MB_ICONINFORMATION);
		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return false;

	}

	// 装载资源
	m_matrixDemoDataInput.LoadDataFromFile (m_strDemoDataInput);


	if((m_nInputLayerNumber + m_nOutputLayerNumber) != m_matrixDemoDataInput.GetMatrixColNumber () )
	{
		::MessageBox (this->m_hWnd, _T("所输入的输入层和输出层数目之和与被读取文件中的数目不相符!"), _T("错误!"), MB_OK | MB_ICONERROR);
		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);
		return FALSE;
	}
    
    m_nComboArithmetic = 0;
	m_nComboFunc = 2;

	// 第一次前向计算初始化
	ForwardCalculateInit();

	// 反复反馈运算
	bool	bSuccess = DemoDataTrainRepeat();

	if(bSuccess) // Successful!
	{
		
		//////////////////////////////////////////////////////////////////////////////
		//						定义存储矩阵格式									//
		//////////////////////////////////////////////////////////////////////////////

		if(!(m_strDemoSaveNetwork.IsEmpty ()))
		{
			CString strDemoInputLayerNumber = _T("## 样本的输入层的数目: ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork, strDemoInputLayerNumber);

			CString strInputLayerNumber;
			strInputLayerNumber.Format ("%u", m_nInputLayerNumber);
			SaveConstantStringToFile(m_strDemoSaveNetwork, strInputLayerNumber);
			
			CString strDemoHideLayerNumber = _T("\n## 样本的隐含层的数目: ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork, strDemoHideLayerNumber);

			CString strHideLayerNumber;
			strHideLayerNumber.Format ("%u", m_nHideLayerNumber);
			SaveConstantStringToFile(m_strDemoSaveNetwork, strHideLayerNumber);

			CString strDemoOutputLayerNumber = _T("\n## 样本的输出层的数目: ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork, strDemoOutputLayerNumber);

			CString strOutputLayerNumber;
			strOutputLayerNumber.Format ("%u", m_nOutputLayerNumber);
			SaveConstantStringToFile(m_strDemoSaveNetwork, strOutputLayerNumber);

			CString strSelectAlgorithm = _T("\n## 训练网络所采用的神经网络算法: ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork, strSelectAlgorithm);

			CString strComboArithmetic;
			strComboArithmetic.Format ("%d", m_nComboArithmetic);
			SaveConstantStringToFile(m_strDemoSaveNetwork, strComboArithmetic);

			CString strSelectFunction = _T("\n## 网络中使用的函数的索引值: ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork, strSelectFunction);

			CString strComboFunc;
			strComboFunc.Format ("%d", m_nComboFunc);
			SaveConstantStringToFile(m_strDemoSaveNetwork, strComboFunc);


			CString strSeparator = _T("\n## 输入层到隐含层的权值矩阵 ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork, strSeparator);
			
			// 存储模拟过的输入到隐含层的权值矩阵
			m_matrixInputToHideWeightValue.SaveDataToFile (m_strDemoSaveNetwork);

			strSeparator = _T("\n## 隐含层的阀值矩阵 ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork,strSeparator);

			// 存储模拟过的隐含层的阀值矩阵
			m_matrixHideLayerValveValue.SaveDataToFile (m_strDemoSaveNetwork);

			strSeparator = _T("\n## 隐含层到输出层的权值矩阵 ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork,strSeparator);

			// 存储模拟过的隐含层到输出层的权值矩阵
			m_matrixHideToOutputWeightValue.SaveDataToFile (m_strDemoSaveNetwork);

			strSeparator = _T("\n## 输出层的阀值矩阵 ##\n");
			SaveConstantStringToFile(m_strDemoSaveNetwork,strSeparator);

			// 存储模拟过的输出层的阀值矩阵
			m_matrixOutputLayerValveValue.SaveDataToFile (m_strDemoSaveNetwork);

		}


		//	存储模拟过输出层的输出值矩阵	
		if(!(m_strDemoSaveResult.IsEmpty ()))
		{
			(m_matrixOutputLayerOutput.Transpose()).SaveDataToFile (m_strDemoSaveResult);
		}

		// 释放全局变量所占的内存
		m_matrixDemoDataInput.InitializeZero ();

		m_matrixInputLayerValue.InitializeZero ();

		m_matrixInputToHideWeightValue.InitializeZero ();
		m_matrixHideLayerValveValue.InitializeZero ();
		m_matrixHideLayerOutput.InitializeZero ();
	
		m_matrixHideToOutputWeightValue.InitializeZero ();
		m_matrixOutputLayerValveValue.InitializeZero ();	
	
		m_matrixOutputLayerOutput.InitializeZero ();

		// ReInitialize the global value
		m_nInputLayerNumber = 0;
		m_nHideLayerNumber = 0;
		m_nOutputLayerNumber = 0;

		m_nComboFunc = -1;
		m_nComboArithmetic = -1;

		m_nSystemError = 0;
		m_nTrainTimes = 0;

		m_nSystemErrorLevel = SYSTEM_ERROR_LEVEL;
		m_nMaxTrainTimes = LOOP_MAX_TIMES;

		m_SystemErrorNew = MAX_SYSTEM_ERROR;
		m_SystemErrorOld = MAX_SYSTEM_ERROR;

		m_nStep = INIT_STEP;
		
		m_strDemoDataInput = TEXT("");
		m_strDemoSaveNetwork = TEXT("");
		m_strDemoSaveResult = TEXT("");


		::MessageBox (this->m_hWnd, _T("任务完成了!"), _T("恭喜!"), MB_OK);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);

		//*******************************************************************
		// handle the UI
		//
		CString strSystemErrorLevel;
		strSystemErrorLevel.Format ("%lf", m_nSystemErrorLevel);
		HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_LEVEL);
		::SetWindowText (hWnd, (LPCTSTR)strSystemErrorLevel);

		CString strMaxTrainTimes;
		strMaxTrainTimes.Format ("%u", m_nMaxTrainTimes);
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_MAX_TRAIN_TIMES);
		::SetWindowText (hWnd, (LPCTSTR)strMaxTrainTimes);

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_INPUT_LAYER_NUMBER);
		::SetWindowText (hWnd, _T("0"));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_HIDE_LAYER_NUMBER);
		::SetWindowText (hWnd, _T("0"));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_OUTPUT_LAYER_NUMBER);
		::SetWindowText (hWnd, _T("0"));

		m_ctrlComboArithmetic.SetCurSel (-1);

		m_ctrlComboFunc.SetCurSel (-1);
	
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_DATA_INPUT);
		::SetWindowText (hWnd, _T(""));
	
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_NETWORK);
		::SetWindowText (hWnd, _T(""));
	
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_RESULT);
		::SetWindowText (hWnd, _T(""));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_ERROR);
		::SetWindowText (hWnd, _T("0"));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_TRAIN_TIMES);
		::SetWindowText (hWnd, _T("0"));



	}
	else	// Fail to accomplish the task
	{		

		// 释放全局变量所占的内存
		m_matrixDemoDataInput.InitializeZero ();

		m_matrixInputLayerValue.InitializeZero ();

		m_matrixInputToHideWeightValue.InitializeZero ();
		m_matrixHideLayerValveValue.InitializeZero ();
		m_matrixHideLayerOutput.InitializeZero ();
	
		m_matrixHideToOutputWeightValue.InitializeZero ();
		m_matrixOutputLayerValveValue.InitializeZero ();	
	
		m_matrixOutputLayerOutput.InitializeZero ();

		// ReInitialize the global value
		m_nInputLayerNumber = 0;
		m_nHideLayerNumber = 0;
		m_nOutputLayerNumber = 0;

		m_nComboFunc = -1;
		m_nComboArithmetic = -1;

		m_nSystemError = 0;
		m_nTrainTimes = 0;

		m_nSystemErrorLevel = SYSTEM_ERROR_LEVEL;
		m_nMaxTrainTimes = LOOP_MAX_TIMES;

		m_SystemErrorNew = MAX_SYSTEM_ERROR;
		m_SystemErrorOld = MAX_SYSTEM_ERROR;

		m_nStep = INIT_STEP;
		
		m_strDemoDataInput = TEXT("");
		m_strDemoSaveNetwork = TEXT("");
		m_strDemoSaveResult = TEXT("");

		::MessageBox (this->m_hWnd, _T("很抱歉,我未能完成您交给我的任务."), _T(":("),MB_OK | MB_ICONERROR);

		(CNNBPDlg *)GetDlgItem(IDC_STATE)->EnableWindow(TRUE);

		//*******************************************************************
		// handle the UI
		//
		CString strSystemErrorLevel;
		strSystemErrorLevel.Format ("%lf", m_nSystemErrorLevel);
		HWND hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_LEVEL);
		::SetWindowText (hWnd, (LPCTSTR)strSystemErrorLevel);

		CString strMaxTrainTimes;
		strMaxTrainTimes.Format ("%u", m_nMaxTrainTimes);
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_MAX_TRAIN_TIMES);
		::SetWindowText (hWnd, (LPCTSTR)strMaxTrainTimes);

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_INPUT_LAYER_NUMBER);
		::SetWindowText (hWnd, _T("0"));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_HIDE_LAYER_NUMBER);
		::SetWindowText (hWnd, _T("0"));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_OUTPUT_LAYER_NUMBER);
		::SetWindowText (hWnd, _T("0"));

		m_ctrlComboArithmetic.SetCurSel (-1);

		m_ctrlComboFunc.SetCurSel (-1);

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_DATA_INPUT);
		::SetWindowText (hWnd, _T(""));
	
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_NETWORK);
		::SetWindowText (hWnd, _T(""));
	
		hWnd = ::GetDlgItem (this->m_hWnd, IDC_DEMO_SAVE_RESULT);
		::SetWindowText (hWnd, _T(""));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_SYSTEM_ERROR);
		::SetWindowText (hWnd, _T("0"));

		hWnd = ::GetDlgItem (this->m_hWnd, IDC_TRAIN_TIMES);
		::SetWindowText (hWnd, _T("0"));


		return false;

	}

	return true;
	

}


bool CNNBPDlg::SaveConstantStringToFile(CString& strFileName,CString& strConstantData)
{
	
	// Convert CString to LPCTSTR 
	LPCTSTR	lpszFileName = "";
	
	strFileName.TrimLeft ();
	strFileName.TrimRight ();
	lpszFileName = (LPCTSTR)strFileName;
	
	CStdioFile dataFile;
	
	if(!dataFile.Open (lpszFileName, CFile::modeCreate | CFile::modeNoTruncate | CFile::modeWrite | CFile::typeText))
	{
		::MessageBox(this->m_hWnd, _T("不能创建存储网络参数的文件!"), _T("错误!"), MB_OK | MB_ICONERROR);
		dataFile.Close ();
		return FALSE;
	}
	
	dataFile.SeekToEnd ();
	
	// Write data into the file
	char *pBuffer = new char[strConstantData.GetLength ()];
	
	memcpy(pBuffer,strConstantData,strConstantData.GetLength ());
	
	dataFile.Write (pBuffer,strConstantData.GetLength ());
	
	dataFile.Close ();
	return TRUE;
	
}
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -