matlab 画不同图案的柱状图

function applyhatch(h,patterns,colorlist)
%APPLYHATCH Apply hatched patterns to a figure
%  APPLYHATCH(H,PATTERNS) creates a new figure from the figure H by
%  replacing distinct colors in H with the black and white
%  patterns in PATTERNS. The format for PATTERNS can be
%    a string of the characters '/', '\', '|', '-', '+', 'x', '.'
%    a cell array of matrices of zeros (white) and ones (black)
%
%  APPLYHATCH(H,PATTERNS,COLORS) maps the colors in the n by
%  matrix COLORS to PATTERNS. Each row of COLORS specifies an RGB
%  color value.
%
%  Note this function makes a bitmap image of H and so is limited
%  to low-resolution, bitmap output.
%
%  Example :
%    bar(rand(,));
%    applyhatch(gcf,'\-x.');
%
%  Example :
%    colormap(cool());
%    pie(rand(,));
%    legend('Jan','Feb','Mar','Apr','May','Jun');
%    applyhatch(gcf,'|-+.\/',cool());
%
%  See also: MAKEHATCH

%  By Ben Hinkle, bhinkle@mathworks.com
%  This code is in the public domain. 

oldppmode = get(h,'paperpositionmode');
oldunits = get(h,'units');
set(h,'paperpositionmode','auto');
set(h,'units','pixels');
figsize = get(h,'position');
if nargin ==
  colorlist = [];
end
bits = hardcopy(h,'-dzbuffer','-r0');
set(h,'paperpositionmode',oldppmode);

bwidth = size(bits,);
bheight = size(bits,);
bsize = bwidth * bheight;
if ~isempty(colorlist)
  colorlist = uint8(*colorlist);
  [colors,colori] = nextnonbw(,colorlist,bits);
else
  colors = (bits(:,:,) ~= bits(:,:,)) | ...
           (bits(:,:,) ~= bits(:,:,));
end
pati = ;
colorind = find(colors);
while ~isempty(colorind)
  colorval() = bits(colorind());
  colorval() = bits(colorind()+bsize);
  colorval() = bits(colorind()+*bsize);
  if iscell(patterns)
    pattern = patterns{pati};
  elseif isa(patterns,'char')
    pattern = makehatch(patterns(pati));
  else
    pattern = patterns;
  end
  pattern = uint8(*(-pattern));
  pheight = size(pattern,);
  pwidth = size(pattern,);
  ratioh = ceil(bheight/pheight);
  ratiow = ceil(bwidth/pwidth);
  bigpattern = repmat(pattern,[ratioh ratiow]);
  if ratioh*pheight > bheight
    bigpattern(bheight+:end,:) = [];
  end
  if ratiow*pwidth > bwidth
    bigpattern(:,bwidth+:end) = [];
  end
  bigpattern = repmat(bigpattern,[  ]);
  color = (bits(:,:,) == colorval()) & ...
          (bits(:,:,) == colorval()) & ...
          (bits(:,:,) == colorval());
  color = repmat(color,[  ]);
  bits(color) = bigpattern(color);
  if ~isempty(colorlist)
    [colors,colori] = nextnonbw(colori,colorlist,bits);
  else
    colors = (bits(:,:,) ~= bits(:,:,)) | ...
             (bits(:,:,) ~= bits(:,:,));
  end
  colorind = find(colors);
  pati = (pati + );
  if pati > length(patterns)
    pati = ;
  end
end

newfig = figure('units','pixels','visible','off');
imaxes = axes('parent',newfig,'units','pixels');
im = image(bits,'parent',imaxes);
fpos = get(newfig,'position');
set(newfig,'position',[fpos(:) figsize() figsize()+]);
set(imaxes,'position',[  figsize() figsize()+],'visible','off');
set(newfig,'visible','on');

function [colors,out] = nextnonbw(ind,colorlist,bits)
out = ind+;
colors = [];
while out <= size(colorlist,)
  if isequal(colorlist(out,:),[  ]) | ...
        isequal(colorlist(out,:),[  ])
    out = out+;
  else
    colors = (colorlist(out,) == bits(:,:,)) & ...
             (colorlist(out,) == bits(:,:,)) & ...
             (colorlist(out,) == bits(:,:,));
    return
  end
end

function A = makehatch(hatch)
%MAKEHATCH Predefined hatch patterns
%  MAKEHATCH(HATCH) returns a matrix with the hatch pattern for HATCH
%   according to the following table:
%      HATCH        pattern
%     -------      ---------
%        /          right-slanted lines
%        \          left-slanted lines
%        |          vertical lines
%        -          horizontal lines
%        +          crossing vertical and horizontal lines
%        x          criss-crossing lines
%        .          single dots
%
%  See also: APPLYHATCH

%  By Ben Hinkle, bhinkle@mathworks.com
%  This code is in the public domain.

n = ;
A=zeros(n);
switch (hatch)
case '/'
  A = fliplr(eye(n));
case '\'
  A = eye(n);
case '|'
  A(:,) = ;
case '-'
  A(,:) = ;
case '+'
  A(:,) = ;
  A(,:) = ;
case 'x'
  A = eye(n) | fliplr(diag(ones(n-,),-));
case '.'
  A(:,:)=;
otherwise
  error(['Undefined hatch pattern "' hatch '".']);
end

效果图：

来自：http://blog.sciencenet.cn/home.php?mod=space&uid=40165&do=blog&id=308439