Додаток 5.1

Дата добавления: 2015-10-15; просмотров: 578

Cls

Dim y As Single, f As Single, i As Integer

Open "$ACHH.DAT" For Output As #1

Open "$FCHH.DAT" For Output As #2

For I = 0 To 39

If I < 5 Then

y=0

ElseIf I < 10 Then

y = (2*i-10)/10

ElseIf I < 15 Then

y = (-2*i+30)/10

ElseI

y = 0

End If

f = (-1) * i*3.1415 / 160

Print #1, y

Print #2, f

Next i

Close

Print "DONE"

End

Задание №2. Достроение АЧХ/ФЧХ в область 0-8 кГц и преобразование АЧХ/ФЧХ в K(jw).

Текст программы:

CLS

OPEN "$AChH.dat" FOR INPUT AS #1

OPEN "$FChH.dat" FOR INPUT AS #2

OPEN "$re.dat" FOR OUTPUT AS #3

OPEN "$im.dat" FOR OUTPUT AS #4

DIM y(39), z(39) AS SINGLE

DIM i as INTEGER

FOR i = 0 TO 39

INPUT #1, x

INPUT #2, a

y(i) = x * COS(a)

z(i) = x * SIN(a)

PRINT #3, y(i)

PRINT #4, z(i)

NEXT i

PRINT #3, 0

PRINT #4, 0

FOR i = 39 TO 1 STEP -1

PRINT #3, y(i)

PRINT #4, -z(i)

NEXT i

CLOSE

PRINT "Done"

END

Результаты:

Задание №3. Преобразование K(jw) c помощью дискретного преобразования Фурье.

Текст программы:

Open "$Re.dat" For Input As #1

Open "$Im.dat" For Input As #2

Open "$fur_re.dat" For Output As #3

Open "$fur_im.dat" For Output As #4

Dim rek(80), imk(80), reg(80), img(80)

For i = 1 To 80

Input #1, x

rek(i) = x

Next i

For i = 1 To 80

Input #2, y

imk(i) = y

Next i

For i = 1 To 80

w = 2 * 3.1415926 * (i - 1) / 80

x = 0: y = 0

For j = 1 To 80

wcos = Cos(w * (j - 1))

wsin = Sin(w * (j - 1))

x = x + rek(j) * wcos + imk(j) * wsin

y = y + imk(j) * wcos - rek(j) * wsin

Next j

a = Int(x * 32768 / 80)

reg(i) = a

img(i) = y

Next i

For j = 1 To 79

Print #3, reg(j); ","

Next j

For j = 80 To 80

Print #3, reg(j); ";"

Next j

For j = 1 To 80

Print #4, USING; "###.######"; img(j)

Next j

Close

Print "OK"

End

Задание №4. Синтез фильтра.

Текст программы:

.module/ram/abs=0 qq;

.var/dm/circ signal[80];

.init signal: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

;

.var/pm/circ imp[80];

.init imp:

.include <$FUR_RE.dat>;

i4=^imp;

l4=%imp;

m4=1;

m5=0;

i0=^signal;

l0=%signal;

m0=0;

m1=1;

cntr=80;

do count until ce;

ay0=pm(i4,m5);

si=px;

sr=lshift si by 8 (lo);

sr=lshift sr0 by -8 (lo);

si=ay0;

sr=sr or lshift si by 8 (lo);

ay0=sr0;

count: pm(i4,m4)=ay0;

do vivod until forever;

mx0=io(0);

dm(i0,m1)=mx0,mr=0;

my0=pm(i4,m4);

cntr=78;

do filtr until ce;

filtr: mr=mr+mx0*my0(ss), mx0=dm(i0,m1),my0=pm(i4,m4);

mr=mr+mx0*my0(ss),mx0=dm(i0,m0),my0=pm(i4,m4);

mr=mr+mx0*my0(ss);

if mv sat mr;

mr=mr(rnd);

vivod: io(1)=mr1;

.endmod;

Результаты после подачи на вход eдиничного скачка 0x7FFF, после чего на выходе получаем ИХ:

Теперь подадим на вход две синусоиды с частотами 400 и 2200 Гц.

В результате получим

Виртуозы реактивной войны

Оригинал статьи

© А.Докучаев

НАСТОЯЩАЯ реактивная война развернулась в начале пятидесятых годов в Корее 8 ноября 1950 года. В тот день в корейском фронтовом небе появились русские реактивные самолеты МиГ-15 с опознавательными знаками КНДР. Они сразу же вступили в ожесточенные поединки с американскими F-80 "Шутинг стар" и F-84 "Тандерджет". Американскому командующему Макартуру пришлось докладывать начальникам штабов о том, что летчики за все время в Корее столкнулись с боевой техникой, значительно превосходящей американскую, их боевой дух начал падать. Командование США для защиты бомбардировщиков срочно пришлось ввести новейшие реактивные истребители F-86 "Сейбр". Развернулась реактивная воздушная война, которую вели пилоты США с союзниками с одной стороны, а с другой - советские, китайские и северокорейские летчики. Задействованные МиГ-15 и F-86 "Сейбр" были современнейшими реактивными самолетами.

"Атакующие самолеты устремлялись с громадных высот, где преимущество имели МиГи, вниз на малые высоты, где господствовали "Сейбры", - вспоминал один из американских летчиков. - На встречных курсах с суммарной скоростью более 1.900 км/час самолеты сближались так быстро, что человеческий глаз и человеческие реакции были на пределе своих возможностей".

В реактивной воздушной войне успех остался за советскими асами. Заокеанские специалисты насчитывали свыше 30 применяемых тактических приемов летчиками МиГов. И это, в общем-то, не удивительно. Так, 324-й дивизией, которая одна из первых прибыла в Северный Китай для противовоздушной защиты объектов КНДР, командовал легендарный Иван Кожедуб. А потому в ходу были и "косая петля", и "карусель", и "горка к солнцу" и "ловушка", и "пасть"... Отметим, в США по-разному оценивали уровень подготовки своего противника. Командир крыла истребителей "реактивный" ас полковник Харрисон Тинг считал: "МиГ-15 страшен, если управляется хорошим, инициативным летчиком".

Именно такими являлись капитан Николай Сутягин, полковник Евгений Пепеляев, капитан Лев Щукин, майор Дмитрий Оськин, другие советские летчики - бесстрашные асы корейской войны.

Первым "реактивным" асом планеты стал наш летчик - старший лейтенант Федор Шабанов. На реактивном истребителе он уничтожил 5 реактивных самолетов. Это случилось 20 мая 1951 года. Запомним дату рождения первого "реактивного" аса - 20 мая 1951 года. Именно тогда Федор Шабанов одержал свою шестую победу над F-86, которая была пятой "реактивной". В этот день свою пятую "реактивную" победу одержал и американский летчик Джеймс Джабара.