bars_snn.m

来自「神经网络的工具箱, 神经网络的工具箱,」· M 代码 · 共 38 行

function handles = bars_snn(y, varargin)
%BARS_SNN Plot multiple bar plots.  

ax = gca;
   position = get(ax, 'Position');
   units = get(ax, 'Units');
delete(ax);

for i = 1:2:nargin-1
    if strcmp(varargin{i}, 'Position')           
       position = varargin{i+1};
    end
end

for i = 1:2:nargin-1
    if strcmp(varargin{i}, 'Units')     
       units = varargin{i+1};
    end
end


[no_axis, no_bars] = size(y);
max_y = max(max(y));
vsize = position(4)/no_axis; 

handles = zeros(no_axis,1);
for k = 1:no_axis
    handles(k) = axes(...
      'Units', units, ...
      'Position', [position(1) (position(2)+position(4)-vsize*k) ...
                   position(3) vsize], ...
      'Visible', 'on');
    bar(y(k,:));
    axis([0 no_bars+1 0 max_y]);
end

set(handles, 'Visible', 'off');