[adsense:responsibe:9545213979]
//Descomposicion en fracciones simples s=%s; g=2/(s*(s-1)*(s+2)); T=0.1; gs=syslin('c',g) gf=tf2ss(gs); se=pfss(gf) //Calculo de la transformada Z a=coeff(numer(se(1))) b=coeff(numer(se(2))) c=coeff(numer(se(3))) z=%z; gr=(z-1)/z; aux=a*(z/(z-1))+b*(z/(z-exp(T)))+c*(z/(z-exp(-2*T))); auxcl=clean(aux) auxs=syslin('d',auxcl); gz=gr*auxcl gzs=syslin('d',gz); r=roots(denom(auxs)) //Vamos a comprobar la funcion de transferencia resultante gz1=ss2tf(dscr(tf2ss(gs*s),T)); [gz;gz1]
Añadir nuevo comentario