Exemplo n.º 1
0
        //
        private void Report(bool showXLS)
        {
            Show = showXLS;
            if (Show)
            {
                XLS         = new Excel.Application(); //открыть эксель
                XLS.Visible = false;
                //XLS.DisplayAlerts = false;
                WB = XLS.Workbooks.Add(System.Reflection.Missing.Value); //создаем новую книгу
                Sh = (Excel.Worksheet)WB.Sheets[1];                      //выбираем 1 лист
            }

            int nPh = dgPh.Rows[0].Cells[0].Value != null ? dgPh.Rows.Count : 0;

            aPh = new Phn[nPh];
            for (int i = 0; i < nPh; i++)
            {
                aPh[i].n   = i;
                aPh[i].pos = new int[4];
                aPh[i].p   = new int[nPh];
                for (int j = 0; j < nPh; j++)
                {
                    aPh[i].p[j] = 0;
                }
            }
            if (Show)
            {
                for (int i = 1; i <= 52; i++)
                {
                    Rng             = (Excel.Range)Sh.Columns[i, Type.Missing];
                    Rng.ColumnWidth = 2.5;
                    Rng.Font.Name   = "Courier New";
                }
            }
            int r = 1;

            SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "Сравниваемые альтернативы:");
            r++;
            for (int i = 0; i < nPh; i++, r++)
            {
                SetRange("A" + r, "W" + r, aHAl[0], "" + (i + 1) + "." + dgPh.Rows[i].Cells[0].Value);
            }
            r++;
            SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "Весовые коэффициенты критериев:");
            r++;
            int nCr = aCr.Length;

            for (int i = 0; i < nCr; i++, r++)
            {
                SetRange("A" + r, "W" + r, aHAl[0], "" + dgCr.Rows[i].HeaderCell.Value + " - " + aCr[i]);
            }
            SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "Сумма:" + GetSum());
            r += 2;
            SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "Матрицы отношений:");
            int w = nPh < 8 ? 8 : nPh;

            r++;
            for (int i = 0; i < nCr; i += 2)
            {
                string sr = ((char)('A' + w - 1)).ToString() + r;
                SetRange("A" + r, sr, Excel.XlHAlign.xlHAlignLeft, dgCr.Rows[i].HeaderCell.Value.ToString());
                if (i + 1 < nCr)
                {
                    sr = ((char)('A' + 2 * w)).ToString() + r;
                    SetRange(((char)('A' + w + 1)).ToString() + r, sr, aHAl[0], dgCr.Rows[i + 1].HeaderCell.Value.ToString());
                }
                r++;
                for (int j = 0; j < nPh; j++, r++)
                {
                    for (int k = 0; k < nPh; k++)
                    {
                        sr = ((char)('A' + k)).ToString() + r;
                        SetRange(sr, sr, Excel.XlHAlign.xlHAlignCenter, aComp[i].aMatrix[j, k].ToString());
                        Border();
                        if (i + 1 < nCr)
                        {
                            sr = ((char)('A' + w + 1 + k)).ToString() + r;
                            SetRange(sr, sr, Excel.XlHAlign.xlHAlignCenter, aComp[i + 1].aMatrix[j, k].ToString());
                            Border();
                        }
                    }
                }
            }
            if (!Show)
            {
                tbReport.Text = "";
            }
            Method1(nCr, nPh, ref r);
            Method2(nCr, nPh, ref r);
            Method3(nCr, nPh, ref r);
            Method4(nCr, nPh, ref r);
            r++;
            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "В результате работы СППР мы смогли выделить наилучший вариант для покупки:");
            if (Show)
            {
                Rng.Font.Bold = true;
            }
            else
            {
                tbReport.Text += "\nВ результате работы СППР мы смогли выделить наилучший вариант для покупки:\n";
            }
            r++;
            for (int i = 0; i < nPh; i++)
            {
                for (int j = 0; j < 4; j++)
                {
                    //Text += "-" + aPh[i].pos[j];
                    //if (aPh[i].pos[j] > 0)
                    aPh[i].p[aPh[i].pos[j] - 1]++;
                }
            }
            for (int j = nPh - 1; j > 0; j--)
            {
                for (int k = 0; k < j; k++)
                {
                    for (int z = 0; z < nPh; z++)
                    {
                        if (aPh[k].p[z] < aPh[j].p[z])
                        {
                            Phn ph = aPh[k];
                            aPh[k] = aPh[j];
                            aPh[j] = ph;
                            break;
                        }
                        if (aPh[k].p[z] > aPh[j].p[z])
                        {
                            break;
                        }
                    }
                }
            }
            //for (int i = 0; i < nPh; i++)
            //    Text += "-" + aPh[i].n;
            string s = "";
            int    n = 0;

            int[] p = new int[nPh];
            for (int j = 0; j < nPh; j++)
            {
                int z = 0;
                if (j > 0)
                {
                    for (; z < nPh; z++)
                    {
                        if (p[z] != aPh[j].p[z])
                        {
                            break;
                        }
                    }
                }
                if (j == 0 || z < nPh)
                {
                    if (j > 0 && z < nPh)
                    {
                        SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, s);
                        if (!Show)
                        {
                            tbReport.Text += s + "\n";
                        }
                        r++;
                        break;
                    }
                    n = 1;
                    aPh[j].p.CopyTo(p, 0);
                    s = dgPh.Rows[aPh[j].n].Cells[0].Value.ToString();
                }
                else
                {
                    n++;
                    s += ", " + dgPh.Rows[aPh[j].n].Cells[0].Value.ToString();
                }
                if (j == nPh - 1)
                {
                    SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, s);
                    if (!Show)
                    {
                        tbReport.Text += s + "\n";
                    }
                    r++;
                }
            }
            string[] aM = { "Метод блокировки: ", "Метод доминирования: ", "Турнирный механизм: ", "Метод k-максимальных критериев: " };
            for (int i = 0; i < n; i++)
            {
                if (n > 1)
                {
                    SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, dgPh.Rows[aPh[i].n].Cells[0].Value.ToString());
                    if (Show)
                    {
                        Rng.Font.Bold = true;
                    }
                    else
                    {
                        tbReport.Text += dgPh.Rows[aPh[i].n].Cells[0].Value.ToString() + "\n";
                    }
                    r++;
                }
                SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "С результатами:");
                if (!Show)
                {
                    tbReport.Text += "С результатами:\n";
                }
                r++;
                for (int j = 0; j < 4; j++, r++)
                {
                    SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, aM[j] + aPh[i].pos[j] + "-е место");
                    if (!Show)
                    {
                        tbReport.Text += aM[j] + aPh[i].pos[j] + "-е место\n";
                    }
                }
            }
            if (Show)
            {
                XLS.Visible = true;
            }
        }
