Виртуозы реактивной войны
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, которая была пятой "реактивной". В этот день свою пятую "реактивную" победу одержал и американский летчик Джеймс Джабара.
|
