Add hatch to bar plot

 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
 %而applyhatch函数需要调用下面的函数
 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

 %测试的例子命令
 %  data = [96.3,92.6,71.2;95.7,93.6,83.9;96.8,94.3,78.3;95.8,92.7,80.3]
 %  bar(data,)
 %  axis([  0.0 ])
 %  legend('方法','exited','Square')
 %  set(gca,'XTickLabel',{'Img1','Img2','Img3','Img4'})
 %  applyhatch(gcf,'\.x.')

---恢复内容结束---