summaryrefslogtreecommitdiff
path: root/2048/CH11/EX11.2/recursion_ex1.sce
blob: aca7983036849ef7e6dc3ec8972f1c4635ed75cf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
// Recursive computation of Ej and Fj for the system presented in Example 11.2 on page 408.
// 11.2

exec('poladd.sci',-1);
exec('polsize.sci',-1);
exec('recursion.sci',-1);

C = [1 0.5]; dC = 1;
A = [1 -0.6 -0.16]; dA = 2;
j = 2;
[Fj,dFj,Ej,dEj] = recursion(A,dA,C,dC,j)