structured specification of predefined lattice parameters THIS IS NO USER FUNCTION
0001 function varargout = obtainLatticeSpecFromCrystalFamily(varargin) 0002 % structured specification of predefined lattice parameters 0003 % 0004 % THIS IS NO USER FUNCTION 0005 0006 % The elk-library: convex geometry applied to crystallization modeling. 0007 % Copyright (C) 2013 Alexander Reinhold 0008 % 0009 % This program is free software: you can redistribute it and/or modify it 0010 % under the terms of the GNU General Public License as published by the 0011 % Free Software Foundation, either version 3 of the License, or (at your 0012 % option) any later version. 0013 % 0014 % This program is distributed in the hope that it will be useful, but 0015 % WITHOUT ANY WARRANTY; without even the implied warranty of 0016 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 0017 % General Public License for more details. 0018 % 0019 % You should have received a copy of the GNU General Public License along 0020 % with this program. If not, see <http://www.gnu.org/licenses/>. 0021 0022 0023 for i = 1:nargin 0024 switch varargin{i} 0025 case 'a' 0026 %triklin (anorthic) 0027 varargout{i} = {'a', 'b', 'c', 'alpha', 'beta', 'gamma'}; 0028 case 'm' 0029 %monoklin 0030 varargout{i} = {'a', 'b', 'c', 90, 'beta', 90}; 0031 case 'o' 0032 %orthorhombisch 0033 varargout{i} = {'a', 'b', 'c', 90, 90, 90}; 0034 case 't' 0035 %tetragonal 0036 varargout{i} = {'a', 'a', 'c', 90, 90, 90}; 0037 case 'h' 0038 %hexagonal/trigonal 0039 varargout{i} = {'a', 'a', 'c', 90, 90, 120}; 0040 case 'r' 0041 %rhomboedrisch 0042 varargout{i} = {'a', 'b', 'c', 'alpha', 'beta', 'gamma'}; 0043 case 'c' 0044 %kubisch 0045 varargout{i} = {'a', 'a', 'a', 90, 90, 90}; 0046 end 0047 end