tune_solve.m

Software for design and tuninig of SISO and MIMO contol systems

function mag=tune_solve(E,fun,xwc,Mp,vub,vlb,y,ps,ms,qs,order,input_delay,pds,qds)
global Tune_flag Epsilon
if strcmp(fun,'mimo1com')| strcmp(fun,'mimo2com')
   Epsilon{1}=E;
elseif strcmp(fun,'mimopartial')
   Epsilon{2}=E;
end
index=Tune_flag(find(Tune_flag));
n=length(index);
mag=zeros(n,1);
for i=1:n
   mag(i)=feval(fun,xwc(i,2:end),y,Epsilon,1,xwc(i,1),ps,ms,...
      qs,order,index(i),index(i),input_delay,pds,qds)-Mp(i);
end