imc1sen.m

Software for design and tuninig of SISO and MIMO contol systems

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

if n > 0
 s=sqrt(-1)*x(n);
elseif n == 0
 s=sqrt(-1)*w;
end

if length(E) == 1
 E(2)=E(1);
end

e=E(2);
cont=eval(q);

plant=eval(p);
model=eval(m);
cont =eval(q);
pd=eval(pds);

f=signo*abs(pd*(1-model*cont)/(1+(plant-model)*cont));
                                    % objective function