Ti 14.3

Ke 15.3

x=linspace(-2,2,30);y=x;
[X,Y]=meshgrid(x,y);
%f=inline('2*x.*y./(x.^2+y.^2)','x','y')
f=inline('(x.*y.^2)./(x.^2+y.^4)','x','y')
surfc(x,y,f(X,Y)); 
colorbar; shg
figure
contour(x,y,f(X,Y))
contour(x,y,f(X,Y),linspace(-1,1,20))

% tihennetään hilaa.
x=linspace(-2,2,60);y=x;
[X,Y]=meshgrid(x,y);contour(x,y,f(X,Y),linspace(-1,1,20));shg

[c,h] = contour(x,y,f(X,Y)); clabel(c,h), colorbar

To 16.3

Kotiin