clear %vahemälu puhtaks

%joonis alglähendite leidmiseks
ezplot('20*x^2=1-2*x^3+4*y^3',[-1,4,-1,5])
hold on
grid on
f=ezplot('2*x^3=10*y-5+3*y^2',[-1,4,-1,5])
set(f,'color','r')
hold off
title('Joonis alglähendite leidmiseks')
legend('20*x^2=1-2*x^3+4*y^3','2*x^3=10*y-5+3*y^2')

%jooniselt on näha, et joontel on 3 lõikepunkti. Valime lõikepunktide
%koordinaadid alglähenditeks. Meile sobib (-0.25,0.5) ja (0.25,0.5) ning
%(3.75,4.5).

%Defineerime vektorfunktsiooni, mille argumendiks vektor z, kus z(1)=x ja
%z(2)=y ning paneme süsteemi 2 võrrandit kirja.
F=@(z)[20*z(1)^2-1+2*z(1)^3-4*z(2)^3,10*z(2)-5-2*z(1)^3+3*z(2)^2];

lahend1=fsolve(F,[-0.25,0.5])
lahend2=fsolve(F,[0.25,0.5])
lahend3=fsolve(F,[3.75,4.5])

kontroll1=F(lahend1)
kontroll2=F(lahend2)
kontroll3=F(lahend3)