Разработка схемы электронного эквалайзера

{М=2NФНЧ+1+2NПФ1+1+2NПФ2+

+1+2NПФ3+1+2NПФ4+1}

{ai, xi – массив, i=1,2 М}

Программа и графики АЧХ фильтров

program k(t);

uses crt,graph;

label 1,2,3;

const f1=1000;

const f2=520;

const fd=20000;

var A,Re,Mn,Td,w1,w2,w,wt,wtp:real;

n,x,y:integer;

Road:STRING;

f:text;

kt:array[0 105] of real;

begin

clrscr;

writeln ('File name?');

readln (road);

assign (f, Road);

rewrite(f);

writeln(f,' w',' ',' A');

w1:=2*pi*f1;

w2:=2*pi*f2;

Td:=1/fd;

n:=0;

w:=0;

x:=detect;

InitGraph(x,y,'c:\tp7\tp7\bgi');

line(0,479,640,479);

line(0,0,0,479);

repeat

wt:=2*pi*w/20000;

re:=0;

mn:=0;

n:=0;

repeat

if n=0 then goto 1 else goto 2;

2:kt[n]:=(sin(w1*n*Td)-sin(w2*n*Td))/(pi*n*Td);

goto 3;

1:kt[n]:=(w1-w2)/pi;

3:re:=re+kt[n]*cos(wt*n);

mn:=mn+kt[n]*sin(wt*n);

if n=0 then mn:=0;

n:=n+1;

until n>81;

A:=sqrt(sqr(re)+sqr(mn));

writeln (f,' ',w:5:2,' ',A:5:4);

x:=trunc(w/46.88);

putpixel(x,trunc(-A/41.67+480),7);

if w=620 then begin

y:=trunc(-A/41.67+480);

repeat

line(trunc(w/46.88),y,trunc(w/46.88),y+5);

y:=y+20;

until y>479;

end;

if w=1000 then begin

y:=trunc(-A/41.67+480);

repeat

line(trunc(w/46.88),y,trunc(w/46.88),y+5);

y:=y+20;

until y>479;

end;

w:=w+1;

until w>=20000;

close(f);

repeat until keypressed;

end.

Вывод.

В курсовой работе был успешно разработан эквалайзер, применяемый в микропроцессорной технике в системах передачи информации.

В качестве базового был использован в качестве сигнальный процессор семейства ADSP-21xx фирмы ANALOG DEVICES. Процессоры этой фирмы являются оптимальными по соотношению цены к качеству и нашли широкое применение в современных системах цифровой обработки сигналов.

Литература

1.Методические указания и задания на курсовой проект « Разработка эквалайзера »

2. Курс лекций по дисциплине « МИУСС » -

1	2	3	4	5	6	7	8	9	10

Copyright © Radioland. Все права защищены.
Дата публикации: 2008-04-09 (0 Прочтено)