Mercurial > octave

comparison scripts/control/tzero.m @ 261:48f2876fc807

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-12-15 07:44:13 by jwe]
author jwe
date Wed, 15 Dec 1993 07:44:13 +0000
parents 16a24e76d6e0
children 3470f1e25a79
comparison
equal deleted inserted replaced
260:74d73a4b3fc7 261:48f2876fc807
36 36
37 [n, m, p] = abcddim (a, b, c, d); 37 [n, m, p] = abcddim (a, b, c, d);
38 38
39 if (n > 0 && m > 0 && p > 0) 39 if (n > 0 && m > 0 && p > 0)
40 if (m != p) 40 if (m != p)
41 fprintf (stderr "tzero: number of inputs,outputs differ. squaring up"); 41 fprintf (stderr, "tzero: number of inputs,outputs differ. squaring up");
42 if (p > m) 42 if (p > m)
43 fprintf (stderr, " by padding b and d with zeros."); 43 fprintf (stderr, " by padding b and d with zeros.");
44 b = [b, zeros (n, p-m)]; 44 b = [b, zeros (n, p-m)];
45 d = [d, zeros (p, p-m)]; 45 d = [d, zeros (p, p-m)];
46 m = p; 46 m = p;