function C = clag(wm,beta,n)
%C = clag(wm,beta,n)
%
% Lag network of the form C=Clag^n, where
%
%          10s+wm
% Clag = -----------
%        10s+wm/beta
%
% for beta>1.
%
% Inputs:
%  wm
%  beta (must be >1)
%  n (default n=1)
%
% Output:
%  C  the transfer function of the lag network
%
 if nargin == 2
   n = 1;
 elseif nargin < 2
   error('Two parameters must be used')
 end;
 if beta <= 1
   error('beta must be > 1')
 end;
 %
 C = tf([10 wm],[10 wm/beta])^n;
