clear

%joonis
fplot(@(T)10^-1*5*0.9-0.92-5*10^-2*8*T-4*10^-5*T.^3)
grid on

%jooniselt alglähend -1

%matlabiga lahendamine
f=@(T)10^-1*5*0.9-0.92-5*10^-2*8*T-4*10^-5*T^3;
vastus=fzero(f,-1)

%Newtoni meetodiga lahendamine
T=-1; %alglähend jooniselt
while abs(f(T))>10^-6
    T=T-(10^-1*5*0.9-0.92-5*10^-2*8*T-4*10^-5*T^3)/(-5*10^-2*8-12*10^-5*T^2);
end
vastusNM=T
