expressions/@xsymbolic/private/removedots.m

   1 function str=removedots(str)\r
   2 %REMOVEDOTS     Input arguments:\r
   3 %               1) str: An string expression\r
   4 %\r
   5 % Removes the dots in all '.^', '.*' and './' substrings.\r
   6 \r
   7 % Toolbox for nonlinear filtering.\r
   8 % Copyright (C) 2005  Jakob Rosén <jakob.rosen@gmail.com>\r
   9 %\r
  10 % This program is free software; you can redistribute it and/or\r
  11 % modify it under the terms of the GNU General Public License\r
  12 % as published by the Free Software Foundation; either version 2\r
  13 % of the License, or (at your option) any later version.\r
  14 %\r
  15 % This program is distributed in the hope that it will be useful,\r
  16 % but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  17 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  18 % GNU General Public License for more details.\r
  19 %\r
  20 % You should have received a copy of the GNU General Public License\r
  21 % along with this program; if not, write to the Free Software\r
  22 % Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.\r
  23 \r
  24 m=length(str);\r
  25 for j=1:m;\r
  26         str{j}=strrep(str{j},'.^','^');\r
  27         str{j}=strrep(str{j},'.*','*');\r
  28         str{j}=strrep(str{j},'./','/');\r
  29 end\r