(* ::Package:: *)

% questa prima parte del programma trasforma il rapporto tra due polinomi di grado qualsiasi 
% nella somma di
% frazioni. Se il numeratore \[EGrave] di grado minore del denominatore, al numeratore ci sar\[AGrave] 
% una costante r e al denominatore un
% binomio di primo grado tipo s-p; se il grado del numeratore>grado 
% del denominatore,compare anche un polinomio intero tipo k1s+k
num=[1 3 2]
den=[2 8]
[r,p,k]=residue (num,den)
% questa seconda parte fa il processo inverso: trasforma la somma di frazione e di una 
% parte intera in un rapporto tra polinomi
r=[-2 4 2]
p=[2 1 1]
k=[1 1]
[num,den]=residue (r,p,k)
% infine, troviamo il luogo delle radici di una funzione di trasferimento 
% e ne tracciamo il grafico
g=tf ([1 2],[5 15])
[r,k]=rlocus (g)
rlocus (g)
%
