Copyright (C) 2001-2009 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 <http://www.gnu.org/licenses/>.
0001 function x = bseastr(s1,s2) 0002 0003 % Copyright (C) 2001-2009 Dynare Team 0004 % 0005 % This file is part of Dynare. 0006 % 0007 % Dynare is free software: you can redistribute it and/or modify 0008 % it under the terms of the GNU General Public License as published by 0009 % the Free Software Foundation, either version 3 of the License, or 0010 % (at your option) any later version. 0011 % 0012 % Dynare is distributed in the hope that it will be useful, 0013 % but WITHOUT ANY WARRANTY; without even the implied warranty of 0014 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0015 % GNU General Public License for more details. 0016 % 0017 % You should have received a copy of the GNU General Public License 0018 % along with Dynare. If not, see <http://www.gnu.org/licenses/>. 0019 0020 m = size(s1,1) ; 0021 x = zeros(m,1) ; 0022 s1=upper(deblank(s1)); 0023 s2=upper(deblank(s2)); 0024 0025 for im = 1:m 0026 key = s1(im,:) ; 0027 h = size(s2,1) ; 0028 l = 1 ; 0029 while l <= h 0030 mid = round((h+l)/2) ; 0031 temp = s2(mid,:) ; 0032 if ~ strcmp(key,temp) 0033 for i = 1:min(length(key),length(temp)) 0034 if temp(i) > key(i) 0035 h = mid - 1 ; 0036 break 0037 else 0038 l = mid + 1 ; 0039 break 0040 end 0041 end 0042 else 0043 x(im) = mid ; 0044 break 0045 end 0046 end 0047 end 0048