%function []=probne()
load Odpowx.dat
load Odpowy.dat
load Odpowz.dat
ax=Odpowx;by=Odpowy;cz=Odpowz;
Odpowx=[];Odpowy=[];Odpowz=[];
[fidX,MESSAGE]=fopen('Probne.dat','at')
xp=length(ax);yp=length(by);zp=length(cz);
for ix=1:xp
 for jy=1:yp
  for kz=1:zp
	clear mac;
	clear macw;
	mac=[ax(ix,:);by(jy,:);cz(kz,:)];
	macw=[wartwl(mac,1,1,1);wartwl(mac,-1,-1,1);wartwl(mac,1,-1,-1);wartwl(mac,-1,-1,-1)];

	 if ( (~nnz(imag(macw))) & (~nnz(real(macw)>=0)) )
	   fprintf(fidX,'%f %f %f %f %f %f %f\n %f %f %f %f %f %f %f\n %f %f %f %f %f %f %f \n\n',mac')     
	 end

  end;
 end;
end
fclose(fidX)