ezplot('20*x^2=1-2*x^3+4*y^3',[-4,6,-2,6])
hold on
h=ezplot('2*x^3-3*y^2-10*y+5',[-4,6,-2,6])
set(h,'Color','r')
grid on
title('Joonis')
%alglähendid (-0,5;0,5), (0,5;0,5) ja (3,5;4,5)

%funktsioonid ja vektor
f1=@(z)20*z(1)^2-1+2*z(1)^3-4*z(2)^3; %esimene võrrand, x asemel z(1) ja y asemel z(2)
f2=@(z)10*z(2)-5-2*z(1)^3+3*z(2)^2; %teine võrrand
F=@(z)[f1(z),f2(z)] %funktsioonidest vektor

%HIM
z=[-0.5,0.5]; %alglähend
while abs(F(z))>10^-6
    z(1)=-sqrt(1/20*(1-2*z(1)^3+4*z(2)^3)); %valime -, sest x on negatiivne
    z(2)=1/10*(5+2*z(1)^3-3*z(2)^2);
    end
lahend1=z

%teine lahend
z=[0.5,0.5]; %alglähend
while abs(F(z))>10^-5
    z(1)=sqrt(1/20*(1-2*z(1)^3+4*z(2)^3)); %siin +, sest x väärtus peab olema positiivne
    z(2)=1/10*(5+2*z(1)^3-3*z(2)^2);
    end
lahend2=z

%kolmas lahend
z=[3.5,4.5]; %alglähend
while abs(F(z))>10^-5
    z(1)=(1/2*(10*z(2)-5+3*z(2)^2))^(1/3); 
    z(2)=(1/4*(20*z(1)^2-1+2*z(1)^3))^(1/3);
    end
lahend3=z
