%這是一個矩形區域六邊形填充函數，三個輸入，分別是六邊形網格大小（外接圓半徑），矩形寬度和高度。
%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