%%
clear all

plant = zpk([],1000,1000);
filter = zpk([],0,100);

a = linearize('TEST');
%%
clear io
io(1) = linio('TEST/plant',1,'looptransfer');
%io(2) = linio('TEST/filter',1,'output');

%io(1) = linio('TEST/From',1,'input');
%io(2) = linio('TEST/From_test',1,'output');

a = linearize('TEST', io);
a = prescale(a, {3e-5 2e5});
figure(113)
h=bodeplot(a(1,1))
setoptions(h, 'FreqUnits','Hz');

xlim([3e-2 2e3])
grid on