Exemplo n.º 2
0
 //
 private void Method2(int nCr, int nPh, ref int r)
 {
     r++;
     SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "Механизм доминирования:");
     if (Show)
     {
         Rng.Font.Bold = true;
     }
     else
     {
         tbReport.Text += "Механизм доминирования:\n";
     }
     r++;
     string[] Cr = new string[nCr];
     Phn[]    Ph = new Phn[nPh];
     for (int i = 0; i < nPh; i++)
     {
         Ph[i].n  = i;
         Ph[i].nn = 0;
     }
     for (int i = 0; i < nCr; i++)
     {
         Cr[i] = "";
         for (int j = 0; j < nPh; j++)
         {
             int n = 0;
             for (int k = 0; k < nPh; k++)
             {
                 if (aComp[i].aMatrix[k, j] == 0)
                 {
                     n++;
                 }
             }
             if (n == nPh - 1)
             {
                 Cr[i] += (Cr[i] == "" ? "" : ", ") + (j + 1);
                 Ph[j].nn++;
             }
         }
     }
     for (int i = 0; i < nCr; i++)
     {
         if (Cr[i] != "")
         {
             SetRange("A" + r, "H" + r, Excel.XlHAlign.xlHAlignCenter, dgCr.Rows[i].HeaderCell.Value.ToString());
             Border();
             SetRange("I" + r, "P" + r, Excel.XlHAlign.xlHAlignCenter, Cr[i]);
             Border();
             r++;
         }
     }
     for (int i = nPh - 1; i > 0; i--)
     {
         for (int j = 0; j < i; j++)
         {
             if (Ph[j].nn < Ph[i].nn)
             {
                 Phn p = Ph[j];
                 Ph[j] = Ph[i];
                 Ph[i] = p;
             }
         }
     }
     if (nPh > 0)
     {
         int    nn = 0;
         int    ps = 1;
         string s  = "";
         for (int i = 0; i < nPh; i++)
         {
             if (nn != Ph[i].nn)
             {
                 if (nn > 0)
                 {
                     SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "" + ps + "-е место " + s);
                     if (!Show)
                     {
                         tbReport.Text += "" + ps + "-е место " + s + "\n";
                     }
                     ps++;
                     r++;
                 }
                 //if (Ph[i].nn == 0) break;
                 aPh[Ph[i].n].pos[1] = ps;
                 nn = Ph[i].nn;
                 s  = dgPh.Rows[Ph[i].n].Cells[0].Value.ToString();
             }
             else
             {
                 aPh[Ph[i].n].pos[1] = ps;
                 s += ", " + dgPh.Rows[Ph[i].n].Cells[0].Value.ToString();
             }
             if (i == nPh - 1)
             {
                 SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "" + ps + "-е место " + s);
                 if (!Show)
                 {
                     tbReport.Text += "" + ps + "-е место " + s + "\n\n";
                 }
                 r++;
             }
         }
     }
 }
