matlab 绘制 阴影 黑白 柱状图 条形图

matlab 绘制 阴影 黑白 柱状图 条形图， 本来想免费发布，但csdn必须设置资源分数，如果需要请私信我。

function applyhatch（hpatternscolorlist）
%APPLYHATCH Apply hatched patterns to a figure
%  APPLYHATCH（HPATTERNS） 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（HPATTERNSCOLORS） maps the colors in the n by 3
%  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 1:
%    bar（rand（34））;
%    applyhatch（gcf‘\-x.‘）;
%
%  Example 2:
%    colormap（cool（6））;
%    pie（rand（61））;
%    legend（‘Jan‘‘Feb‘‘Mar‘‘Apr‘‘May‘‘Jun‘）;
%    applyhatch（gcf‘|-+.\/‘cool（6））;
%
%  See also: MAKEHATCH

%  By Ben Hinkle
%  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 == 2
  colorlist = [];
end
bits = hardcopy（h‘-dzbuffer‘‘-r0‘）;
set（h‘paperpositionmode‘oldppmode）;

bwidth = size（bits2）;
bheight = size（bits1）;
bsize = bwidth * bheight;
if ~isempty（colorlist）
  colorlist = uint8（255*colorlist）;
  [colorscolori] = nextnonbw（0colorlistbits）;
else
  colors = （bits（::1） ~= bits（::2）） | ...
           （bits（::1） ~= bits（::3））;
end
pati = 1;
colorind = find（colors）;
while ~isempty（colorind）
  colorval（1） = bits（colorind（1））;
  colorval（2） = bits（colorind（1）+bsize）;
  colorval（3） = bits（colorind（1）+2*bsize）;
  if iscell（patterns）
    pattern = patterns{pati};
  elseif isa（patterns‘char‘）
    pattern = makehatch（patterns（pati））;
  else
    pattern = patterns;
  end
  pattern = uint8（255*（1-pattern））;
  pheight = size（pattern2）;
  pwidth = size（pattern1）;
  ratioh = ceil（bheight/pheight）;
  ratiow = ceil（bwidth/pwidth）;
  bigpattern = repmat（pattern[ratioh ratiow]）;
  if ratioh*pheight > bheight
    bigpattern（bheight+1:end:） = [];
  end
  if ratiow*pwidth > bwidth
    bigpattern（:bwidth+1:end） = [];
  end
  bigpattern = repmat（bigpattern[1 1 3]）;
  color = （bits（::1） == colorval（1）） & ...
          （bits（::2） == colorval（2）） & ...
          （bits（::3） == colorval（3））;
  color = repmat（color[1 1 3]）;
  bits（color） = bigpattern（color）;
  if ~isempty（colorlist）
    [colorscolori] = nextnonbw（coloricolorlistbits）;
  else
    colors = （bits（::1） ~= bits（::2）） | ...
             （bits（::1） ~= bits（::3））;
  end
  colorind = find（colors）;
  pati = （pati + 1）;
  if pati > length（patterns）
    pati = 1;
  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‘posit

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        3563  2018-04-18 21:32  figure\applyhatch.m
     文件         796  2018-04-21 12:18  figure\main_top.m
     文件         954  2018-04-18 21:34  figure\makehatch.m
     目录           0  2018-04-21 12:18  figure\