Литература
Канасевич Э.Р. Анализ временных последовательностей в геофизике. - М.: Недра, 1985.- 300 с.
Айфичер Э., Джервис Б. Цифровая обработка сигналов. Практический подход. / М., "Вильямс", 2004, 992 с.
Машеров Е. Цифровая обработка сигналов - некоторые основные понятия. http: //www .nsi. ru/~EMasherow/D SP. Htm
Давыдов А.В. Теория сигналов и систем. http://prodav.narod.ru/signals/index.html.
Основы теории передачи информации. Литвинская о.С., Чернышев н.И. Издательство Проспект, КноРус, 2010, 168 с.
Научная библиотека избранных естественно-научных изданий научная-библиотека.рф http://www.sernam.ru/book_tec.php?id=3
Мощность цифрового сигнала http://sunduchkoff.blogspot.ru/2011/10/power.html
Приложение. Характеристики телефонов марки NOKIA
-
№
Марка телефона Nokia
Диапазон частот
1
E71
WCDMA / GSM 850/900/1800/1900
2
E66
GSM 850/900/1800/1900 / WCDMA
3
8800
UMTS / GSM 900/1800/1900
4
E75
EGSM 850/900/1800/1900, WCDMA 900/1900/2100
5
N96
UMTS 900/2100 / GSM 850/900/1800/1900
6
N97
GSM 850/900/1800/1900
7
N95
HSDPA / GSM 900/1800/1900
8
N85
UMTS 900/1900/2100 / GSM 850/900/1800/1900
9
7210
GSM 900/1800/1900
10
7100
GSM 850/900/1800/1900
Блок-схема алгоритма
fs=fmax - fmin
Dc=
Dк=
Vc=
V=
Текст программы
Private Sub Command1_Click()
Dim x(1000)
Label3(0).Visible = 1
Label3(1).Visible = 1
Text5.Visible = 1
Text6.Visible = 1
fmin = Val(Text5) 'InputBox("Введите минимальную частоту")
fmax = Val(Text6) 'InputBox("Введите максимальную частоту")
pcmin = 850 'InputBox("Введите минимальную мощность")
pcmax = 950 'InputBox("Введите максимальную мощность")
tc = 10 'InputBox("длительность сигнала")
pi = 3.141592
fs = fmax - fmin
'Print fs
Text1 = fs
If fs <> 0 Then ts = 1 / fs
f0 = fs / 100
If f0 <> 0 Then t0 = 1 / f0
If ts <> 0 Then n = 4 * t0 / ts
For t = 0 To n - 1
x(t) = Sin(2 * pi * f0 * t / fs)
'Print t, x(t)
'PSet (t + 1000, 1000 * (x(t) + 1000))
p = p + x(t) * x(t)
Next
If n <> 0 Then p = p / n
rms = Sqr(p)
'Print p, rms
' Расчет динамического диапазона Dc
dc = 10 * Log(pcmax / pcmin) / Log(10)
dk = Log(pcmax / pcmin) / Log(10)
vc = Int((tc * dc * fs) * 100) / 100
v = Int((fs / 1.5) * 100) / 100
Text2 = dc 'Print "Затухание "; dc
Text3 = vc 'Print "объем сигнала равен "; vc
Text4 = v 'Print "скорость передачи сигнала в бодах равена "; v
Text7 = dk 'Print "Динамический диапазон"
End Sub
Private Sub Command2_Click()
'Сброс всех данных
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
End Sub
Private Sub Command3_Click()
'Включение окна О ПРОГРАММЕ
Form3.Visible = 1
End Sub
Private Sub Command4_Click()
'Включение окна СПРАВКА
Form2.Visible = 1
End Sub
Подп.
Дата
Лист
Изм
