dmakessfigure9_1.m

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

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

% Illustrate unequal sampling
%figure
m = 16;
n =  8;
k =  3;
%
t1 = [(-n:(n-1))];
t2 = linspace(-k,k,m+1);

t3 = linspace(-n,n,1024);
x3 = 1.3+ cos( (2*pi)/m * 2 * t3 ) - sin( (2*pi)/m * 3 * t3 )/4 ;
x1 = 1.3 + cos( (2*pi)/m * 2 * t1 ) - sin( (2*pi)/m * 3 * t1 )/4 ;
x2 = 1.3+ cos( (2*pi)/m * 2 * t2 ) - sin( (2*pi)/m * 3 * t2 )/4 ;
plot(t3,x3,'k');
hold on
plot(t1,0*t1,'or');
plot(t1,x1,'or');
for i=1:length(t1),
	plot([t1(i) t1(i)], [0 x1(i)],'r')
end

% plot(t2,0*t2,'xb');
% plot(t2,x2,'xb');
% for i=1:length(t2),
% 	plot([t2(i) t2(i)] ,[0 x2(i)],'b')
% end
hold off
axis off
%
% 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]
%