Программа модели торговой точки На языке Visual Basic 6.0

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

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

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

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

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

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 ' обращение к модулю общего назначения

End Sub

Private Sub Command2_Click()

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

End Sub

Private Sub Command3_Click()

End

End Sub

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

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

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

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

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

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

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

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

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

Public Mcp(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