show3cut.m

来自「Lattice coding and decoding」· M 代码 · 共 59 行

function show3cut(varargin)

%SHOW3CUT Display lattice in three cuts.
%   SHOE3CUT(L1,L2,...,Style1,Style2,...) capture the chages performed
%   on desired lattice and displays result in 3-cut view. This function
%   is better to use with 3-dimensional lattices or sphere packings. 
%
%   Examples:
%       Z2 = makelatt('Z',9,2);
%       RZ2 = rotlatt(Z2);
%       N6 = sshell(RZ2,6);
%       show3cut(Z2,RZ2,N6,0,1,2);
% 
%       A2 = makelatt('A',9,2);
%       Hex = makelatt('Hex',9,2);
%       show3cut(Hex,A2,0,1);
% 
%   See also SHOWLATT

%   Copyright 2001-2003 Kamil Anis, [e-mail]
%   Dept. of Radioelectronics, 
%   Faculty of Electrical Engineering
%   Czech Technical University in Prague
%   $Revision: 0.1 $  $Date: 2003/1/16 17:33:28 $
%   --
%   <additional stuff goes here>

name = 'SHOW3CUT';
[idt,tag] = iecho(name);

if rem(nargin,2) ~= 0 % odd number of input argumrnts
	disp(' ');
	disp([tag,'Invalid number of input arguments.']);
	disp([idt,'Each plot must have assigned own plot style.']);
	disp(' ');
	return
end

plots = nargin / 2;
str = strvcat('X-Y view','Y-Z view','X-Z view','3D view');
str1 = strvcat('0 0 1','1 0 0','0 1 0','3');
str2 = num2str(plots);

clf;

for j = 1:4
	subplot(2,2,j);
	for i = 1:plots
		hold on;
		showlatt(varargin{i},'Style',varargin{plots + i});
	end
		cut = str2num(str1(j,:));
		view(cut);
		title(str(j,:));
		xlabel('X'); ylabel('Y'); zlabel('Z');
end
	
set(gcf,'Name',['SHOW3CUT: 3-cut of ',str2,' lattice(s)']);