Курсовая работа: Анализ и синтез электрических фильтров

box off;

hold off;

%================================

function f=h(t)

f=1-0.7562057.*exp(-39.2962963.*t).*sin(103.93016939.*t);

%================================

function f=g(t)

if (t>=0) f=1;

else f=0;

end;

%----------------------%

function f=fi(t)

f=quad(@h,0,t);

%----------------------%

function f=arg(K)

f=atand(imag(K)/real(K));

%----------------------%

function f = Kjw(W)

p=j*W;

ff=((p^2)*0.0811+1000)/((p^2)*0.0811+p*6.3662+1000);

f=real(ff);

%----------------------%