Ejemplo n.º 1
0
        private void btnTrain_Click(object sender, EventArgs e)
        {
            if (tbxTrainFilePath.Text == "")
            {
                MessageBox.Show("Error: You must fill all required inputs!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
                return;
            }
            int iMeasureType = 0;
            switch (cmbTrainingMeasure.SelectedItem.ToString())
            {
                case "MSE":
                    iMeasureType = MSE;
                    break;
                case "NMSE":
                    iMeasureType = NMSE;
                    break;
                case "RMSE":
                    iMeasureType = RMSE;
                    break;
                case "Sign":
                    iMeasureType = SIGN;
                    break;
            }
            int iCrossValidationType;
            if(rdShuffle.Checked)
            {
                iCrossValidationType = 0;
            }
            else if(rdNotShuffle.Checked)
            {
                iCrossValidationType = 1;
            }
            else
            {
                iCrossValidationType = 2;
            }

            #region Dự đoán giá
            if (rdPricePrediction.Checked)//Dự đoán giá
            {
                int iPos = tbxTrainFilePath.Text.LastIndexOf('_');
                string strMutualPath = tbxTrainFilePath.Text.Remove(iPos + 1);
                string strModelFile = strMutualPath + "model.txt";
                #region SVR
                if (rdSVR.Checked)//Mô hình SVR
                {
                    string[] strArgs = new string[8];
                    strArgs[0] = "-g";  //gama. Trong hàm Gauss kernel: exp(-gamma*|u-v|^2)
                    strArgs[2] = "-c";
                    strArgs[4] = "-p";  //epsilon
                    strArgs[6] = tbxTrainFilePath.Text;
                    strArgs[7] = strModelFile;

                    if (cmbModelSelection.SelectedItem.ToString() == "Use default values")
                    {
                        strArgs[1] = "0";   //gama
                        strArgs[3] = "1";   //c
                        strArgs[5] = "0.1";   //epsilon
                        //strArgs[1] = "0.686";   //gama
                        //strArgs[3] = "68.4717";   //c
                        //strArgs[5] = "0.00012124";   //epsilon
                        //strArgs[1] = "2.5";   //gama
                        //strArgs[3] = "0.01";   //c
                        //strArgs[5] = "0.3";   //epsilon
                        svm_train.Main(strArgs);
                    }
                    else if (cmbModelSelection.SelectedItem.ToString() == "Pattern search")
                    {
                        string[] strArgsModel = new string[4];
                        strArgsModel[0] = "-v";
                        strArgsModel[1] = tbxNumFold.Text;
                        strArgsModel[2] = tbxTrainFilePath.Text;
                        strArgsModel[3] = strModelFile;

                        int iNumModel = 10;
                        StreamWriter writer = new StreamWriter(strModelFile);
                        writer.WriteLine("Multiple");
                        writer.WriteLine(iNumModel.ToString());
                        StreamWriter patternTime = new StreamWriter(strMutualPath + "PatternTime.txt");
                        double dblTotalTime = 0;
                        for (int i = 0; i < iNumModel; i++)
                        {
                            svm_modelSelection modelSelection = new svm_modelSelection();
                            DateTime start = DateTime.Now;
                            modelSelection.Run(strArgsModel, strMutualPath + "PatternSearchLog" + (i + 1).ToString() + ".txt", false, iMeasureType, iCrossValidationType);
                            DateTime end = DateTime.Now;
                            TimeSpan elapsedTime = end - start;
                            dblTotalTime += elapsedTime.TotalMinutes;
                            patternTime.WriteLine((i + 1).ToString() + ": " + elapsedTime.TotalMinutes.ToString() + " minutes");

                            strArgs[1] = (Math.Pow(2, modelSelection.Y)).ToString();   //gama
                            strArgs[3] = (Math.Pow(2, modelSelection.X)).ToString();   //c
                            strArgs[5] = (Math.Pow(2, modelSelection.Z)).ToString();   //epsilon
                            //strArgs[3] = (Math.Pow(2, 6.09743805699862)).ToString();
                            //strArgs[1] = (Math.Pow(2, -3.86541887296616)).ToString();
                            //strArgs[5] = (Math.Pow(2, -13.0097538228192)).ToString();
                            strArgs[7] = strMutualPath + "model" + (i + 1).ToString() + ".txt";
                            writer.WriteLine(strArgs[7]);
                            svm_train.Main(strArgs);
                        }
                        writer.Close();
                        patternTime.WriteLine("Total: " + dblTotalTime.ToString() + " minutes");
                        patternTime.Close();
                    }
                    else if (cmbModelSelection.SelectedItem.ToString() == "Grid search")
                    {
                        svm_modelSelection modelSelection = new svm_modelSelection();
                        string[] strArgsModel = new string[4];
                        strArgsModel[0] = "-v";
                        strArgsModel[1] = tbxNumFold.Text;
                        strArgsModel[2] = tbxTrainFilePath.Text;
                        strArgsModel[3] = strModelFile;
                        DateTime start = DateTime.Now;
                        modelSelection.Run(strArgsModel, strMutualPath + "GridSearchLog.txt", true, iMeasureType, iCrossValidationType);
                        DateTime end = DateTime.Now;
                        TimeSpan elapsedTime = end - start;
                        StreamWriter gridTime = new StreamWriter(strMutualPath + "GridTime.txt");
                        gridTime.WriteLine(elapsedTime.TotalMinutes.ToString() + " minutes");
                        gridTime.Close();

                        strArgs[1] = modelSelection.Y.ToString();   //gama
                        strArgs[3] = modelSelection.X.ToString();   //c
                        strArgs[5] = modelSelection.Z.ToString();   //epsilon
                        svm_train.Main(strArgs);
                    }
                    MessageBox.Show("Finish!");
                }
                #endregion
                #region ANN
                else//Mô hình ANN
                {
                    ANNParameterBUS.InputNode = int.Parse(tbxNumInputNode.Text);
                    ANNParameterBUS.HiddenNode = int.Parse(tbxANNHiddenNode.Text);
                    ANNParameterBUS.OutputNode = 1;
                    ANNParameterBUS.MaxEpoch = int.Parse(tbxMaxLoops.Text);
                    ANNParameterBUS.LearningRate = double.Parse(tbxLearningRate.Text);
                    ANNParameterBUS.Momentum = double.Parse(tbxMomentum.Text);
                    ANNParameterBUS.Bias = double.Parse(tbxBias.Text);

                    ANNModelBUS.AnnModelFile = strModelFile;
                    ANNTrainBUS annTrain = new ANNTrainBUS();
                    annTrain.LoadDataSet(tbxTrainFilePath.Text);
                    annTrain.Main();
                    MessageBox.Show("Finish!");
                }
                #endregion
            }
            #endregion
            #region Dự đoán xu hướng
            else//Dự đoán xu hướng
            {
                if (rdSVR.Checked)//Mô hình SVR
                {
                    int iPos = tbxTrainFilePath.Text.LastIndexOf('_');
                    string strMutualPath = tbxTrainFilePath.Text.Remove(iPos + 1);
                    string strModelFile = strMutualPath + "model.txt";
                    string[] strArgs = new string[8];
                    strArgs[0] = "-g";  //gama. Trong hàm Gauss kernel: exp(-gamma*|u-v|^2)
                    strArgs[2] = "-c";
                    strArgs[4] = "-p";  //epsilon
                    strArgs[6] = tbxTrainFilePath.Text;
                    strArgs[7] = strModelFile;

                    if (cmbModelSelection.SelectedItem.ToString() == "Use default values")
                    {
                        //strArgs[1] = "0";   //gama
                        //strArgs[3] = "1";   //c
                        //strArgs[5] = "0.1";   //epsilon
                        strArgs[1] = "0.0110485434560398";   //gama
                        strArgs[3] = "304.437021440697";   //c
                        strArgs[5] = "0.000290333768311211";   //epsilon
                        //strArgs[1] = "2.5";   //gama
                        //strArgs[3] = "0.01";   //c
                        //strArgs[5] = "0.3";   //epsilon
                        svm_train.Main(strArgs);
                    }
                    else if (cmbModelSelection.SelectedItem.ToString() == "Pattern search")
                    {
                        string[] strArgsModel = new string[4];
                        strArgsModel[0] = "-v";
                        strArgsModel[1] = tbxNumFold.Text;
                        strArgsModel[2] = tbxTrainFilePath.Text;
                        strArgsModel[3] = strModelFile;

                        int iNumModel = 10;
                        StreamWriter writer = new StreamWriter(strModelFile);
                        writer.WriteLine("Multiple");
                        writer.WriteLine(iNumModel.ToString());
                        for (int i = 0; i < iNumModel; i++)
                        {
                            svm_modelSelection modelSelection = new svm_modelSelection();
                            modelSelection.Run(strArgsModel, strMutualPath + "PatternSearchLog" + (i + 1).ToString() + ".txt", false, iMeasureType, iCrossValidationType);
                            strArgs[1] = (Math.Pow(2, modelSelection.Y)).ToString();   //gama
                            strArgs[3] = (Math.Pow(2, modelSelection.X)).ToString();   //c
                            strArgs[5] = (Math.Pow(2, modelSelection.Z)).ToString();   //epsilon
                            //strArgs[3] = (Math.Pow(2, 6.09743805699862)).ToString();
                            //strArgs[1] = (Math.Pow(2, -3.86541887296616)).ToString();
                            //strArgs[5] = (Math.Pow(2, -13.0097538228192)).ToString();
                            strArgs[7] = strMutualPath + "model" + (i + 1).ToString() + ".txt";
                            writer.WriteLine(strArgs[7]);
                            svm_train.Main(strArgs);
                        }
                        writer.Close();
                    }
                    else if (cmbModelSelection.SelectedItem.ToString() == "Grid search")
                    {
                        svm_modelSelection modelSelection = new svm_modelSelection();
                        string[] strArgsModel = new string[4];
                        strArgsModel[0] = "-v";
                        strArgsModel[1] = tbxNumFold.Text;
                        strArgsModel[2] = tbxTrainFilePath.Text;
                        strArgsModel[3] = strModelFile;
                        modelSelection.Run(strArgsModel, strMutualPath + "GridSearchLog.txt", true, iMeasureType, iCrossValidationType);
                        strArgs[1] = modelSelection.Y.ToString();   //gama
                        strArgs[3] = modelSelection.X.ToString();   //c
                        strArgs[5] = modelSelection.Z.ToString();   //epsilon
                        svm_train.Main(strArgs);
                    }
                    MessageBox.Show("Finish!");
                }
                else//Mô hình ANN
                {
                    int iPos = tbxTrainFilePath.Text.LastIndexOf('_');
                    string strModelFile = tbxTrainFilePath.Text.Remove(iPos + 1) + "model.txt";

                    //khởi tạo các tham số cho mạng
                    ANNParameterBUS.InputNode = int.Parse(tbxNumInputNode.Text);
                    ANNParameterBUS.HiddenNode = int.Parse(tbxANNHiddenNode.Text);
                    ANNParameterBUS.OutputNode = 1;
                    ANNParameterBUS.MaxEpoch = int.Parse(tbxMaxLoops.Text);
                    ANNParameterBUS.LearningRate = double.Parse(tbxLearningRate.Text);
                    ANNParameterBUS.Momentum = double.Parse(tbxMomentum.Text);
                    ANNParameterBUS.Bias = double.Parse(tbxBias.Text);

                    ANNParameterBUS.Accuracy = double.Parse(tbxAccuracy.Text);
                    ANNParameterBUS.MeasureType = cmbTrainingMeasure.SelectedItem.ToString();

                    //Tiến hành train
                    ANNModelBUS.AnnModelFile = strModelFile;
                    ANNTrainBUS annTrain = new ANNTrainBUS();
                    annTrain.LoadDataSet(tbxTrainFilePath.Text);
                    annTrain.Main(iMeasureType);
                    MessageBox.Show("Finish!");
                }
            #endregion
            }
        }
Ejemplo n.º 2
0
        //Giá trị trả về là giá dự đoán
        public double TrainAndPredict(bool isSVR)
        {
            double[][] dblActual_Forecast = null;
            #region Phần chung

            //1. Lấy đoạn dữ liệu cần thiết
            double[] dblData = PickNeededData();
            //2. Tiền xử lý
            PreprocessBUS preprocessBUS = new PreprocessBUS();
            if (Preprocess == "ScaleByMinMax")
            {
                preprocessBUS.FindMinMax(dblData);
                dblData = preprocessBUS.PreprocessByMinMax(dblData);
            }
            ConverterBUS converter = new ConverterBUS();
            int iNumLine = 0;
            if(ImprovedDirection)
            {
                converter.ConvertWImprovedDirection(NumInputNode, dblData, "Training.txt", 100, out iNumLine);
            }
            else
            {
                converter.Convert(NumInputNode, dblData, "Training.txt", out iNumLine);
            }

            //Tạo file test. File test này chỉ có 2 dòng:
            //+Dòng 1: Chứa thông tin tiền xử lý
            //+Dòng 2: Giống như 1 dòng của file training, nhưng giá trị đích không biết (để bằng 0)
            StreamWriter writer = new StreamWriter("Test.txt");

            if (Preprocess == "ScaleByMinMax")
            {
                writer.WriteLine("ScaleByMinMax " + preprocessBUS.Min.ToString() + " " + preprocessBUS.Max.ToString());
            }
            string strLine = "0 ";
            for (int i = 0; i < NumInputNode; i++)
            {
                strLine = strLine + (i+1).ToString() + ":" + dblData[TrainingSize - NumInputNode + i].ToString() + " ";
            }
            writer.WriteLine(strLine);

            writer.Close();
            #endregion

            #region Phần riêng
            //3. Huấn luyện và dự đoán
            #region SVR
            if (isSVR == true)   //SVR
            {
                string[] strArgs = new string[8];
                strArgs[0] = "-g";  //gama. Trong hàm Gauss kernel: exp(-gamma*|u-v|^2)
                strArgs[2] = "-c";
                strArgs[4] = "-p";  //epsilon
                strArgs[6] = "Training.txt";
                strArgs[7] = "SVRModel.txt";
                //Tìm bộ tham số (gama, c, epsilon)
                svm_modelSelection modelSelection = new svm_modelSelection();
                modelSelection.Log = false;
                string[] strArgsModel = new string[4];
                strArgsModel[0] = "-v";
                strArgsModel[1] = NumFold;
                strArgsModel[2] = "Training.txt";
                strArgsModel[3] = "SVRModel.txt";
                if (ModelSelection == "Grid search")
                {
                    modelSelection.Run(strArgsModel, "", true, TrainingMeasure, CrossValidationType);
                    strArgs[1] = modelSelection.Y.ToString(); //gama
                    strArgs[3] = modelSelection.X.ToString(); //c
                    strArgs[5] = modelSelection.Z.ToString(); //epsilon
                    //Huấn luyện
                    svm_train.Main(strArgs);
                    //Dự đoán
                    strArgs = new string[3];
                    strArgs[0] = "Test.txt";
                    strArgs[1] = "SVRModel.txt";
                    strArgs[2] = "Prediction.txt";
                    dblActual_Forecast = svm_predict.MainProcess(strArgs);
                }
                else if(ModelSelection == "Pattern search")
                {
                    const int iNumModel = 10;
                    for (int i = 0; i < iNumModel; i++)
                    {
                        modelSelection = new svm_modelSelection {Log = false};
                        strArgsModel[3] = "SVRModel" + i + 1 + ".txt";
                        modelSelection.Run(strArgsModel, "", false, TrainingMeasure, CrossValidationType);
                        strArgs[1] = (Math.Pow(2, modelSelection.Y)).ToString();   //gama
                        strArgs[3] = (Math.Pow(2, modelSelection.X)).ToString();   //c
                        strArgs[5] = (Math.Pow(2, modelSelection.Z)).ToString();   //epsilon
                        strArgs[7] = "SVRModel" + i + 1 + ".txt";
                        //Huấn luyện
                        svm_train.Main(strArgs);
                    }
                    //Dự đoán
                    double[][][] dblTemp = new double[iNumModel][][];
                    dblActual_Forecast = new double[2][];
                    dblActual_Forecast[0] = new double[]{0};
                    dblActual_Forecast[1] = new double[]{0};

                    for (int i = 0; i < iNumModel; i++)
                    {
                        strArgs = new string[3];
                        strArgs[0] = "Test.txt";
                        strArgs[1] = "SVRModel" + i + 1 + ".txt";
                        strArgs[2] = "Prediction.txt";
                        dblTemp[i] = svm_predict.MainProcess(strArgs);
                        dblActual_Forecast[1][0] += dblTemp[i][1][0];
                    }
                    dblActual_Forecast[1][0] /= iNumModel;
                }
            }
            #endregion
            #region ANN
            else   //ANN
            {
                //Huấn luyện
                ANNParameterBUS.InputNode = NumInputNode;

                ANNModelBUS.AnnModelFile = "ANNModel.txt";
                ANNTrainBUS annTrain = new ANNTrainBUS();
                annTrain.LoadDataSet("Training.txt");
                annTrain.Main();

                //Dự đoán
                ANNParameterBUS.LoadParameter();
                ANNPredictBUS annPredict = new ANNPredictBUS();
                annPredict.LoadDataSet("Test.txt");
                dblActual_Forecast = annPredict.MainProcess();
            }
            #endregion
            #endregion
            return dblActual_Forecast[1][0];    //Giá dự đoán
        }