[adsense:responsibe:9545213979]
s=%s; zet=0.5; wn=1; sig=zet*wn wd=wn*sqrt(1-zet^2) s1=-sig+%i*wd g=2/((s+1)^2); gs=syslin('c',g); aux=horner(gs,s1); aux2=atan(imag(aux),real(aux)); anggs1=360*aux2/(2*%pi) anggc=-180-anggs1 aux3=atan(imag(s1),real(s1)); angs1=360*aux3/(2*%pi) aux4=anggc+angs1 aux5=(2*%pi)*aux4/360; a=sig+(wd/tan(aux5)) aux6=(s+a)/s; aux7=aux6*gs; aux8=abs(horner(aux7,s1)) kc=1/aux8 gc=kc*aux6; gt=g*gc; gts=syslin('c',gt) clf; evans(gts) plot(real(s1),imag(s1),'*') plot(real(s1),-imag(s1),'*') mtlb_axis([-2 1 -1.5 1.5])
Añadir nuevo comentario