From db7f431010b71e761aa8fffb338f36cf200c889e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Charybdis=29?= Date: Mon, 14 Oct 2013 18:12:50 +0200 Subject: [PATCH] Added routine. --- matlab/utilities/dates/isfreq.m | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 matlab/utilities/dates/isfreq.m diff --git a/matlab/utilities/dates/isfreq.m b/matlab/utilities/dates/isfreq.m new file mode 100644 index 000000000..38a779f20 --- /dev/null +++ b/matlab/utilities/dates/isfreq.m @@ -0,0 +1,28 @@ +function B = isfreq(A) + +% Tests if A can be interpreted as a frequency. +% +% INPUTS +% o A scalar integer or character. +% +% OUTPUTS +% o B scalar integer equal to one if A can be interpreted as a frequency, zero otherwise. + +% Copyright (C) 2013 Dynare Team +% +% This file is part of Dynare. +% +% Dynare is free software: you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation, either version 3 of the License, or +% (at your option) any later version. +% +% Dynare is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with Dynare. If not, see . + +B = (ischar(A) && ismember(upper(A),{'Y','A','Q','M','W'})) || ismember(A,[1 4 12 52]); \ No newline at end of file