Error in scatter program

Question

Shivakumar 2013-8-12

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/84551-error-in-scatter-program

采纳的回答： Walter Roberson

在 MATLAB Online 中打开

Hi,

I am trying to plot the x and y variables in 'scatter' mode which is pre-defined in the MATLAB.

This is the error

Undefined function or variable "s".
Error in ==> scatter at 74
  if isempty(s), s = 36; end

Can anyone please help me to get solved by this problem.

Thank you

4 个评论
显示 2更早的评论隐藏 2更早的评论

Shivakumar 2013-8-12

编辑：Walter Roberson 2013-8-12

在 MATLAB Online 中打开

function hh = scatter(varargin)
[v6,args] = usev6plotapi(varargin{:},'-mfilename',mfilename);
if v6
  h = Lscatterv6(args{:});
else
  [cax,args,nargs] = axescheck(args{:});
  error(nargchk(1,inf,nargs,'struct'));
  [pvpairs,args,nargs,msg] = parseargs(args);
  error(msg); %#ok
    dataargs = datachk(args(1:nargs));
    switch (nargs)
      case 2
        [x,y] = deal(dataargs{:});
        error(Lxychk(x,y)); %#ok
        [cax,parax] = localGetAxesInfo(cax);
        [ls,c,m] = nextstyle(cax); %#ok
        error(Lcchk(x,c));  %#ok
        s = get(cax,'defaultlinemarkersize')^2;
      case 3
        [x,y,s] = deal(dataargs{:});
        error(Lxychk(x,y));  %#ok
        error(Lschk(x,s));  %#ok
        [cax,parax] = localGetAxesInfo(cax);
        [ls,c,m] = nextstyle(cax); %#ok
        error(Lcchk(x,c));  %#ok
      case 4
        [x,y,s,c] = deal(dataargs{:});
        error(Lxychk(x,y));  %#ok
        error(Lschk(x,s));  %#ok
        if ischar(args{nargs}), c = args{nargs}; end
        error(Lcchk(x,c));  %#ok
        [cax,parax] = localGetAxesInfo(cax);
    end
    if isempty(s), s = 36; end
    h = specgraph.scattergroup('parent',parax,'cdata',c,...
                               'xdata',x,...
                               'ydata',y,...
                               'sizedata',s,...
                               pvpairs{:});
    set(h,'refreshmode','auto');
    plotdoneevent(cax,h);
    h = double(h);
  end
if nargout>0, hh = h; end
%--------------------------------------------------------------------------
function [cax,parax] = localGetAxesInfo(cax)
if isempty(cax) || isa(handle(cax),'hg.axes') 
    cax = newplot(cax);
    parax = cax;
else
    parax = cax;
    cax = ancestor(cax,'Axes');
end
%--------------------------------------------------------------------------
function h = Lscatterv6(varargin)
[cax,args,nargs] = axescheck(varargin{:});
error(nargchk(2,6,nargs,'struct'))
cax = newplot(cax);
filled = 0;
marker = '';
c = '';
% Parse optional trailing arguments (in any order)
nin = nargs;
while nin > 0 && ischar(args{nin})
    if strcmp(args{nin},'filled'),
        filled = 1;
    else
        [l,ctmp,m,msg] = colstyle(args{nin}); %#ok
        error(msg); %#ok
        if ~isempty(m), marker = m; end
        if ~isempty(ctmp), c = ctmp; end
    end
    nin = nin-1;
end
if isempty(marker), marker = 'o'; end
co = get(cax,'colororder');
switch nin
case 2  % scatter(x,y)
    x = args{1};
    y = args{2};
    if isempty(c),
        c = co(1,:);
    end
    s = get(cax,'defaultlinemarkersize')^2;
case 3 % scatter(x,y,s)
    [x,y,s] = deal(args{1:3});
    if isempty(c),
        c = co(1,:);
    end
case 4  % scatter(x,y,s,c)
    [x,y,s,c] = deal(args{1:4});
otherwise
    error(id('InvalidInput'),'Wrong number of input arguments.');
end
if length(x) ~= length(y) || ...
        length(x) ~= numel(x) || length(y) ~= numel(y)
    error(id('InvalidData'),'X and Y must be vectors of the same length.');
end
% Map colors into colormap colors if necessary.  Reshape so as to
% make the loop below easier to follow
[color, scaled] = MapColorsToColorMap(x, c);
colorSize = size(color);
if isequal(colorSize,[1 3]) || ischar(color),
    color = repmat(color,length(x),1);
elseif any(colorSize == 1),
    color = color(:);
end
% Scalar expand the marker size if necessary
if length(s)==1, 
    s = repmat(s,length(x),1); 
elseif length(s)~=numel(s) || length(s)~=length(x)
    error(id('InvalidSData'),'S must be a scalar or a vector the same length as X.')
end
% Now draw the plot, one patch per point.
% keeping track of scatter groups for legend
if isappdata(cax,'scattergroup');
    scattergroup=getappdata(cax,'scattergroup') + 1;
