%這是一個(gè)矩形區(qū)域六邊形填充函數(shù)，三個(gè)輸入，分別是六邊形網(wǎng)格大小（外接圓半徑），矩形寬度和高度。
%rc=?網(wǎng)格外接圓半徑
%Width=矩形寬度
%Height=矩形區(qū)域的寬度

function?HexagonDraw（rcWidthHeight）
%rc=?網(wǎng)格外接圓半徑
%Width=矩形寬度
%Height=矩形區(qū)域的寬度

????scrsz?=?get（0‘ScreenSize‘）;
????myCir=figure（‘Position‘[50?50?600?600]）;???%?設(shè)置繪圖的視圖位置和大小
????figure（myCir）;
????xlim（[-Width?Width]）;????%設(shè)置圖像區(qū)域的坐標(biāo)
????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
%%%%

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件?????????933??2016-09-28?10:34??HexagonDraw.m
?????文件???????84793??2016-09-28?10:30??Output.jpg