dmakessfigure8_1.m

beamlet变化的工具箱

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

% MakeCartGrid3 -- Show Cartesian Grid Points with box at row +3
	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,
 		plot(pi*k2/8,pi*k1/8,'ro');
  end
end
w1 = 3.5*pi/8; w2 = 2.5*pi/8; ed = 3.3;
plot([-ed -ed ed ed -ed],[w1 w2 w2 w1 w1],'-k')
axis([-4 4 -4 4])
hold off;
axis off;
%drawnow; figure(gcf);
%print -depsc SSCartGrid3.eps
%
% 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]
%