Программа финансовой модели Герца на языке Visual Basic 6.0

1. Стартовая форма frmForml

Макет стартовой формы приведен на рис. 1 (смотри выше).

1.1. Таблица свойств

Объекты	Свойства	Значения
Командная кнопка 1	Name Caption	Command 1 Расчет
Командная кнопка 2	Name Caption	Command2 Очистка
Командная кнопка 3	Name Caption	Command3 Выход

1.2. Процедуры обработки объектов

Private Sub Command1_Click()

Mrash = Val(Textl): SigRash = Val(Text2): Mrynok = Val(Text3)

SigRynok = Val(Text4): Nr = Val(Text5): NT = Val(Text6)

a(0) = Val(Text7): a(l) = Val(Text8): a(2) = Val(Text9)

a(3) = Val(TextlO): a(4) = Val(Textll): a(5) = Val(Textl2)

Ver = 1 / (NT - 1) ' вероятность попадания в участок

Call Modul6 ' обращение к модулю

End Sub

Private Sub Command2_Click()

Textl3 = «»: Textl4 = «»: Textl5 = «»

End Sub

Private Sub Command3_Click()

End

End Sub

2. Модуль общего назначения

Public a(5) As Single, n As Single, z As Single

Public r As Single, NT As Integer, Ver As Single

Public Sprof As Double, Sprof2 As Double, Mrash

Public SigRash, Mrynok, SigRynok, Nr, I, Dol, Prof

Public Rynok, Rash, Mprof, SigProf, Disp, Gprof

Public Sub Modul9()

' Обнуление глобальных переменных:

Sprof=0:Sprof2 = 0

' Цикл случайных реализаций:

For Ir = 1 То Nr

Call Norm: Rash = Mrash + n * SigRash

Call Norm: Rynok = Mrynok + n * SigRynok

Call Rasp: Dol = r

Prof = Rynok * Dol - Rash

Sprof = Sprof + Prof

Sprof2 = Sprof2 + Prof * Prof

Next Ir

Mprof = Sprof/Nr

Disp = (SproO - Nr * Mprof * Mprof) / (Nr - 1)

If Disp > 0 Then SigProf = Sqr(Disp) Else SigProf = 0

Gprof = Mprof- 1.28 * SigProf

' Результаты моделирования:

Forml.Textl3 = Format$(Mprof, «#######»)

Forml.Textl4 = Format$(SigProf, «#######»)

Forml.Textl5 = Format$(Gprof, «#######»)

End Sub

Sub Norm()

S = 0

For j = 1 To 12

z = Rnd(l): S = S + z

Next

n = S-6

End Sub

Sub Rasp()

z = Rnd(l)

For j = 1 To NT - 1

Ifz<=Ver*jThen

M=j:GoToMet

End If

Next

Met:

z = Rnd(l)

r = a(M - 1) + (a(M) - a(M - 1)) * z

End Sub

Задание 13 Провести параметрический анализ и построить математическую модель бройлерного хозяйства птицеводческой фермы.

1. Исходные данные

Бройлерное хозяйство птицеводческой фермы насчитывает 20000 цыплят, которые выращиваются до 8-недельного возраста и, после соответствующей обработки, поступают в продажу. Хотя недельный расход корма для цыплят зависит от их возраста, в дальнейшем будем считать, что в среднем (за 8 недель) он составляет 1 фунт.

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

Смесь должна содержать:

1. не менее 0,8%, но не более 1,2% кальция;

2. не менее 22% белка;

3. не более 5% клетчатки.

2. Задача

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