Программа модели торговой точки

На языке Visual Basic 6.0

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

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

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

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

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

Private Sub Commandl_Click()

T(l, 1) = Val(Textl): T(l, 2) = W(Text2): T(l, 3) = Val(Text3)
U(l) = W(Text4): P(l) = Val(Text5): T(2, 1) = Val(Text6):
T(2, 2) = Val(Text7): T(2, 3) = Val(Text8): U(2) = W(Text9)
P(2) = W(Text10): T(3, 1) = Val(Text11): T(3, 2) = Val(Text12)
T(3, 3) = Val(Text13): U(3) = Val(Text14): P(3) = W(Text15)
Sigm = \W(Text16): Tmin = Val(Text17): Tmax = Val(Text18)
Nr = Val(Text19)
Call Model5 ' обращение к модулю общего назначения

EndSub

Private Sub Command2_Click()

Text20 = «»: Text21 = «»: Text22 = «»

End Sub

Private Sub Command3_Click()

End

End Sub

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

Public T(3, 3) 'массив значений средней выручки для различных

' товаров и различных пунктов торговли

Public U(3) 'массив значений убытков для различных пунктов

Public P(3) ' вероятности внеплановых убытков для разных пунктов

Public Tsum(3)As Double ' прибыль для различных пунктов для всех

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

Public Tsum2(3) As Double 'сумма квадратов прибылей для различных

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

PublicMcp(3) ' средняя прибыль для различных пунктов

Public Gar(3) 'минимальная гарантированная прибыль

' для 'различных пунктов

Public Sigma(3) ' средние квадратические отклонения прибыли

' для различных пунктов

Public i, j, Ir, Nr, Tmin, Tmax, Sigm, Eta, TS, z

Public Disp, E, k

Const R= 1.645

Public Sub Model8()

'обнуление сумм, используемых для расчета МО и СКО:

For i = 1 То 3: Tsum(i) = 0: Tsum2(i) = 0: Next i

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

For Ir = 1 То Nr

'начало цикла перебора торговых точек:

For i = 1 То 3

Eta = UNR: TS = T(i, 1) * (l+Sigm*Eta)

Eta = UNR: TS = TS + T(i, 2) * (l+Sigm*Eta)

Eta = UNR: TS = TS + T(i, 3) * (l+Sigm*Eta)

z = Rnd

If z < P(i) Then

Eta = UNR: TS = TS - U(i) * (l+Sigm*Eta)

End If

Tsum(i) = Tsum(i) + TS

Tsum2(i) = Tsum2(i) + TS * TS

Next i ' конец цикла перебора торговых точек

Next Ir ' конец цикла случайных реализаций

'расчет показателей (МО и СКО) для каждой точки:

For i = 1 То 3

Mcp(i) = Tsum(i) / Nr 'расчет средней прибыли

'расчет дисперсии и СКО прибыли:

IfNr > IThen

Disp = (Tsum2(i) - Nr * Mcp(i)*Mcp(i))/(Nr - 1)

Sigma(i) = Sqr(Disp)

Else

Sigma(i) = 0

End If

' минимальная гарантированная прибыль:

Gar(i) = Mcp(i) - R * Sigma(i)

Nexti

' вывод результатов расчета:
Forml.Text20.Text = Format$(Gar(l), «#####»)
Forml.Text21.Text = Format$(Gar(2), «#####»)
Forml.Text22.Text = Format$(Gar(3), «#####»)
End Sub ' конец главной программы

Public Function UNR()

' Функция «Усеченное нормальное распределение»

Do

Е = 0

For к = 1 То 12

z = Rnd: E = Е + z

Next к

Е = Е-6

If Е >= Tmin And E <= Tmax Then

UNR = E: Exit Do

End If

Loop

End Function

ЗАДАНИЕ 12

Особенности и методы создания финансовой модели

Постановка задачи

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

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

Необходимым условиям успешного выполнения задания являются базовые знания использования языка Visual Basic 6.0. В качестве источников информации могут служить специализированная литература и рекомендованные ниже источники (часть 4).

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

3. Задания для самостоятельной работы

Задание 3.1

Всреде Visual Basic 6.0 создайте исполняемый модуль прог­раммы «Финансовая модель Герца», текст которой приведен в Приложении 2. Проведите отладку программы с целью ликвида­ции формальных ошибок.

Задание 3.2

Проведите проверку программы расчетом. Подставьте те же исходные данные, которые были выбраны в приведенном выше примере. Убедитесь в том, что результаты расчетов практически совпадают.

Задание 3.3

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

Наши рекомендации