function immoDCFnull
% :::::::::::::::::::::::::::: Polynom + Nullstelle bei Immob.-DCF  :::::::::::::::::::::::::::::::::::::::::::::::
 close all; clf;
disp(['°°°°°°°°°°°° S T A R T °°°°°°°°°°°°°°°°°°°° ',date,' °°°°°°°°°°°°°°°°°°°°°'])
format compact
% ::::::::::::::::::::::::::::::::::: Mieteinnahmen + Ausgaben :::::::::::::::
E = [582120  582120  551550  614378  634943 ...
       577857  610211  558907  659322  455350]';
A = [  38220   38628    91427    53981    49799 ...
       133472   79426  109414    74173   188051]';
CF = E-A;                                                         % Perioden-Überschuss
% ::::::::::::::::::: Polynom für Bisection-Methode :::::::::::::
r = 1;
Z = [(1+r)^9 (1+r)^8 (1+r)^7 (1+r)^6 (1+r)^5 (1+r)^4 (1+r)^3 (1+r)^2 (1+r) 1]';

func = inline('( CF(1)*Z(1)+CF(2)*Z(2)+CF(3)*Z(3)+CF(4)*Z(4)+CF(5)*Z(5) ...
                    +CF(6)*Z(7)+CF(8)*Z(8)+CF(9)*Z(9)+CF(10)*Z(10) )');
% ::::::::::::::: Zins-Nullstelle  mit ''myBisection''::::::::::::::
a = 0.01;
b = 0.09;
myBisection(func,a,b)
return
% :::::::::::::::::::::: Graphic :::::::::::
ym = [-2e5: 5e4 :2e5];                         % > Marktpreis Immobilie
plot(func, ym,'b','Linewidth',2.5);
set(gca,'color','none')
grid 
hold on;
line( 0*[1,1], get(gca,'Ylim'), 'color', 'k', 'linewidth',1.7 )
line( get(gca,'Xlim'), 0*[1,1],  'color', 'r', 'linewidth',1.7 )
% :::::::::::::::::::::::::::::::