Mercurial > hg > octave-lyh

comparison scripts/control/base/damp.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents b5238ac1dca9
children bdbee5282954
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
35 ## assume a continuous system 35 ## assume a continuous system
36 DIGITAL = 0; 36 DIGITAL = 0;
37 if(nargin < 1 || nargin > 2) 37 if(nargin < 1 || nargin > 2)
38 usage("damp(p,[ tsamp])") 38 usage("damp(p,[ tsamp])")
39 endif 39 endif
40 if(is_struct(p)) 40 if(isstruct(p))
41 if (nargin != 1) 41 if (nargin != 1)
42 error("damp: when p is a system, tsamp parameter is not allowed."); 42 error("damp: when p is a system, tsamp parameter is not allowed.");
43 endif 43 endif
44 [aa, b, c, d, t_samp] = sys2ss(p); 44 [aa, b, c, d, t_samp] = sys2ss(p);
45 DIGITAL = is_digital(p); 45 DIGITAL = is_digital(p);
48 if (nargin == 2) 48 if (nargin == 2)
49 DIGITAL = 1; 49 DIGITAL = 1;
50 t_samp = tsam; 50 t_samp = tsam;
51 endif 51 endif
52 endif 52 endif
53 if (!is_square(aa)) 53 if (!issquare(aa))
54 error("damp: Matrix p is not square.") 54 error("damp: Matrix p is not square.")
55 endif 55 endif
56 if (DIGITAL && t_samp <= 0.0) 56 if (DIGITAL && t_samp <= 0.0)
57 error("damp: Sampling time tsam must not be <= 0.") 57 error("damp: Sampling time tsam must not be <= 0.")
58 endif 58 endif