% Den här filen är tänkt att underlätta 
% inlämningsuppgift 1 i kurs 5B1126 
% Förberedande matematik för TIMEH1, vt 2005.


% Öppnar ett grafikfönster
hf=figure(1); 
rect = get(hf,'Position'); 
rect(1:2) = [0 0]; 

% Startar en slinga.
% Varje varv ritas tetraedern upp sedd 
% från en ny vinkel.
for j=1:45
	
	clf                         % Rensar grafikfönstret
	subplot(2,2,3)              % Öppnar en delgraf
	axis([-0.4,1.4,-0.4, 1.4])  % Ställer in axlarna
	line([0 1],[0 0])           % Ritar upp tetraedern i startposition
	hold on
	line([0.5 0.5],[0 sqrt(2/3)])
	line([0 0.5],[0 sqrt(2/3)])
	line([0.5 1],[sqrt(2/3) 0])
	
	
	Phi=j/180*pi;               % Definierar vridningvinkeln till j grader
	subplot(2,2,4)              % Öppnar delgrafen för rörelse (i) - vridning
	axis([-0.4,1.4,-0.4, 1.4])
	% Här skriver ni in kommandona för att rita upp tetraedern.
        % Använd vinkeln Phi för vridningsvinkeln.
        % Ni kan använda kommandot "patch" för att rita en fylld
        % yta, se matlabhjälpen.  
	
        %
	title('Vriden')
	
	
	Psi=j/180*pi;                % Definierar tippningsvinkeln till j grader.
	subplot(2,2,1)               % Öppnar delgrafen för rörelse (ii) - tippning   
	axis([-0.4,1.4,-0.4, 1.4])
	% Här skriver ni in kommandona för att rita upp tetraedern.
        % Använd vinkeln Psi för tippningsvinkeln.
    
        %
	title('Tippad')
	
    
	subplot(2,2,2)               % Öppnar delgrafen för rörelse (iii) - tippning och vridning 
	axis([-0.4,1.4,-0.4, 1.4])
	% Här skriver ni in kommandona för att rita upp tetraedern.
        % Använd vinkeln Phi för vridningsvinkeln.
        % Använd vinkeln Psi för tippningsvinkeln.
    
	% 
    title('Tippad och vriden')
    
end
