imc2sen.m

Software for design and tuninig of SISO and MIMO contol systems

function [f]=imc2sen(x,y,E,signo,w,n,Mp,p,m,q,qf,qd,pds)

e=E(2);

if n > 0
 s=sqrt(-1)*x(n);
elseif n == 0
 s=sqrt(-1)*w;
end
if isempty(p)
   p=m;
end
plant=eval(p);
model=eval(m);
cont=eval(qf);
qd_part=eval(qd);
pd=eval(pds);
f=signo*abs(pd*(1-model*cont*qd_part)/(1+(plant-model)*cont*qd_part));

                                    % objective function