% ::::::::::::::::::  Extrem-Punkte beim  Flächen - Integral  :::::::::::::::::::::::
% :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
clear all ; close all  ; clf;
disp(['°°°°°°°°°°°° S T A R T °°°°°°°°°°°°°°°°°°°° ',date,' °°°°°°°°°°°°°°°°°°°°°'])
format compact

% :::::::::::::::::::::::::::. 1.) Example ::::::::::::::::::..
x = 0:0.1:5;
f = 4-x;
g = 4*exp(-x);
% ::::::::::::::::::::::: Differenz - Function ::::::::::::::::.
Dfg  = (4-x)-4*exp(-x);
% ::::::::::::::::::::::::::1.Ableitung ::::::::::::::::::.
Delta = diff(Dfg)./ diff(x);

% ::::::::::::::::::::::::::::::::::::::::

subplot(221)
   plot(x, f, 'r-' , x, g, 'b-','Linewidth', 2);
   % area([x x], [f g])
  %  stem([x x], [f g])
     set(gca, 'Xlim', [0 5], 'color', 'none')
    str = {' f(x) = 4-x    g(x) = 4*{\ite}^{{\it-x}}'};
    hT1 = title(str);
    set(hT1,'Fontweight', 'bold', 'Fontsize',14)