Программный расчет

Значения рассчитываются на языке программирования Vbasic:

Option Base 1

Private Sub cmdEval_Click()

Dim Lam(3), Lamy(3)

Dim Ami(12), Amv(12), Api(12), Apycc(12)

Dim Ymi(12), Ymv(12), Ypi(12), Ypycc(12)

Dim Aij(12, 12) As Double

Dim i, j As Long

Dim Nsum As Long

Dim v, p As Long

Dim Nsys, Nov As Double

Dim Ain, Yin As Double

Dim Pi(12), Li(12), Mi(12)

'-------------------------- Исходные данные -----------------------------

Azsl = 0.007 'Erl/AL

Aslm = 0.0075 'Erl/AL

A_udel_vix_KP_ATS = 0.05

Aslm2 = 0.0015 '?Aycc?

Ni = Array(5000, 12790, 2790, 1300, 380, 770, 256, 2850, 1400, 6750, 6790, 512)

Ny = Array(1500, 2500, 30000)

Py = Array(0.46, 0.08, 0.46)

Delta = Array(10, 1#, 0.5)

S = Array(100, 0, 0)

nTP = Array(1, 3, 6.5)

n_rd = Array(1, 1, 2)

n_wr = Array(0, 0, 0.8)

tau_ob = 15

n_mirror_disks = 3

v_tr = 140

v_sz = 8

v_zn = 53

v_zp = 6

v_k = 64000

Lam_sz = 2

Poks = 0.2

Tau_pb = 0.01

Alpha_p = 0.2

v_pd = 1

t_SSP = 0.2

'--------------------------------------------------------------------------

'5 - Проверочный расчет числа МСЛ на ГТС

'5.1 - Определение интенсивностей нагрузок между АМТС и РАТС

'5.2 - Определение интенсивности средних нагрузок между существующимим и проектируемой РАТС

For i = 1 To 12

Ami(i) = Ni(i) * Azsl

Amv(i) = Ni(i) * Aslm

Api(i) = A_udel_vix_KP_ATS * Ni(i)

Apycc(i) = Aslm2 * Ni(i)

Prynt "Ami(" & i & ") = " & Ami(i) & " | "

Prynt "Amv(" & i & ") = " & Amv(i) & " | "

Prynt "Api(" & i & ") = " & Api(i) & " | "

Prynt "Apycc(" & i & ") = " & Apycc(i)

Nsum = Ni(i) + Nsum

Next

'Опредедение межстанционных нагрузок на ГТС

Prynt "Nc = " & Nsum

For i = 1 To 12

For j = 1 To 12

If i <> j Then

Aij(i, j) = Api(i) * (Ni(j) / Nsum)

Prynt Aij(i, j) & Chr(9)

Else

Prynt "- "

End If

Next

Prynt vbCrLf

Next

'5.3 - Расчет числа СЛ

For i = 1 To 12

Ymi(i) = 1.03 * Ami(i) + 0.29 * Sqr(Ami(i))

Ymv(i) = 1.03 * Amv(i) + 0.29 * Sqr(Amv(i))

Ypi(i) = 1.03 * Api(i) + 0.29 * Sqr(Api(i))

Ypycc(i) = 1.03 * Apycc(i) + 0.29 * Sqr(Apycc(i))

Prynt "Ymi(" & i & ") = " & Ymi(i) & " | "

Prynt "Ymv(" & i & ") = " & Ymv(i) & " | "

Prynt "Ypi(" & i & ") = " & Ypi(i) & " | "

Prynt "Ypycc(" & i & ") = " & Ypycc(i)

Next

'5.4 - Проверочные расчеты соответствия по транспортной сети

v = 455 + 437: p = 1920

Nsys = v / p

Nov = 2 * Nsys

Prynt "Nsys = " & Nsys & "; Nov = " & Nov

'5.5 - Распределение нагрузок при обслуживании вызовов к ИСС

For i = 1 To 12

Ain = Api(i) / 97.5

Yin = 1.03 * Ain + 0.29 * Sqr(Ain)

Prynt "Ain(" & i & ") = " & Ain & " Yin(" & i & ") = " & Yin

Next

'-----------------------------------------------------------

'6.1 - Анализ временных задержек в ИС

'T2 = (N+1) * Tccs7 + N * Troute

'6.2 - Задержки вызова услуги в телефонной сети

Lambda0 = 1

Dim Lambda(12) As Variant

LamSum = 0

For i = 1 To 12

Lambda(i) = Lambda0 * Ni(i)

LamSum = LamSum + Lambda(i)

Next

'L(i) = L(i) + Lij

L4 = L43 + L31 + L10

L3 = L31 + L10

L2 = L21 + L10

For i = 1 To 12

Pi(i) = Lambda(i) / LamSum

Lc = Lc + (Pi(i) * Li(i))

Mc = Mc + (Pi(i) * Mi(i))

Next

'Vc = ?

'TauL = Lc / Vc

'6.3 - Задержка на участке SSP - SCP

t_SSP = 0.2

'6.4 - Задержка сообщений в канале ОКС №7 при передаче от SSP к SCP

LamSum = 0

For i = 1 To 3

D = Ny(i) * Delta(i)

Prynt "Delta(" & i & ") = " & D

Lam(i) = D / 3600

Prynt "Lam(" & i & ") = " & Lam(i)

LamSum = LamSum + Lam(i)

Next

Prynt "LamSum = " & LamSum

For i = 1 To 3

Py(i) = Lam(i) / LamSum

n_TP_sum = n_TP_sum + (nTP(i) * Py(i))

Перейти на страницу: 1 2

Прочтите также:

Цифровой сглаживающий фильтр
С внедрением в промышленность цифровых технологий появилась возможность строить устройства обработки оцифрованных сигналов вычислительным методом. Такой способ обладает рядом важных пре ...

Электронные генераторы мультивибратор. Назначение, принцип действия, применение
Мультивибратор представляет собой релаксационный генератор колебаний почти прямоугольной формы. Он является двухкаскадным усилителем на резисторах с положительной обратной ...

Моделирование схемы усилителя НЧ на МДП-транзисторах
Номинальная выходная мощность, Вт на нагрузке сопротивлением 8 Ом.………………35 Номинальный диапазон частот, Гц при неравномерности АЧХ не более 0,5 дБ……………………. 20 - 2000 Коэ ...

Основные разделы

Copyright © 2008 - 2020 www.techmatch.ru