clear all;
atr='';
P='';
n=0;
t=0;
A=[0 0 0];
B=[1 -1 1];
C=[-1 1 1];
D=[-1 -1 -1];
E=[1 1 -1];
clc
namef=input('podaj plik, ktory cie interesuje w ''    :');
f=    input('podaj ksztalt punktu w apostrofie       :'); 
gr=   input('podaj grubosc punktu: 0...1,2...        :');
colr= input('podaj kolor punktu { r g w y b c }      :'); 



eval(['load ' namef]);


   clf reset
   whitebg('w')
 
    if namef(2)=='a' atr=A;
      elseif namef(2)=='b' atr=B; 
      elseif namef(2)=='c' atr=C;
      elseif namef(2)=='d' atr=D;
      elseif namef(2)=='e' atr=E;
    end      
             
    namef=strrep(namef,'.dat',' ');
    P=['hndl=plot3(',namef,'(:,1),',namef,'(:,2),',namef,'(:,3),colr)'];
    
    hold on
    colr(2)=f;
    eval(P);  
    set(hndl,'LineWidth',gr); 
    set(hndl,'MarkerSize',gr);
    p=[p,'Trajektorie atraktora (',num2str(atr),')'];  
    title(p);  
    
   
  n=str2num(namef(3));

  for i=-n:n;
   for j=-n:n;
    for k=-n:n;
     
     a=linspace(0,k,20);
     b=linspace(j,j,20);
     c=linspace(i,i,20);
     plot3(a,b,c,'m.');
     plot3(b,a,c,'m.');
     plot3(b,c,a,'m.');
     
    end
   end
  end

  hold on
  plot3(atr(1),atr(2),atr(3),'k+');

k=0;
n=0;
d=30;     % k¹t obrotu

  while (k~=5)
   k=menu('kierunek','w lewo','w prawo','w gore','w dol','wyjscie');
   if (k==2)
    n=n-d;
    view(n,d)
   elseif (k==1)
    n=n+d;
    view(n,d)
   elseif (k==4)
    t=t+d;
    view(n,t)
   elseif (k==3)
    t=t-d;
    view(n,t) 
   end
  end

   
whitebg
clf 
close    

%--------------------
