clc,clear,close all
num=[1 2 4 0 0 4]; deno=[1 -3/2 1/2 0 1/2 0];
%freq response
freq(num,deno); figure
%pole zero plot
zplane(num,deno) t