]> Creatis software - CreaPhase.git/blob - octave_packages/control-2.3.52/@tfpoly/eq.m
Add a useful package (from Source forge) for octave
[CreaPhase.git] / octave_packages / control-2.3.52 / @tfpoly / eq.m
1 ## Copyright (C) 2009   Lukas F. Reichlin
2 ##
3 ## This file is part of LTI Syncope.
4 ##
5 ## LTI Syncope is free software: you can redistribute it and/or modify
6 ## it under the terms of the GNU General Public License as published by
7 ## the Free Software Foundation, either version 3 of the License, or
8 ## (at your option) any later version.
9 ##
10 ## LTI Syncope is distributed in the hope that it will be useful,
11 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 ## GNU General Public License for more details.
14 ##
15 ## You should have received a copy of the GNU General Public License
16 ## along with LTI Syncope.  If not, see <http://www.gnu.org/licenses/>.
17
18 ## -*- texinfo -*-
19 ## Test for equal coefficients.  For internal use only.
20
21 ## Author: Lukas Reichlin <lukas.reichlin@gmail.com>
22 ## Created: September 2009
23 ## Version: 0.1
24
25 function bool = eq (a, b)
26
27   a = tfpoly (a);
28   b = tfpoly (b);
29
30   bool = (length (a) == length (b)) && all (a.poly == b.poly);
31
32 endfunction