ساخت ماتریس تصادفی

[rahnema1]

function [a,b]= myfun(X,ncols)

	i0=0;i1=0;

	while( rows(i1)!=163)

		i0=randperm(cols(X),ncols);

		i1=unique(X(:,i0),'rows');

	end

	i2=randperm(163);

	a=X(i2(1:98),i0);

	b=X(i2(99:163),i0);

end

X=rand(163,43);

for i=[5:5:35,43]

	[a,b]=myfun(X,i);

end