История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Топ:
Теоретическая значимость работы: Описание теоретической значимости (ценности) результатов исследования должно присутствовать во введении...
Техника безопасности при работе на пароконвектомате: К обслуживанию пароконвектомата допускаются лица, прошедшие технический минимум по эксплуатации оборудования...
Методика измерений сопротивления растеканию тока анодного заземления: Анодный заземлитель (анод) – проводник, погруженный в электролитическую среду (грунт, раствор электролита) и подключенный к положительному...
Интересное:
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Дисциплины:
2017-06-02 | 232 |
5.00
из
|
Заказать работу |
|
|
На языке Visual Basic 6.0
Стартовая форма frmForml
Макет стартовой формы приведен на рис. 7.1, с. 152.
Таблица свойств
Объекты | Свойства | Установки |
Командная кнопка 1 | Name Caption | Command 1 Расчет |
Командная кнопка 2 | Name Caption | Command 2 Очистка |
Командная кнопка 3 | Name Caption | Command 1 выход |
Процедуры обработки объектов
Private Sub Commandl _ Click()
Lz = Val(Textl): P = Val(Text2): С = Val(Text3)
TD = Val(Text4): STotn = Val(Text5): Nr = W(Text6)
Forj = 1 To 4: MTobsG) = Val(Text7(j - 1)): Nextj
Call Model4
End Sub
Private Sub Command2_Click()
Text8 = «»: Text9 = «»
End Sub
Private Sub Command3_Click()
End
End Sub
Модуль общего назначения ModeI7.bas
Public MTobs(4), TH(4), TK(4)
Public Mprof As Double, Cprof As Double, Sum2 As Double
Public SNM As Double, SigProf As Double
Public Lz, P, C, TD, STotn, Nr
Public Ir, Nz, TzO, Nobs, i, j, z, Tz, N, Tobs, Sz, Min
Public Max, SMT, Fact
Const К = 4 ' число цехов
Public Sub Model7()
Randomize
'обнуление глобальных переменных:
Mprof = 0 ' начальное значение средней прибыли
Sum2 = 0 ' начальное значение суммы квадратов прибыли
For Ir = 1 То Nr 'начало цикла случайных реализаций
' обнуление локальных переменных
Nz = 0: TzO = 0: Nobs = 0
For j = 1 To K: TKG) = 0: Nextj
Do ' начало внутреннего цикла DO..LOOP
z= Rnd ' случайная величина с равномерным
'распределением
Tz = TzO - Log(z) / Lz ' время поступления заказа
TzO = Tz
If Tz > TD Then Exit Do
Nz = Nz + 1 ' счетчик числа заказов
Forj = 1 To К ' начало цикла выполнения заказов
If Tz > TKG) Then TH(j)=Tz Else THG)=TK(j)
N = NORM ' функция «Нормальное распределение»
Tobs = MTobsG) * (1 + N * STotn)
TK(j) = TH(j) + Tobs ' время окончания обслуживания
If TKG) > TD Then Exit Do
Tz = TKG)
Next j
Nobs = Nobs + 1
Loop
'результаты расчета одной реализации:
Prof = Р * Nobs – С ' прибыль
Mprof = Mprof + Prof ' суммарная прибыль
Sum2 = Sum2 + Prof * Prof ' сумма квадратов прибыли
Next Ir ' конец цикла случайных реализаций
Cprof = Mprof / Nr ' средняя прибыль
Disp = (Sum2 - Nr * Cprof * Cprof) / (Nr - 1) ' дисперсия прибыли
If Disp > 0 Then SigProf = Sqr(Disp) Else SigProf = 0
|
Gprof = Cprof - 1.28 * SigProf ' минимальная гарантированная
'прибыль
Call Factor ' расчет величины числового фактора
Forml.Text8 = Format$(Fact, «0.000»)
Forml.Text9 = Format$(Gprof, «#####»)
End Sub
Function NORM()
'процедура-функция «Нормальное распределение»
Sz = 0
For i = 1 To 12
z = Rnd: Sz = Sz + z
Nexti
NORM = Sz - 6
End Function
Public Sub Factor()
'процедура расчета числового фактора
Min = MTobs(l): Max = MTobs(l): SMT = 0
For f=l ToK
SMT = SMT + MTobs(f)
If MTobs(f) > Max Then Max = MTobs(f)
If MTobs(f) < Min Then Min = MTobs(f)
Next
Fact = (Max - Min) / SMT
End Sub
ЗАДАНИЕ 11
Особенности и методы создания модели торговой точки
Постановка задачи
Основной целью курсовой работы является ознакомление с современными подходами и методами создания и использования модели торговой точки.
В задании приводятся результаты разработки модели бензоколонки (Приложение 1) с использованием исходных данных, формируемым в результате предварительных исследований, представленных в форме беседы предпринимателя с консультантом (разработчиком). Такая форма представления материала предполагает более доходчивое понимание студентами самой сути и содержания основных этапов построения модели, включая рассмотрение всех основных этапов, и ее использования для последующего анализа. В приложении 1 приводится также пример решения поставленной задачи моделирования. Приведенный материал Приложения 1 дает возможность самостоятельного выполнения сформулированных в части 3 заданий.
Необходимым условиям успешного выполнения задания являются базовые знания использования языка Visual Basic 6.0. В качестве источников информации могут служить специализированная литература и рекомендованные ниже источники (часть 4).
2. Пояснительная записка к отчету по выполненной курсовой работе должна соответствовать установленным требованиям. В пояснительной записке желательно представление фрагментов экранных заставок, позволяющих наглядно представить очередность и особенности выполнения отдельных процедур и операций при работе с разработанной программой. В заключении к проделанной работе необходимо представить основные выводы и рекомендации по применению полученных результатов.
|
3. Задания для самостоятельной работы
Задание 3.1
В среде Visual Basic 6.0 создайте исполняемый модуль программы «Модель торговой точки», текст которой приведен в Приложении 2. Проведите отладку программы с целью ликвидации формальных ошибок.
Задание 3.2
Проведите проверку программы расчетом. Подставьте те л исходные данные, которые были выбраны в приведенном выи примере. Убедитесь в том, что результаты расчетов практически совпадают.
Задание 3.3
Проведите самостоятельное исследование закономерностей функционирования фирмы с помощью имитационной модели. Выберите исходные данные, проведите расчеты и проанализируйте результаты моделирования
|
|
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!