%    High pass filter
aminit;

figure(1); clf; subplot(231);
z=1; [magh, phaseh] = ambode(tf([1 0 0], [1 2*z 1]), {0.01, 100});

subplot(magh)
amaxis([0.01 100 0.009 2]);
% set(gca, 'YMinorTick', 'off');
set(gca,'Xtick',[0.01 0.1 1 10 100])
set(gca,'Ytick',[0.01 0.1 1]);
% set(gca,'YtickLabel', {'k' 'k/10'});

subplot(phaseh)
amaxis([0.01 100 -180-15 180+15]);
set(gca,'Ytick',[-180 -90 0 90 180])
set(gca,'YtickLabel',{'-180' '' '0' '' '180'})
set(gca,'Xtick',[0.01 0.1 1 10 100])
set(gca,'XtickLabel', {'a/100' '' 'a' '' '100a'});

amprint('highpass.eps');