else
    scattergroup = 1;
end
setappdata(cax,'scattergroup',scattergroup);
% create an invisible handle invisible axes for temporary parent
fig = ancestor(cax,'figure');
curax = get(fig,'currentaxes');
tax = axes('parent',fig,'visible','off','handlevisibility','off');
h = -1; h = h(ones(length(x),1));
for i=1:length(x),
    h(i) = patch('parent',tax,'xdata',x(i),'ydata',y(i),...
                 'linestyle','none','facecolor','none',...
                 'markersize',sqrt(s(i)), ...
                 'marker',marker);
    % set scatter group for patch
    setappdata(h(i),'scattergroup',scattergroup); 
      if scaled,
          set(h(i),'cdata',color(i,:),'edgecolor','flat','markerfacecolor','flat');
      else
          set(h(i),'edgecolor',color(i,:),'markerfacecolor',color(i,:));
      end
      if ~filled,
          set(h(i),'markerfacecolor','none');
      end
  end
  set(h,'parent',cax);
  delete(tax);
  set(fig,'currentaxes',curax);
%--------------------------------------------------------------------------
function [pvpairs,args,nargs,msg] = parseargs(args)
msg = '';
% separate pv-pairs from opening arguments
[args,pvpairs] = parseparams(args);
n = 1;
extrapv = {};
% check for 'filled' or LINESPEC or ColorSpec
while length(pvpairs) >= 1 && n < 4 && ischar(pvpairs{1})
  arg = lower(pvpairs{1});
  if arg(1) == 'f'
    pvpairs(1) = [];
    extrapv = {'MarkerFaceColor','flat','MarkerEdgeColor','none', ...
               extrapv{:}};
  else
    [l,c,m,tmsg]=colstyle(pvpairs{1});
    if isempty(tmsg)
      pvpairs(1) = [];
      if ~isempty(l) 
        extrapv = {'LineStyle',l,extrapv{:}};
      end
      if ~isempty(c)
        extrapv = {'CData',ColorSpecToRGB(c),extrapv{:}};
      end
      if ~isempty(m)
        extrapv = {'Marker',m,extrapv{:}};
      end
    end
  end
  n = n+1;
end
pvpairs = [extrapv pvpairs];
if isempty(args)
  msg.message = 'Must supply X and Y data as first arguments.';
  msg.identifier = id('NoDataInputs');
else
  msg = checkpvpairs(pvpairs);
end
nargs = length(args);
%--------------------------------------------------------------------------
function color = ColorSpecToRGB(s)
color=[];
switch s
 case 'y'
  color = [1 1 0];
 case 'm'
  color = [1 0 1];
 case 'c'
  color = [0 1 1];
 case 'r'
  color = [1 0 0];
 case 'g'
  color = [0 1 0];
 case 'b'
  color = [0 0 1];
 case 'w'
  color = [1 1 1];
 case 'k'
  color = [0 0 0];
end
%--------------------------------------------------------------------------
function [colorMap, scaled] = MapColorsToColorMap(x,c)
% Map colors into colormap colors if necessary.
scaled = false;
if ischar(c) || isequal(size(c),[1 3]); % string color or scalar rgb
    colorMap = c;
elseif length(c)==numel(c) && length(c)==length(x), % is C a vector?
    scaled = true;
    colorMap = c;
elseif isequal(size(c),[length(x) 3]), % vector of rgb's
    colorMap = c;
else
    error(id('InvalidCData'),...
    'C must be a single color, a vector the same length as X, or an M-by-3 matrix.')
end
%--------------------------------------------------------------------------
function msg = Lxychk(x,y)
msg = [];
% Verify {X,Y) data is correct size
if any([length(x) length(y) ...
        numel(x) numel(y) ] ~= length(x))
    msg = struct('identifier',id('InvalidXYData'),...
                 'message','X and Y must be vectors of the same length.');
end
   %--------------------------------------------------------------------------
  function msg = Lcchk(x,c)
  msg = [];
  % Verify CData is correct size
  if ischar(c) || isequal(size(c),[1 3]); 
      % string color or scalar rgb 
  elseif length(c)==numel(c) && length(c)==length(x)
      % C is a vector
  elseif isequal(size(c),[length(x) 3]), 
      % vector of rgb's
  else
      msg = struct('identifier',id('InvalidCData'),...
                   'message',['C must be a single color, a vector the same length as X, ',...
             'or an M-by-3 matrix.']);
  end
%--------------------------------------------------------------------------
function msg = Lschk(x,s)
msg = [];
% Verify correct S vector
if length(s) > 1 && ...
              (length(s)~=numel(s) || length(s)~=length(x))
    msg = struct('identifier',id('InvalidSData'),...
                 'message','S must be a scalar or a vector the same length as X.');
end
%--------------------------------------------------------------------------
function str = id(str)
str = ['MATLAB:scatter:' str];