Воздействие колебаний сложной формы на линейные цепи
Рефераты >> Радиоэлектроника >> Воздействие колебаний сложной формы на линейные цепи

Результаты вычисления выходного сигнала, полученные при помощи экспериментальной установки и результаты полученные при расчёте сходятся лишь приблизительно. Объясняется это тем, что генератор входного сигнала не может с большой точностью генерировать входной сигнал, что соответственно сказывается и на различиях в значениях выходного сигнала.

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

Список используемых источников.

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.


Страница: