{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 function [nume,dene] = s_z_q(num,den,T,vers1,vers2)\par
% Berechnung der q-\'dcbertragungsfunktion H(q) aus der z-\'dcbertragungsfunktion H(z) oder \par
%      aus der s-\'dcbertragungsfunktion H(s)\par
% Berechnung der z-\'dcbertragungsfunktion H(z) aus der q-\'dcbertragungsfunktion H(q) oder \par
%      aus der s-\'dcbertragungsfunktion H(s)\par
%\par
% H(z) --> H(q)\par
%    [numq,denq] = s_z_q(numz,denz,T,'z','q');\par
% H(q) --> H(z)\par
%    [numz,denz] = s_z_q(numq,denq,T,'q','z');\par
% H(s) --> H(q)\par
%    [numq,denq] = s_z_q(nums,dens,T,'s','q');\par
% H(s) --> H(z)\par
%    [numq,denq] = s_z_q(nums,dens,T,'s','z');\par
%\par
\par
[A,B,C,D] = tf2ss(num,den);\par
if (strcmp(vers1,'z')&strcmp(vers2,'q'))\par
   [Aq,Bq,Cq,Dq] = bilin(A,B,C,D,-1,'Tustin',T);\par
elseif (strcmp(vers1,'q')&strcmp(vers2,'z'))\par
   [Aq,Bq,Cq,Dq] = bilin(A,B,C,D,1,'Tustin',T);\par
elseif (strcmp(vers1,'s')&strcmp(vers2,'q'))\par
  [Ad,Bd]  = c2d(A,B,T);\par
   [Aq,Bq,Cq,Dq] = bilin(Ad,Bd,C,D,-1,'Tustin',T);\par
elseif (strcmp(vers1,'s')&strcmp(vers2,'z'))\par
  [Aq,Bq]  = c2d(A,B,T);\par
  Cq = C;\par
  Dq = D;\par
else\par
   error('q,s oder z als vers eingeben');\par
end\par
 [nume,dene] = ss2tf(Aq,Bq,Cq,Dq);\par
}
