function dxdt = sistemalineal(t,x,A,B,K)

dxdt = (A-B*K)*x;