Разработка программы максимизации прибыли промышленного предприятия методом Хорд

       Проверим  работу программы.

       Для нахождения максимального значения прибыли и оптимального объема производства вводим данные по количеству объема реализованной продукции, цене данной продукции, издержкам и доходу от продаж, коэффициентов уравнения издержек (коэффициенты уравнения дохода рассчитываются методом наименьших квадратов) в таблицу на лист Excel (таблицы 6.2, 6.3, 6.4). 
 
 

       Таблица 6.2 - Данные, вводимые пользователем 

 

       Таблица 6.3 – Коэффициенты уравнения издержек 

 

       Таблица 6.4 - Коэффициенты уравнения дохода 

    По значениям таблицы 6.2 получили графики и уравнения функций дохода от продаж (рисунок 6.2) и издержек (рисунок 6.3).  

 

       Рисунок 6.2 – График дохода от продаж 

      

     Рисунок 6.3 – График издержек 

       Вводим  на форму интервал поиска корня и  точность вычисления, запускаем выполнение расчетов.

       Результат вычисления максимальной прибыли предприятия  и оптимального объема производства представлен на форме (рисунок 6.3). 

        

Рисунок 6.4 - Пользовательская форма 

     Значения  максимальной прибыли и оптимального объема производства равны соответственно 1555 и 8.

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

Т.е. результат  программы и эталонный результат  можно считать равными.

      Следовательно, процесс тестирования программы  можно считать успешно завершенным. Результаты проведенного тестирования установили отсутствие в программе ошибок и её корректную работу.

  
 

Заключение

      Таким образом, закончена разработка программы для максимизации прибыли промышленного предприятия методом Хорд. Созданное программное обеспечение соответствует всем правилам и требованиям. Оно разработано с учетом общих требований к программному обеспечению, таких как обеспечение гибкости, (возможности легко вводить исправления, дополнения и изменения в программу при сохранении её системной организации и без существенных переделок); надежности (обеспечение получения достоверных результатов при любых наборах исходных данных);

компактности (минимальное потребление ресурсов ЭВМ), удобства и простоты работы (обеспечение быстрого результата и ориентирована не на специалиста в области вычислительной техники), мобильности (возможность функционирования программы на различных технических средствах).

      Данные  требования обеспечивают высокое качество функционирования программы; получение  результатов в доступной и  понятной форме; удобство освоения и  сопровождения программы.

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

Список  используемых источников

1.Учебник по микроэкономике, Гальперина В.М., 2005

2.Новикова И.В., Примаченок Г.А., Воробьев В.А. и др. Экономическая теория: Учеб. пособие. – Мн.: БГЭУ, 2006. – 543с.

3.Базылев Н.И., Гурко С.П., Базылева М.Н. и др. Экономическая тория: Пособие для преподават., аспирантов и стажеров. – 3-е изд., стереотип. – Мн.: Книжный Дом, Экоперспектива, 2004. – 637с. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение A

(обязательное) 

     Текст программы, разработанной для нахождения оптимального объема производства и максимальной прибыли методом Хорд: 

Dim a0 As Double, a1 As Double, a2 As Double, b0 As Double, b1 As Double

Dim s1 As Variant, s2 As Variant, h As Double, z1 As Double, z As Double

Dim xmax As Double, xmin As Double, e As Double

Dim ymax As Double, x As Variant 

Private Sub CommandButton1_Click()

On Error GoTo Ì 

a0 = Cells(2, 10).Value

a1 = Cells(3, 10).Value

a2 = Cells(4, 10).Value

b0 = Cells(2, 13).Value

b1 = Cells(3, 13).Value

xmin = TextBox9.Value

xmax = TextBox10.Value

e = TextBox11.Value 

If m(xmin) * m(xmax) < 0 Then

    z1 = xmin

   

    Do

        z = z1

        z1 = z - ((xmax - z) * m(z) / (m(xmax) - m(z)))

    Loop While Abs(z1 - z) > e 

    Label26.Caption = Round((z1), 0)

    ymax = y(z1)

    Label27.Caption = Round(ymax, 0)

   

Else

    MsgBox "Нет корней, проверьте отрезок "

End If

Exit Sub

Ì:

MsgBox ("Неверно введены данные")

End Sub 
 
 

Function y(x) 

    y = (a0 * x ^ 2 + a1 * x + a2) - (b0 * x + b1)

End Function 

Function m(x)

    h = 0.0000001

    s1 = y(x + h)

    s2 = y(x - h)

    m = (s1 - s2) / (2 * h)

End Function 

Private Sub UserForm_Initialize()

TextBox1.Value = Cells(2, 10).Value

TextBox2.Value = Cells(3, 10).Value

TextBox3.Value = Cells(4, 10).Value

TextBox5.Value = Cells(2, 13).Value

TextBox6.Value = Cells(3, 13).Value

End Sub