make changes recommended by code compatibility check

Author: petercorke

PGraph.m

@@ -772,10 +772,10 @@ function display(g)
             % state of the graph including the number of vertices, edges and components.
 
             s = '';
-            s = strvcat(s, sprintf('  %d dimensions', g.ndims));
-            s = strvcat(s, sprintf('  %d vertices', g.n));
-            s = strvcat(s, sprintf('  %d edges', numcols(g.edgelist)));
-            s = strvcat(s, sprintf('  %d components', g.nc));
+            s = char(s, sprintf('  %d dimensions', g.ndims));
+            s = char(s, sprintf('  %d vertices', g.n));
+            s = char(s, sprintf('  %d edges', numcols(g.edgelist)));
+            s = char(s, sprintf('  %d components', g.nc));
         end
 
         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Quaternion.m

@@ -689,7 +689,7 @@ function display(q)
             if length(q) > 1
                 s = '';
                 for qq = q;
-                    s = strvcat(s, char(qq));
+                    s = char(s, char(qq));
                 end
                 return
             end

RTBPose.m

@@ -778,7 +778,7 @@ function disp(obj)
                 out = '';
 
                 for T=obj
-                    out = strvcat(out, printfn(double(T), varargin{:}));
+                    out = char(out, printfn(double(T), varargin{:}));
                 end
             end
         end

SpatialInertia.m

@@ -124,14 +124,14 @@ function display(obj)
                  end
                  m = num2str(obj.I);
                  for line = m'
-                     s = strvcat(s, ['    ' line']);
+                     s = char(s, ['    ' line']);
                  end
              else
                  s = char( obj(1) );
 
                  for i = 2:numel(obj)
-                     s = strvcat(s, ' ');
-                     s = strvcat(s, char(obj(i), 0) );
+                     s = char(s, ' ');
+                     s = char(s, char(obj(i), 0) );
                  end
              end
         end

SpatialVec6.m

@@ -131,7 +131,7 @@ function display(obj)
                 s = char( obj(1) );
                 indent = repmat(' ', 1, length(class(obj)));
                 for i = 2:numel(obj)
-                    s = strvcat(s, sprintf('%s  [ %g %g %g | %g %g %g ]', indent, obj(i).vw));
+                    s = char(s, sprintf('%s  [ %g %g %g | %g %g %g ]', indent, obj(i).vw));
                 end
             end
         end

about.m

@@ -41,7 +41,7 @@
 function about(varargin)
     for i=1:nargin
         var = varargin{i};
-    if isstr(var)
+    if ischar(var)
         % invoked without parentheses
         w = evalin('caller', sprintf('whos(''%s'')', var));
         varname = var;

arrow3.m

@@ -758,11 +758,11 @@ function LocalSetSurface(xys,xs,ys,dx,dy,xr,yr,x,y,z,a,c,H,n,m)
 if nargin<1, c='k'; ls='-'; lw=0.5;
 else
   % identify linestyle
-  if findstr(s,'--'), ls='--'; s=strrep(s,'--','');
-  elseif findstr(s,'-.'), ls='-.'; s=strrep(s,'-.','');
-  elseif findstr(s,'-'), ls='-'; s=strrep(s,'-','');
-  elseif findstr(s,':'), ls=':'; s=strrep(s,':','');
-  elseif findstr(s,'*'), ls='*'; s=strrep(s,'*','');
+  if strfind(s,'--'), ls='--'; s=strrep(s,'--','');
+  elseif strfind(s,'-.'), ls='-.'; s=strrep(s,'-.','');
+  elseif strfind(s,'-'), ls='-'; s=strrep(s,'-','');
+  elseif strfind(s,':'), ls=':'; s=strrep(s,':','');
+  elseif strfind(s,'*'), ls='*'; s=strrep(s,'*','');
   else ls='-';
   end
 

stlRead.m

@@ -114,7 +114,7 @@
         isSolid = strcmp(header(1:min(5,length(header))),'solid'); % take first 5 char
         fseek(fid,-80,1); % go to the end of the file minus 80 characters
         tail = char(fread(fid,80,'uchar')');
-        isEndSolid = findstr(tail,'endsolid');
+        isEndSolid = strfind(tail,'endsolid');
 
         % Double check by reading the last 80 characters of the file.
         % For an ASCII file, the data should end (give or take a few

tb_optparse.m

@@ -303,7 +303,7 @@
             if nargout >= 2
                 arglist = [arglist argv(argc)];
             else
-                if isstr(argv{argc})
+                if ischar(argv{argc})
                     error(['unknown options: ' argv{argc}]);
                 end
             end