programk(t);
usescrt,graph;
label 1,2,3;
constf1=1000;
constf2=520;
constfd=20000;
varA,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 фирмы ANALOGDEVICES. Процессоры этой фирмы являются оптимальными по соотношению цены к качеству и нашли широкое применение в современных системах цифровой обработки сигналов.
1.Методические указания и задания на курсовой проект « Разработка эквалайзера »
2. Курс лекций по дисциплине « МИУСС » -