// Updated(24-7-07)
// 10.7
// Kannan Moudgalya, April 2004

num = [-1.117 3.1472]; den = [1 4.6429 5.3821];

G = trfu(num,den);

Ts = 0.1;
[B,A,k] = myc2d(G,Ts);

alpha = 0.9;
getf imc_stable1.sci;
[k,GiN,GiD] = imc_stable1(B,A,k,alpha);

[zk,dzk] = zpowk(k);
Bp = B; Ap = A;
t0 = 0; tf = 10; st = 1; Nvar = 0;

// simulink executed with delay block deleted -----------