2

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^1,p^1,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 -

u

IUU    IbU-200-250

w

300

350

400

450

500

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