%LINES5D  Generates three 5-dimensional lines%%	A = LINES5D(N);%% Generates a data set of N points, on 3 non-crossing, non-parallel lines% in 5 dimensions. %% If N is a vector of sizes, exactly N(I) objects are generated% for class I, I = 1,2.Default: N = [50 50 50].%% See also DATASETS, PRDATASETS% Copyright: E. Pekalska, R.P.W. Duin, duin@ph.tn.tudelft.nl% Faculty of Applied Sciences, Delft University of Technology% P.O. Box 5046, 2600 GA Delft, The Netherlands% $Id: lines5d.m,v 1.1.1.1 2003/05/16 11:20:35 bob Exp $function data = lines5d(N)		prtrace(mfilename);	if nargin< 1, N = [50 50 50]; end	N = genclass(N,ones(1,3)/3);	n1 = N(1);	n2 = N(2);	n3 = N(3);  s1 = [0 0 0 1 0];  s2 = [1 1 1 0 0];  s3 = [0 1 0 1 0];  s4 = [1 1 1 1 1];  s5 = [0 1 1 0 1];  s6 = [1 0 1 1 1];  c1 = [0:1/(n1-1):1]';  c2 = [0:1/(n2-1):1]';  c3 = [0:1/(n3-1):1]';  a  = c1*s1 + (1-c1)*s2;  a  = [a; c2*s3 + (1-c2)*s4];  a  = [a; c3*s5 + (1-c3)*s6];	data = dataset(a,genlab(N));	data = setname(data,'5D Lines');return