/*
  example 3.18  Cruise-control Transfer Function Using CEMTool
*/
 
del *
 
"***********************************************************"
"**                                                       **"
"**                    example 3.18                       **"
"**     Cruise-control Transfer Function Using CEMTool    **"
"**                                                       **"
"***********************************************************"
" "
sleep(2);
 
"m = 1000;"
"b = 50;"
" "
 
sleep(1);
"F =    0       1"
"       0     -b/m"
" "
"G =  0 "
"    1/m "
" "
"H = 0   1 "
" "
"J = 0 "
" "
sleep(1);
 
"******************************************************"
"**   state space expression ==> transfer function   **"
"******************************************************"
" "
sleep(1);
"[num, den] = ss2tf(F,G,H,J)"
" "
sleep(1);
 
m = 1000;
b = 50;
 
F = [0 1; 0 -b/m];
G = [0; 1/m];
H = [1 0];
J = 0;
 
[num, den] = ss2tf(F,G,H,J)