Exemplo n.º 3
0
        //
        private void Method4(int nCr, int nPh, ref int r)
        {
            r++;
            SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "Метод k-максимальных коэффициентов:");
            if (Show)
            {
                Rng.Font.Bold = true;
            }
            else
            {
                tbReport.Text += "Метод k-максимальных коэффициентов:\n";
            }
            r++;
            int hr, er, nr;

            int[,] max = new int[nPh, 4];
            Phn[] Ph  = new Phn[nPh];
            Phn[] aPs = new Phn[nPh];
            for (int i = 0; i < nPh; i++)
            {
                Ph[i].pos  = new int[nPh];
                aPs[i].n   = i;
                aPs[i].pos = new int[nPh];
                for (int j = 0; j < nPh; j++)
                {
                    aPs[i].pos[j] = Ph[i].pos[j] = 0;
                }
            }
            for (int i = 0; i < nCr; i++, r++)
            {
                for (int j = 0; j < nPh; j++)
                {
                    Ph[j].n  = j;
                    Ph[j].nn = 0;
                    hr       = er = nr = 0;
                    for (int k = 0; k < nPh; k++)
                    {
                        if (j != k)
                        {
                            if (aComp[i].aMatrix[j, k] == 1 && aComp[i].aMatrix[k, j] == 0)
                            {
                                hr++;
                            }
                            if (aComp[i].aMatrix[j, k] == 1 && aComp[i].aMatrix[k, j] == 1)
                            {
                                er++;
                            }
                            if (aComp[i].aMatrix[j, k] == 0 && aComp[i].aMatrix[k, j] == 1)
                            {
                                nr++;
                            }
                        }
                    }
                    max[j, 0] = hr + er + nr;
                    max[j, 1] = hr + nr;
                    max[j, 2] = hr + er;
                    max[j, 3] = hr;
                    for (int k = 0; k < 4; k++)
                    {
                        Ph[j].nn += max[j, k];
                    }
                }
                SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, dgCr.Rows[i].HeaderCell.Value.ToString());
                r++;
                for (int j = -1; j < nPh; j++, r++)
                {
                    SetRange("A" + r, "H" + r, aHAl[0], j < 0 ? "" : "" + dgPh.Rows[j].Cells[0].Value);
                    Border();
                    for (int k = 0; k < 4; k++)
                    {
                        string txt = j < 0 ? (k + 1).ToString() + "-max" : max[j, k].ToString();
                        SetRange("" + (char)('I' + k * 3) + r, "" + (char)('K' + k * 3) + r, aHAl[1], txt);
                        Border();
                    }
                }
                for (int j = nPh - 1; j > 0; j--)
                {
                    for (int k = 0; k < j; k++)
                    {
                        if (Ph[k].nn < Ph[j].nn)
                        {
                            Phn p = Ph[k];
                            Ph[k] = Ph[j];
                            Ph[j] = p;
                        }
                    }
                }
                int    nn = -1;
                int    ps = 1;
                string s  = "";
                for (int j = 0; j < nPh; j++)
                {
                    if (nn != Ph[j].nn)
                    {
                        if (nn > -1)
                        {
                            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "" + ps++ + "-е место " + s);
                            r++;
                        }
                        //Ph[j].pos[ps - 1]++;
                        aPs[Ph[j].n].pos[ps - 1]++;
                        nn = Ph[j].nn;
                        s  = dgPh.Rows[Ph[j].n].Cells[0].Value.ToString();
                    }
                    else
                    {
                        //Ph[j].pos[ps - 1]++;
                        aPs[Ph[j].n].pos[ps - 1]++;
                        s += ", " + dgPh.Rows[Ph[j].n].Cells[0].Value.ToString();
                    }
                    if (j == nPh - 1)
                    {
                        SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "" + ps++ + "-е место " + s);
                        r++;
                    }
                }
            }
            if (nPh > 0)
            {
                //r++;
                //for (int i = 0; i < nPh; i++, r++)
                //{
                //    SetRange("A" + r, "H" + r, aHAl[0], "" + dgPh.Rows[i].Cells[0].Value);
                //    Border();
                //    for (int j = 0; j < nPh; j++)
                //    {
                //        SetRange("" + (char)('I' + j * 3) + r, "" + (char)('K' + j * 3) + r, aHAl[1], "" + aPs[i].pos[j]);
                //        Border();
                //    }
                //}
                SetRange("A" + r, "W" + r, Excel.XlHAlign.xlHAlignLeft, "результат метода k-максимальных коэффициентов:");
                if (!Show)
                {
                    tbReport.Text += "результат метода k-максимальных коэффициентов:\n";
                }
                r++;
                Int64 cf;
                for (int i = 0; i < nPh; i++)
                {
                    aPs[i].ps = 0;
                    cf        = 1;
                    for (int j = nPh - 1; j >= 0; j--, cf *= 10)
                    {
                        aPs[i].ps += aPs[i].pos[j] * cf;
                    }
                    //MessageBox.Show("" + aPs[i].ps);
                }
                for (int i = nPh - 1; i > 0; i--)
                {
                    for (int k = 0; k < i; k++)
                    {
                        if (aPs[k].ps < aPs[i].ps)
                        {
                            Phn p = aPs[k];
                            aPs[k] = aPs[i];
                            aPs[i] = p;
                        }
                    }
                }
                cf = -1;
                int    ps = 1;
                string s  = "";
                for (int j = 0; j < nPh; j++)
                {
                    if (cf != aPs[j].ps)
                    {
                        if (cf > -1)
                        {
                            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "" + ps + "-е место " + s);
                            if (!Show)
                            {
                                tbReport.Text += "" + ps + "-е место " + s + "\n";
                            }
                            ps++;
                            r++;
                        }
                        aPh[aPs[j].n].pos[3] = ps;
                        cf = aPs[j].ps;
                        s  = dgPh.Rows[aPs[j].n].Cells[0].Value.ToString();
                    }
                    else
                    {
                        aPh[aPs[j].n].pos[3] = ps;
                        s += ", " + dgPh.Rows[aPs[j].n].Cells[0].Value.ToString();
                    }
                    if (j == nPh - 1)
                    {
                        SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "" + ps + "-е место " + s);
                        if (!Show)
                        {
                            tbReport.Text += "" + ps + "-е место " + s + "\n";
                        }
                        r++;
                    }
                }
            }
        }
