[adsense:responsibe:9545213979]
2. El lugar de las raices en el eje real
z=%z; g=(z-2)/(z^4+0.5*z^2+0.5); gz=syslin('d',g); clf; evans(gz,2) zgrid; p=roots(denom(g)) tet=%pi-atan(imag(p(1)-p(2)),real(p(1)-p(2)))-atan(imag(p(1)-p(3)) ,real(p(1)-p(3)))-atan(imag(p(1)-p(4)),real(p(1)-p(4))) +atan(imag(p(1)-2),real(p(1)-2)) angz1=360*tet/(2*%pi) tet2=%pi-atan(imag(p(3)-p(1)),real(p(3)-p(1)))-atan(imag(p(3)-p(2)) ,real(p(3)-p(2)))-atan(imag(p(3)-p(4)),real(p(3)-p(4))) +atan(imag(p(3)-2),real(p(3)-2)) angz1=360*tet2/(2*%pi) dg=derivat(1/gz) rdg=roots(numer(dg))
Añadir nuevo comentario