/*
 Example 5.13 Design of Lead Compensation
*/
 
del *;
 
"***********************************"
"**                               **"
"**         example 5.13          **"
"**  Design of Lead Compensation  **"
"**                               **"
"***********************************"
" "
sleep(2);
 
"before compensation"
" "
"CEMTool>> figure(1);"
"CEMTool>> num = 1;"
"CEMTool>> den = [1 1 0];"
"CEMTool>> rlocus(num,den);"
"CEMTool>> title(\"Root locus before Compensation\");"
" "
 
// before compensation
figure(1);
num = 1;
den = [1 1 0];
rlocus(num,den);
title("Root locus before Compensation");
 
sleep(2);
"after compensation"
" "
 
// after compensation
figure(2);
num = [1 2];
den = convo(den,[1 10]);
rlocus(num,den);
title("Root locus after Compensation");
 
sleep(2);
"Step response after compensation"
" "
"CEMTool>> [num,den] = feedback(num,den,1,1);"
"CEMTool>> step(num,den);"
" "
// Step response after compensation
figure(3);
K = 70;
num = K*num;
[num,den] = feedback(num,den,1,1);
step(num,den);
title("Step response after compensation");