Cnyquist.m
上传用户:eighthdate
上传日期:2014-05-24
资源大小:270k
文件大小:1k
源码类别:

其他行业

开发平台:

Matlab

  1. function  [re,im]=cnyquist(num,den,s)
  2. %  Hadi Saadat  1998
  3. %  [re, im] = cnyquist(num, den, s) calculate the nyquist response
  4. %  by mapping the nyquist path via the transfer function GH(s) into
  5. %  complex plane.  num and den contain the polynomial coefficients
  6. %  in descending power.  s is the complex row vector defined by the
  7. %  Nyquist path.
  8. m=length(num); n=length(den);  ls=length(s);
  9. for k=1:ls
  10. for j= 1:m
  11.   sm(j)=s(k)^(m-j);
  12. end
  13. for i=1:n
  14.  sn(i)=s(k)^(n-i);
  15. end
  16. nums=sm*num';
  17. dens=sn*den';
  18. ghs(k) =nums/dens;
  19. end
  20. re=real(ghs); im=imag(ghs); [re im];