dmakessfigure12_2.m

来自「beamlet变化的工具箱」· M 代码 · 共 15 行

function MakeSSFigure12_2(varargin)
% MakeSSFigure12_2.m -- Figure 12_2 of Slant Stack Paper
% Usage: MAKESSFIGURE12_2 will start a new figure window and plot Figure 12_2 of Slant Stack Paper.
%        MAKESSFIGURE12_2(n) for any argument type n will plot the figure on the current figure 
%        window and plot Figure 12_2 of Slant Stack Paper.
if nargin == 0
	 figure;
else
     gcf;
end

% MakeCartGrid -- Show Cartesian Grid Points in panel 1. 
	n = 8;
	m = 2*n;
	w = zeros(2,m+1,n);
%
%figure
plot([-pi pi],[-pi -pi],'w');
axis([-4 4 -4 4]); 
axis('equal');
hold on;
plot([-pi pi],[pi pi],'w');
plot([-pi -pi],[-pi pi],'w');
plot([pi pi],[-pi pi],'w');
for k1=-8:8,
  for k2 =-8:8,
  		if abs(k2) >= abs(k1),
 			plot(pi*k1/8,pi*k2/8,'ro');
		end
  end
end
hold off;
axis off;
%drawnow; figure(gcf);
%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%