Воздействие колебаний сложной формы на линейные цепиРефераты >> Радиоэлектроника >> Воздействие колебаний сложной формы на линейные цепи
Результаты вычисления выходного сигнала, полученные при помощи экспериментальной установки и результаты полученные при расчёте сходятся лишь приблизительно. Объясняется это тем, что генератор входного сигнала не может с большой точностью генерировать входной сигнал, что соответственно сказывается и на различиях в значениях выходного сигнала.
Большую важность оказывает учет факторов, влияющих на параметры элементов: технологического разброса, воздействие температуры влаги, давления, химически активных элементов, пыли, радиации. Весьма существенно влияние механических воздействий и т.д.
Список используемых источников.
1. Баскаков С.И. Радиотехнические цепи и сигналы - Москва: Высшая школа, 1988 - 448 с.
2. Зернов Н.В., Карпов В.Г. Теория радиотехнических цепей - Ленинград: Энергия, 1972 - 816 с.
3. Зуев Е. А. Система программирования Turbo Pascal – Москва: Радио и связь, 1991. – 288 с.
4. Легеня Б. И. Математические модели и методы в расчетах на ЭВМ . Воронеж: Изд-во ВГТУ, 1998. 79 с.
5. Попов В. П. Основы теории цепей. Москва, 1985. 420 с.
6. Методическое руководство к курсовой работе “ Воздействие колебаний сложной формы на линейные цепи “/ Сост. З. М. Каневский , В.П. Литвиненко. Воронеж: гос. техн. ун-т, 1995 - 14 с.
Приложение 1.
program OTC;
uses Crt;
const
c=2.2E-7;
r=9.1E3;
tr=5E-3;
n=50;
otr=100;
var
st,t:real;
k,npp:word;
f:text;
function integral(vid:byte;verx,niz:real;n:word;Time:real):real;
var
d,y,S,tau:real;
begin
d:=(verx-niz)/n;
S:=0;
for k:=0 to n do
begin
tau:=niz+k*d;
case vid of
1: y:=(1-exp((-1)*(6*tau/tr)))*((1+sqrt(5))*exp((-1)*((sqrt(5)+3)*(Time-tau)/ (2*r*c))-(1-sqrt(5))*exp((-1)*(3-sqrt(5))*(Time-tau)/(2*r*c)))/(2*sqrt(5)*r*c);
2: y:=(1-exp(-3))*exp((-1)*(6*tau/tr-3)*(6*tau/tr-3))*((1+sqrt(5))*exp((-1)*
((sqrt(5)+3)*(Time-tau)/(2*r*c))-(1-sqrt(5))*exp((-1)*(3-sqrt(5))*(Time-tau)/
(2*r*c)))/(2*sqrt(5)*r*c);
end;
if k<>0 then
begin
if(k mod 2)=0 then
begin
if k<>n then y:=2*y
end
else
y:=4*y;
end;
S:=S+y; end;
integral:=d*S/3; end; begin ClrScr; Assign(f,'OTC.doc');
Rewrite(f); st:=tr/n; t:=0;
npp:=0;
writeln(f,' N/n Время,mc Uвых,B');
while t <(tr/2) do
begin
npp:=npp+1;
writeln(f,npp:5,(1000*t):9:2,integral(1,t,0,otr,t):20:10);
t:=t+st;
end;
while t<=3*tr+st do
begin
npp:=npp+1;
writeln(f,npp:5,(1000*t):9:2,
integral(1,tr/2,0,otr,t)+integral(2,t,tr/2,otr,t):10:8);
t:=t+st;
end;
Close(f); end.