clear all ;

%%%%%%%%%%%%%%%%%%%% Anges av elever %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Bestämmer nätet med värdena av oberoende variabler.
% Välj ett tillräckligt tät nät 
% för att framställa alla detaljer i funktionen !

x = -2:0.1:2 ;
y = x ;
[X,Y] = meshgrid(x,y) ;

%%%%%%%%%%%%%%%%%  Anges av elever %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Beräkningen av funktions värden:

F = sin(( X.^2 - Y) ) ;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

subplot(3,2,1);
plot3(X,Y,F)

colormap copper ;

title('Vertikala skärningar av grafen till f(x,y) = 1/2(x^2 -y^2)')


subplot(3,2,2);
mesh(X,Y,F);
hidden off

%%%%%%%%%%%%%%% Bestämmer färgskalan%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%  Anges av elever %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
 
colormap copper;

%%%%%%%%%%%%%%%%Texten ovanför bilden %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%  Anges av elever %%%%%%%%%%%%%

title('Vertikala skärningar av grafen till f(x,y) =  ' ) 
 


subplot(3,2,3);

contour( X,Y, F, 15);

%%%%%%%%%%%%%%%%Texten ovanför bilden %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%  Anges av elever %%%%%%%%%%%%%
title('Nivåkurvor av f(x,y) =.................')




subplot(3,2,4)

contour3(X,Y,F, 15);
%%%%%%%%%%%%%%%%Texten ovanför bilden %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%  Anges av elever %%%%%%%%%%%%%
title('Horisontella skärningar av grafen till f(x,y) = .............')


subplot(3,2,5)

%%%%%%%%%%% H - avståndet mellan nivåkurvor och funktionsytan på bilden %%%%%
%%%%%%%%%%%%%%%%%%%%%% Anges av elever  ! %%%%%%%%%%%%%%%%%%%%5
H = 3 ;


mesh(X,Y,F + H) ;
hidden off
hold on
contour(X,Y,F, 15);
colormap copper 
title('Grafen och nivåkurvor på samma bild');

subplot(3,2,6)

surfl(X,Y,F) ;

%%%%%%%%%%%%%%% Bestämmer färgskalan%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%  Anges av elever %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%copper ;
%%%%%%%%%%%%%%% Bestämmer skuggs typ. Pröva olika ! %%%%%%%%%%%%%%%%%%%5
shading interp ;

%shading flat  ;

title('Grafen som yta belysad uppifrån')
