Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Топ:
История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Интересное:
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Дисциплины:
2017-06-02 | 320 |
5.00
из
|
Заказать работу |
|
|
На языке 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
Проведите самостоятельное исследование закономерностей функционирования фирмы с помощью имитационной модели. Выберите исходные данные, проведите расчеты и проанализируйте результаты моделирования
|
|
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!