Программа модели торговой точки
На языке 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
Проведите самостоятельное исследование закономерностей функционирования фирмы с помощью имитационной модели. Выберите исходные данные, проведите расчеты и проанализируйте результаты моделирования