Построение оптимальной последовательности операций в коммерческой деятельности

Автор работы: Пользователь скрыл имя, 13 Марта 2011 в 18:22, курсовая работа

Описание работы

Коммерческая деятельность в том или ином виде сводится к решению таких задач: как распорядиться имеющимися ресурсами для достижения наи-большей выгоды или какое следует предпринять действие для получения воз-можно лучшего финансового результата. Однако стало возможным часть этого искусства сделать наукой, базирующейся на математических методах.

Содержание работы

Введение 4
1 Теоретическая часть 5
1.1 Принцип оптимальности и математическое описание динамического процесса управления 5
1.2 Построение сетевой модели последовательности операций в коммерческой деятельности и ее решение 7
2 Практическая часть 12
2.1 Решение задачи с помощью математического аппарата 12
2.2 Решение задачи средствами прикладных программ 17
2.3 Автоматизация решения задачи 19
Заключение 22
Библиографический список 23

Скачать архив (165.84 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Мат методы v1.docx

— 663.35 Кб (Скачать файл)

      Worksheets("Лист1").Range("C2") = TextBox8.Text

      Worksheets("Лист1").Range("E2") = TextBox9.Text

      Worksheets("Лист1").Range("G2") = TextBox10.Text

      Worksheets("Лист1").Range("I2") = TextBox11.Text

      Worksheets("Лист1").Range("K2") = TextBox12.Text

      Worksheets("Лист1").Range("M2") = TextBox13.Text

      Worksheets("Лист1").Range("B3") = TextBox14.Text

      Worksheets("Лист1").Range("D3") = TextBox15.Text

      Worksheets("Лист1").Range("F3") = TextBox16.Text

      Worksheets("Лист1").Range("H3") = TextBox17.Text

      Worksheets("Лист1").Range("J3") = TextBox18.Text

      Worksheets("Лист1").Range("L3") = TextBox19.Text

      Worksheets("Лист1").Range("A4") = TextBox21.Text

      Worksheets("Лист1").Range("C4") = TextBox22.Text

      Worksheets("Лист1").Range("E4") = TextBox23.Text

      Worksheets("Лист1").Range("G4") = TextBox24.Text

      Worksheets("Лист1").Range("I4") = TextBox25.Text

      Worksheets("Лист1").Range("K4") = TextBox26.Text

      Worksheets("Лист1").Range("M4") = TextBox20.Text

      Worksheets("Лист1").Range("B5") = TextBox28.Text

      Worksheets("Лист1").Range("D5") = TextBox29.Text

      Worksheets("Лист1").Range("F5") = TextBox30.Text

      Worksheets("Лист1").Range("H5") = TextBox31.Text

      Worksheets("Лист1").Range("J5") = TextBox32.Text

      Worksheets("Лист1").Range("L5") = TextBox27.Text

      Worksheets("Лист1").Range("A6") = TextBox34.Text

      Worksheets("Лист1").Range("C6") = TextBox35.Text

      Worksheets("Лист1").Range("E6") = TextBox36.Text

      Worksheets("Лист1").Range("G6") = TextBox37.Text

      Worksheets("Лист1").Range("I6") = TextBox38.Text

      Worksheets("Лист1").Range("K6") = TextBox39.Text

      Worksheets("Лист1").Range("M6") = TextBox33.Text

      Worksheets("Лист1").Range("B7") = TextBox41.Text

      Worksheets("Лист1").Range("D7") = TextBox42.Text

      Worksheets("Лист1").Range("F7") = TextBox43.Text

      Worksheets("Лист1").Range("H7") = TextBox44.Text

      Worksheets("Лист1").Range("J7") = TextBox45.Text

      Worksheets("Лист1").Range("L7") = TextBox40.Text

      Worksheets("Лист1").Range("A8") = TextBox47.Text

      Worksheets("Лист1").Range("C8") = TextBox48.Text

      Worksheets("Лист1").Range("E8") = TextBox49.Text

      Worksheets("Лист1").Range("G8") = TextBox50.Text

      Worksheets("Лист1").Range("I8") = TextBox51.Text

      Worksheets("Лист1").Range("K8") = TextBox52.Text

      Worksheets("Лист1").Range("M8") = TextBox46.Text

      Worksheets("Лист1").Range("B9") = TextBox54.Text

      Worksheets("Лист1").Range("D9") = TextBox55.Text

      Worksheets("Лист1").Range("F9") = TextBox56.Text

      Worksheets("Лист1").Range("H9") = TextBox57.Text

      Worksheets("Лист1").Range("J9") = TextBox58.Text

      Worksheets("Лист1").Range("L9") = TextBox53.Text

      Worksheets("Лист1").Range("m1") = "0"

      Range("a9").Interior.Color = 150

      Range("k1") = Range("m1") + Range("l1")

      Range("i1") = Range("k1") + Range("j1")

      Range("g1") = Range("i1") + Range("h1")

      Range("e1") = Range("g1") + Range("f1")

      Range("c1") = Range("e1") + Range("d1")

      Range("a1") = Range("c1") + Range("b1")

      Range("m3") = Range("m1") + Range("m2")

      Range("m5") = Range("m3") + Range("m4")

      Range("m7") = Range("m5") + Range("m6")

      Range("m9") = Range("m7") + Range("m8") 
 

      If (Range("K1") + Range("K2")) <= (Range("M3") + Range("L3")) Then

          Range("K3") = Range("K1") + Range("K2")

          Range("k2").Font.Italic = True

          Else: Range("K3") = Range("M3") + Range("L3")

           Range("l3").Font.Italic = True

      End If

      If (Range("I1") + Range("I2")) <= (Range("K3") + Range("J3")) Then

          Range("I3") = Range("I1") + Range("I2")

          Range("i2").Font.Italic = True

          Else: Range("I3") = Range("K3") + Range("j3")

          Range("j3").Font.Italic = True

      End If

      If (Range("g1") + Range("g2")) <= (Range("i3") + Range("h3")) Then

          Range("g3") = Range("g1") + Range("g2")

          Range("g2").Font.Italic = True

          Else: Range("g3") = Range("i3") + Range("h3")

          Range("h3").Font.Italic = True

      End If

      If (Range("e1") + Range("e2")) <= (Range("g3") + Range("f3")) Then

          Range("e3") = Range("e1") + Range("e2")

          Range("e2").Font.Italic = True

          Else: Range("e3") = Range("g3") + Range("f3")

          Range("f3").Font.Italic = True

      End If

      If (Range("c1") + Range("c2")) <= (Range("e3") + Range("d3")) Then

          Range("c3") = Range("c1") + Range("c2")

          Range("c2").Font.Italic = True

          Else: Range("c3") = Range("e3") + Range("d3")

          Range("d3").Font.Italic = True

      End If

      If (Range("a1") + Range("a2")) <= (Range("c3") + Range("b3")) Then

          Range("a3") = Range("a1") + Range("a2")

          Range("a2").Font.Italic = True

          Else: Range("a3") = Range("c3") + Range("b3")

          Range("b3").Font.Italic = True

      End If

      If (Range("K3") + Range("K4")) <= (Range("M5") + Range("L5")) Then

          Range("K5") = Range("K3") + Range("K4")

          Range("k4").Font.Italic = True

          Else: Range("K5") = Range("M5") + Range("L5")

          Range("l5").Font.Italic = True

      End If

      If (Range("i3") + Range("i4")) <= (Range("k5") + Range("j5")) Then

          Range("i5") = Range("i3") + Range("i4")

          Range("i4").Font.Italic = True

          Else: Range("i5") = Range("k5") + Range("j5")

          Range("j5").Font.Italic = True

      End If

      If (Range("g3") + Range("g4")) <= (Range("i5") + Range("h5")) Then

          Range("g5") = Range("g3") + Range("g4")

          Range("g4").Font.Italic = True

          Else: Range("ig") = Range("i5") + Range("h5")

          Range("h5").Font.Italic = True

      End If

      If (Range("e3") + Range("e4")) <= (Range("g5") + Range("f5")) Then

          Range("e5") = Range("e3") + Range("e4")

          Range("e4").Font.Italic = True

          Else: Range("e5") = Range("g5") + Range("f5")

          Range("f5").Font.Italic = True

      End If

      If (Range("c3") + Range("c4")) <= (Range("e5") + Range("d5")) Then

          Range("c5") = Range("c3") + Range("c4")

          Range("c4").Font.Italic = True

          Else: Range("c5") = Range("e5") + Range("d5")

          Range("d5").Font.Italic = True

      End If

      If (Range("a3") + Range("a4")) <= (Range("c5") + Range("b5")) Then

          Range("a5") = Range("a3") + Range("a4")

          Range("a4").Font.Italic = True

          Else: Range("a5") = Range("c5") + Range("b5")

          Range("b5").Font.Italic = True

      End If

      If (Range("k5") + Range("k6")) <= (Range("m7") + Range("l7")) Then

          Range("k7") = Range("k5") + Range("k6")

          Range("k6").Font.Italic = True

          Else: Range("k7") = Range("m7") + Range("l7")

          Range("l7").Font.Italic = True

      End If

      If (Range("i5") + Range("i6")) <= (Range("k7") + Range("j7")) Then

          Range("i7") = Range("i5") + Range("i6")

          Range("i6").Font.Italic = True

          Else: Range("i7") = Range("k7") + Range("j7")

          Range("j7").Font.Italic = True

      End If

      If (Range("g5") + Range("g6")) <= (Range("i7") + Range("h7")) Then

          Range("g7") = Range("g5") + Range("g6")

          Range("g6").Font.Italic = True

          Else: Range("g7") = Range("i7") + Range("h7")

          Range("h7").Font.Italic = True

      End If

      If (Range("e5") + Range("e6")) <= (Range("g7") + Range("f7")) Then

          Range("e7") = Range("e5") + Range("e6")

          Range("e6").Font.Italic = True

          Else: Range("e7") = Range("g7") + Range("f7")

          Range("f7").Font.Italic = True

      End If

      If (Range("c5") + Range("c6")) <= (Range("e7") + Range("d7")) Then

          Range("c7") = Range("c5") + Range("c6")

          Range("c6").Font.Italic = True

          Else: Range("c7") = Range("e7") + Range("d7")

          Range("d7").Font.Italic = True

      End If

Информация о работе Построение оптимальной последовательности операций в коммерческой деятельности