скачать рефераты
  RSS    

Меню

Быстрый поиск

скачать рефераты

скачать рефератыРеферат: Решение экономических задач с помощью VBA

2.3.5 Определение оптимальных капиталовложений

     Создаём исходную таблицу и заполняем ее мат. ожиданиями прибылей в состветствии с условием.

 

 

Ф     и     л      и      а       л      ы

 

Млн. грв

1 2 3 4 5 6

0

0 0 0 0 0 0

1

0,11 0,12 0,18 0,2 0,17 0,12

2

0,11 0,13 0,18 0,22 0,17 0,23

3

0,12 0,13 0,19 0,24 0,18 0,24

4

0,12 0,13 0,19 0,26 0,18 0,24

5

0,13 0,13 0,2 0,29 0,19 0,25

6

0,13 0,13 0,2 0,31 0,19 0,25

7

0,14 0,13 0,2 0,33 0,2 0,26

   Для дальнейшего решения задачи, вводим следующие обозначения:

   Пусть R(i,j) – прибыль получаемая от вложения i млн. грв. В j-тый филиал, где в соотв. С вариантом i от (0,7), а j от (0,6)

   F(A,1,2) – оптимальное распределение средств, когда А млн. грв. вкладываются в 1,2 филиалы вместе 

   F(A,1,2,3) – оптимальное распределение средств, когда А млн. грв. вкладываются в 1,2,3 филиалы вместе 

   F(A,1,2,3,4) – оптимальное распределение средств, когда А млн. грв. вкладываются в 1,2,3,4 филиалы вместе. 

   F(A,1,2,3,4,5) – оптимальное распределение средств, когда А млн. грв. вкладываются в 1,2,3,4,5 филиалы вместе. 

   F(A,1,2,3,4,5,6) – оптимальное распределение средств, когда А млн. грв. вкладываются в 1,2,3,4,5 филиалы вместе. 

    Значения I при которых достигается максимум определяют оптимальные капиталовложения в филиалы.

   Максимальные значения ожидаемых прибылей вычисляется в программе и заносится в ячейки H4:L11 и будет выглядеть следующим образом:

М  а  к  с  и  м  у  м  ы

 

 

1 и 2 1,2 и 3 1,2,3 и 4 1,2,3,4 и 5 1,2,3,4,5 и 6
0 0 0 0 0
0,12 0,18 0,2 0,2 0,2
0,23 0,3 0,38 0,38 0,38
0,24 0,41 0,5 0,55 0,55
0,24 0,42 0,61 0,67 0,67
0,25 0,42 0,63 0,78 0,79
0,25 0,43 0,65 0,8 0,9
0,26 0,43 0,67 0,82 1,01

В программе переменной К – присваиваем значение равное обьему капиталовложений. В массив R с рабочего листа капиталовложения  вводим ожидаемую прибыль , распределенную по филиалам.

    В диапазон ячеек (B14:K22) выводится оптимальное распределение капиталовложений по филиалам. После вычислений можно увидеть что максимальныя ожидаемая прибыль составляет 1,01 млн. грв. , из таблицы видны следующие рез-ты:

     6 филиал – 2 млн.

     5 филиал – 1 млн.

 4 филиал – 1 млн.

     3 филиал – 1 млн.

     2 филиал – 1 млн.

     1 филиал – 1 млн.

   Сама таблица выглядит следующим образом:

Ф          и          л          и          а          л          ы

0

0 0 0 0 0 0 0 0 0 0

1

0 1 0 1 0 1 1 0 1 0

2

1 1 1 1 1 1 2 0 2 0

3

1 2 2 1 2 1 2 1 3 0

4

1 3 3 1 3 1 3 1 3 1

5

3 2 2 3 3 2 4 1 4 1

6

3 3 3 3 3 3 5 1 4 2

7

5 2 2 5 3 4 6 1 5 2

Млн. грв.

1 2 1,2 3 1,2,3 4 1,2,3 и 4 5 1,2,3,4 и 5 6

2.3.6 Задание на нахождение оптимального раскроя

Составляем таблицу в которой будут приведены остатки от раскроя на заказ при различных вариантах раскроя.

Например по условию в соответствии с вариантом стандартная длина раскроя равна 28 метров,

т.е. первый вариант раскроя будет сосотавлять 0 рулон дляной 4 м, 0 рулонов длиной 6м и 4 рулона длиной 9 м, рулонов длиной 11 м. не будет, что в сумме даст 27, следовательно отходы будут составлять 1 метр. Второй вариант когда 1 рулон по 6 м и два по 11 м, в этом случае остатков не будет и т.д. Всего получается 19 вариантов раскроя.

В программе это будет выглядеть таким образом:

l = 28

a1 = 4: a2 = 6

a3 = 9: a4 = 11

r = 4

m = Application.Min(a1, a2, a3, a4)

t = Application.Floor(l / m, 1)

For i1 = 0 To t

For i2 = 0 To t

For i3 = 0 To t

For i4 = 0 To t

s = 28 - a1 * i1 - a2 * i2 - a3 * i3 - a4 * i4

If s >= 0 And s < m Then

Cells(r, 1).Value = r - 3

Cells(r, 2).Value = i1

Cells(r, 3).Value = i2

Cells(r, 4).Value = i3

Cells(r, 5).Value = i4

Cells(r, 6).Value = s

r = r + 1

End If

Next i4

Next i3

Next i2

Next i1

На листе это будет выглядеть так:

Д  л  и  н  ы    р  у   л   о   н   о   в     н  а    з  а   к   а  з
Варианты Остаток
раскройки 4 6 9 11 от расктоя
1 0 0 3 0

1

2 0 1 0 2

0

3 0 1 1 1

2

4 0 3 1 0

1

5 1 0 0 2

2

6 1 1 2 0

0

7 1 2 0 1

1

8 1 2 1 0

3

9 1 4 0 0

0

10 2 0 1 1

0

11 2 0 2 0

2

12 2 1 0 1

3

13 2 3 0 0

2

14 3 1 1 0

1

15 4 0 0 1

1

16 4 0 1 0

3

17 4 2 0 0

0

18 5 1 0 0

2

19 7 0 0 0

0

Страницы: 1, 2, 3, 4


Новости

Быстрый поиск

Группа вКонтакте: новости

Пока нет

Новости в Twitter и Facebook

  скачать рефераты              скачать рефераты

Новости

скачать рефераты

© 2010.