--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@rational/respCore.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,27 @@
+% RESPCORE returns the complex response of one rational object.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: RESPCORE returns the complex response of one rational object
+%              as a data-vector. This function should only be used by the
+%              resp method of the ltpda_tf class.
+%
+% CALL:        r = respCore(obj, f);
+%
+% VERSION:     $Id: respCore.m,v 1.4 2010/03/15 15:49:53 ingo Exp $
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function r = respCore(varargin)
+  
+  %%% Get Inputs
+  obj = varargin{1};
+  f   = varargin{2}; % Row vector
+
+  %%% Compute response
+  s = 2*pi*1i*f;
+  numr = polyval(obj.num, s);
+  denr = polyval(obj.den, s);
+  r = numr./denr; % Row vector
+  
+end
+