Exemplo n.º 4
0
        //
        private void Method3(int nCr, int nPh, ref int r)
        {
            r++;
            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "Турнирный механизм:");
            if (Show)
            {
                Rng.Font.Bold = true;
            }
            else
            {
                tbReport.Text += "Турнирный механизм:\n";
            }
            r++;
            Phn[] Ph = new Phn[nPh];
            for (int i = 0; i < nPh; i++)
            {
                Ph[i].n  = i;
                Ph[i].Cr = new int[nCr];
                for (int j = 0; j < nCr; j++)
                {
                    Ph[i].Cr[j] = 0;
                }
                Ph[i].dCr = 0;
            }
            for (int i = 0; i < nCr; i++)
            {
                for (int j = 0; j < nPh; j++)
                {
                    for (int k = 0; k < nPh; k++)
                    {
                        if (aComp[i].aMatrix[j, k] == 1)
                        {
                            Ph[j].Cr[i]++;
                        }
                    }
                }
            }
            //
            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "Сумма элементов по каждому предпочтению для каждой альтернативы:");
            r++;
            int    w = 3;
            string lf, rg;

            for (int i = -1; i < nPh; i++, r++)
            {
                SetRange("A" + r, "H" + r, aHAl[0], i < 0 ? "" : ("" + dgPh.Rows[i].Cells[0].Value));
                Border();
                for (int j = 0; j < nCr; j++)
                {
                    int n = 'I' + j * w;
                    lf = "" + (n <= 'Z' ? "" + (char)n : "A" + (char)(n - 26)) + r;
                    n  = 'I' + j * w + w - 1;
                    rg = "" + (n <= 'Z' ? "" + (char)n : "A" + (char)(n - 26)) + r;
                    SetRange(lf, rg, aHAl[1], i < 0 ? "K" + (j + 1) : ("" + Ph[i].Cr[j]));
                    Border();
                    if (i < 0 && Show)
                    {
                        Rng.Font.Bold = true;
                    }
                }
            }
            r++;
            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "Сумма элементов учитывая весовой коэффициент:");
            r++;
            for (int i = -2; i < nPh; i++, r++)
            {
                string txt = i == -2 ? "Коэффициенты" : i == -1 ? "" : "" + dgPh.Rows[i].Cells[0].Value;
                SetRange("A" + r, "H" + r, aHAl[0], txt);
                Border();
                if (i < 0 && Show)
                {
                    Rng.Font.Bold = true;
                }
                for (int j = 0; j < nCr; j++)
                {
                    int n = 'I' + j * w;
                    lf  = "" + (n <= 'Z' ? "" + (char)n : "A" + (char)(n - 26)) + r;
                    n   = 'I' + j * w + w - 1;
                    rg  = "" + (n <= 'Z' ? "" + (char)n : "A" + (char)(n - 26)) + r;
                    txt = i == -2 ? "" + aCr[j] : i == -1 ? "K" + (j + 1) + "*Σ" : "" + Ph[i].Cr[j] * aCr[j];
                    SetRange(lf, rg, aHAl[1], txt);
                    Border();
                    if (i < 0 && Show)
                    {
                        Rng.Font.Bold = true;
                    }
                }
            }
            r++;
            //
            SetRange("A" + r, "AZ" + r, Excel.XlHAlign.xlHAlignLeft, "Итоговый результат турнирного механизма:");
            r++;
            for (int i = 0; i < nPh; i++)
            {
                for (int j = 0; j < nCr; j++)
                {
                    Ph[i].dCr += Ph[i].Cr[j] * aCr[j];
                }
                Ph[i].dCr = Math.Round(Ph[i].dCr, 4);
            }
            for (int i = 0; i < nPh; i++, r++)
            {
                SetRange("A" + r, "H" + r, aHAl[0], "" + dgPh.Rows[i].Cells[0].Value);
                Border();
                SetRange("I" + r, "M" + r, aHAl[2], "" + Ph[i].dCr);
                Border();
            }
            for (int i = nPh - 1; i > 0; i--)
            {
                for (int j = 0; j < i; j++)
                {
                    if (Ph[j].dCr < Ph[i].dCr)
                    {
                        Phn p = Ph[j];
                        Ph[j] = Ph[i];
                        Ph[i] = p;
                    }
                }
            }
            r++;
            int ps = 1;

            for (int i = 0; i < nPh; i++, r++)
            {
                if (i > 0 && Ph[i].dCr != Ph[i - 1].dCr)
                {
                    ps++;
                }
                aPh[Ph[i].n].pos[2] = ps;
                string txt = "" + ps + "-е место " + dgPh.Rows[Ph[i].n].Cells[0].Value + " со значением";
                SetRange("A" + r, "M" + r, aHAl[0], txt);
                if (!Show)
                {
                    tbReport.Text += "" + ps + "-е место " + dgPh.Rows[Ph[i].n].Cells[0].Value + " со значением ";
                }
                SetRange("N" + r, "R" + r, aHAl[0], "" + Ph[i].dCr);
                if (!Show)
                {
                    tbReport.Text += "" + +Ph[i].dCr + "\n";
                }
            }
            if (!Show)
            {
                tbReport.Text += "\n";
            }
        }