summaryrefslogtreecommitdiff
path: root/2048/CH4/EX4.9/respol5.sce
blob: 146db429cebd67b92f98161201288f93b5041c0d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
// Partial fraction expansion for Example 4.29
// 4.9

//                z^2 + 2z            
// G(z)  =  --------------------  
//           (z + 1)^2 (z - 2)

exec('respol.sci',-1);
exec('flip.sci',-1);

num = [1 2 0];
den = convol(convol([1 1],[1 1]),[1 -2]);
[res,pol] = respol(num,den)