Untitled

%Лабораторная работа №8. Задание 2.
% tan(xy)=x^2;
% 0.8x^2+2y^2=1;
X = [   0, 0.7,     0, -0.7;
     0.75, 0.7, -0.75, -0.7];
xx=-1.8:0.05:1.8;
yy=-1.8:0.05:1.8;
[x,y] = meshgrid(xx,yy);
f1 = tan(x*y)-x.^2;
f2 = 0.8*x.^2+2*y.^2-1;
it=[0,0,0,0];
contour(xx,yy,f1,[0,0], 'r'),
contour(xx,yy,f2,[0,0], 'k'), grid
for i=1:4
    delta = 1;
    while ( abs(delta) > 0.0001)
        delta = -[ X(2,i)*cos(X(1,i)*X(2,i)).^(-2)-2*X(1,i),...
                   X(1,i)*cos(X(1,i)*X(2,i)).^(-2);...
                   1.6*X(1,i),...
                   4*X(2,i)]\[tan(X(1,i)*X(2,i))-X(1,i).^2;...
                   0.8*X(1,i).^2+2*X(2,i).^2-1 ];
        Xn = X(1:2,i) + delta;
        X(1:2,i) = Xn;
        it(i)=it(i)+1;
    end
end
X,it