Matlab矩形区域六边形填充函数

这是一个矩形区域六边形填充函数，三个输入，分别是六边形网格大小（外接圆半径），矩形宽度和高度。    2D图形编程

%这是一个矩形区域六边形填充函数，三个输入，分别是六边形网格大小（外接圆半径），矩形宽度和高度。
%rc= 网格外接圆半径
%Width=矩形宽度
%Height=矩形区域的宽度

function HexagonDraw（rcWidthHeight）
%rc= 网格外接圆半径
%Width=矩形宽度
%Height=矩形区域的宽度

    scrsz = get（0‘ScreenSize‘）;
    myCir=figure（‘Position‘[50 50 600 600]）;   % 设置绘图的视图位置和大小
    figure（myCir）;
    xlim（[-Width Width]）;    %设置图像区域的坐标
    ylim（[-Height Height]）;
    hold on;
%%%%%%%%%%%%%%%%%%%
dx=1.5*rc;
dy=rc*sqrt（3）/2;
A=[0:pi/3:2*pi];
px=rc*cos（A）;  
py=rc*sin（A）;

mx=ceil（Width/dx）;
my=ceil（Height/dy）;
%%%%%%%%%%%%%%%%%%
for i=[-mx:mx]
    for j=[-my:my]
        if mod（（i+j）2）==0
            xp=i*dx;yp=j*dy;
            plot（px+xppy+yp‘k‘‘linewidth‘1）;
            plot（xpyp‘.‘‘markersize‘3）;
        end
    end
end
%%%%%%%%%%%%%%%
hold off;
end
%%%%

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件         933  2016-09-28 10:34  HexagonDraw.m
     文件       84793  2016-09-28 10:30  Output.jpg