% prog07.m
% H. Knoll
% 21.8.2001
%
% Aufgabe 5
%
% Gegeben ist die Funktion f durch die Gleichung y= 2*x^3 - 16*x^2 + 5*x - 8.
% In welchem Abschnitt sind die funktionswerte positiv, wo negativ?
% Prüfen Sie im Definitionsbereich [-10,10].
% Lösen Sie die Aufgabe ohne grafischen Plot, verwenden Sie 
% Kontrollstrukturen zur Auswahl.
%----------------------------------------------------------------------
clear all				% Alle Variablen löschen

xmin=-10;
xmax=10;
dx=0.01;
x=xmin:dx:xmax;			% Definition der x-Werte
y = 2.*x.^3 - 16.*x.^2 + 5.*x - 8;	% Definition der Funktion

i=1;s=0;				% i ist der Index der Vektoren x und y
positiv=1;
negativ=1;
disp(' ')
while i<(xmax-xmin)/dx
   if y(i)>0
      positiv=i;
      if s==0 & i>1
         disp(strcat('Die Funktionswerte sind negativ bis:',num2str(x(negativ))))
      end 
      s=1;
   else 
      negativ=i;
      if s==1 & i > 1
         disp(strcat('Die Funktionswwerte sind positiv bis :',num2str(x(positiv))))         
      end
      s=0;
   end
   i=i+1;
end

if s==0
   disp(strcat(Die funktionswwerte sind positiv bis :',num2str(x(fallend))))
else
   disp(strcat('Die Funktionswerte sind negativ bis :',num2str(x(steigend))))         
end
   
disp(' ')
disp(' ')
%-----------------------------------------------------------------------
% Plot der Kurve
plot(x,y,'r')


