C:\Documents and Settings\student\Pulpit\impedancja.m

1 File

Edit View Text Debug Breakpoints Web Windo w Help

□ g? h | & i& a « o.; a @ e <ni qi ar una «.*

e

1

-

elear; cle;

2

-

fz=50; fp=10; fs=1000;

3

-

Rz=l; Rp=0.98;

4

-

Omega z=2*pi*(fz/fs);

5

-

0mega_p=2*pi*(fp/fs);

1 1 1 1 1

6

-

z=Rz*exp(j *0mega_z);

7

-

p=Rp*exp(j *0mega_p);

8

—

z=[z conj(z)];

9

-

p=[p conj(p)];

—

10

11

-

[b,a]=zp2tf(z¹,p¹,1);

12

-

[Hl,wl]=freqz(b,a,1024,fs);

13

-

x=zeros(1,512); x(l)=l;

14

-

y=filter(b,a,x);

15

-

subplot(2,l,l); plot(wl,abs(HI));

16

subplot(2,l,2); plot(y);

-

script

Ln 13

Col 2

lilii -

i

Start

Im CPS ^F ~J MATLAB

9$ C:\Documents and Se...

) Figurę No. 1 '3 Katedra Systemów T... ^r cps_lab6[l] - Microso...

PL