Решение задач линейного программирования табличным симплекс-методом

x = Val(adrR$) - 2

y = Asc(adrC$) - 65 

If x < 1 Or x > m Or y < 1 Or y > n Then

    MsgBox ("Выбрана клетка вне пределов таблицы!")

    GoTo 1

End If

For i = 1 To m

    If i = x Then

        For j = 1 To n

         a(i, j) = Cells(i + 2, j + 1).Value / Cells(x + 2, y + 1).Value

         b(i) = Cells(i + 2, n + 2).Value / Cells(x + 2, y + 1).Value

        Next j

    Else

        For j = 1 To n

            a(i, j) = Cells(i + 2, j + 1).Value - Cells(x + 2, j + 1).Value * Cells(i + 2, y + 1).Value / Cells(x + 2, y + 1).Value

            b(i) = Cells(i + 2, n + 2).Value - Cells(x + 2, n + 2).Value * Cells(i + 2, y + 1).Value / Cells(x + 2, y + 1).Value

        Next j

    End If

Next i 

Cells(x + 2, 1).Value = y 

For i = 1 To m

    For j = 1 To n

        Cells(i + 2, j + 1).Value = a(i, j)

    Next j

    Cells(i + 2, n + 2).Value = b(i)

Next i 

For i = 1 To m

    w(i) = Cells(1, Cells(i + 2, 1).Value + 1).Value

Next i

For j = 2 To n + 1

    s = 0

    For i = 1 To m

        s = s + w(i) * Cells(i + 2, j).Value

    Next i

    Cells(m + 3, j).Value = Cells(1, j) - s

Next j

    s = 0

    For i = 1 To m

        s = s + w(i) * Cells(i + 2, n + 2).Value

    Next i

    Cells(m + 3, n + 2).Value = s * (-1)

Cells(25, 1).Value = "Выберите  наименьшее отрицательное значение  в поле: 'f(x) после подстановки' и нажмите: 'Оценить Своб/Xn', если таковых нет, задача решена"

1

End Sub 

Private Sub DelData_Click() ' Удалить данные

m = Cells(100, 100).Value

n = Cells(100, 101).Value

For j = 1 To n + 3

    If j <> 1 Then Cells(1, j).ClearContents

    For i = 3 To m + 3

        Cells(i, j).ClearContents

    Next i

Next j

Cells(m + 3, 1).Value = "f(x) после подстановки"

End Sub 

Private Sub DelTab_Click() ' Удалить таблицу

Range("A:A", "IV:IV").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    Selection.Borders(xlEdgeLeft).LineStyle = xlNone

    Selection.Borders(xlEdgeTop).LineStyle = xlNone

    Selection.Borders(xlEdgeBottom).LineStyle = xlNone

    Selection.Borders(xlEdgeRight).LineStyle = xlNone

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Range("2:2").Select

    Selection.ClearContents

m = Cells(100, 100).Value

n = Cells(100, 101).Value

For i = 1 To n + 3

    Cells(m + 3, i).ClearContents

Next i

Cells(1, 1).Select

    Selection.ClearContents

Cells(25, 1).ClearContents

End Sub 
 
 
 
 
 
 
 
 
 
 
 
 

     Блок-схема 

-

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение 

    В данном курсом проекте был предложен  алгоритм решения задач линейного  программирования табличным симплекс-методом, который применяется практически во всех областях задач линейного программирования,  поэтому данная программа подходит для решения систем линейных неравенств табличным методом, а так же для попытки оптимизации различных экономических, социальных и прочих проблем, позволяя экономить время и не загружать пользователя вычислениями.

  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  использованной литературы. 

1.   Терехов Л.Л. Экономико- математические  методы. М. Статистика 1988г.

2. Карасев А.И., Кремер Н.Ш., Савельева Т.Н. Математические методы и модели в планировании. М. Экономика. 1987г.
3. Хазанова Л. Математическое моделирование в экономике. М.1998г.
4. Жданов С. Экономические модели и методы управления. М.Эльта 1998г..