DCF Example (infinite case, firm income tax) by Kruschwitz/Löffler

In this notebook we only consider examples where the stochastic structure of the cash flows is not used. This excludes exotic financing schedule (chapter 2.6).

Parameters of the Model

We are dealing here with an (unlevered) company,which will bear infinitely many years of payments to its owners.They,however,cannot be predicted with certainty. We know that the firm will live infinitevily  and the free cash flow after tax will have constant expectation.

(Subscript[C, 1]) = 100;  τ = 0.5;  (Subscript[r, f]) = 0.1;

Valuation concept: the unlevered company

To value the firm we need to know the cost of capitel of the (unlevered) firm. These cost of capital are expected returns of holding the firm's share for one period. This allows us to value the unlevered company.

Notice that we will use a slightly different notation for the cost of capital than in the DCF-book. For more details see DCF, chapter 2.1.

(Subscript[k, u]) = 0.2;

    
(Subscript[V, u]) = 
      Sum[((Subscript[C, 1])/(((1 + (Subscript[k, u])))^t)),  {t,  1, ∞}]

Autonomous financing or APV-formula

When all future amounts of debt are already determined at valuation time t=0, we are speaking of
autonomous financing. In this case, the firm is following a completely fixed redemption plan.

Notice that due to some limitations of Mathematica we will use a slightly different time index for debt than in the DCF-book. For more details see DCF, chapter 2.3.

Dbt = 100; 

(Subscript[V, l]) = (Subscript[V, u])+Sum[((τ (Subscript[r, f]) Dbt)/(((1 + (Subscript[r, f])))^(t + 1))),  {t,  0,  ∞}]

Financing based on market values or WACC-formula

If a firm's debt ratios and not its amount of debt are available, then autonomous financing is no
longer the case. In the case of such a leverage policy, there are three different calculation procedures, which all
lead to the same firm value. Which of the three calculations should be used by the valuator depends upon, among other things, the state of information that she has on hand. 

Notice that due to some limitations of Mathematica we will use a slightly different time index for WACC than in the DCF-book. We will use the WACC approach. For more details see DCF, chapter 2.4.

lev = 0.5;  
    WACC = (1 + (Subscript[k, u])) (1 - ((τ (Subscript[r, f]) lev)/(1 + (Subscript[r, f])))) - 
        1;  

(Subscript[V, l]) = 
      N[Sum[((Subscript[C, 1])/(((1 + WACC))^t)),  {t, 1,  ∞}]]

Financing based on book values (cash flow investment policy)

If the managers of a firm announce that they are planning on lowering or raising the leverage ratio, then they are normally not measuring the leverage ratio in market values, but in book values. In this case they follow a different financing policy. In order to get any further, we have to characterize the investment policy of the firm more  in detail. 

We will an investment policy based on cash flows, and we assume that there are no changes in subscribed capital.  For more details see DCF, chapter 2.5, in particular section 2.5.4.

(Subscript[Y, 0]) = 100; α = 0.5;  n = 2;  
      (Subscript[lev, b]) = 0.5; Φ = 0; 

Array[Inv,  n - 1,  1 - n];                                  
For[t = 1 - n,  t ≤ 0,  Inv[t] = 0;  t++];



(Subscript[V, l]) = 
      (Subscript[V, u]) + τ (Subscript[r, f]) Sum[
            (Subscript[lev, b]) ((((Subscript[Y, 0]) + Φ - Sum[Min[n - s, t]/n Inv[s],  {s,  1 - n,  0}])/(((1 + (Subscript[r, f])))^(t + 1)))),  {t,  
              0,  ∞}] + τ (Subscript[r, f]) Sum[((α (Subscript[C, 1]))/(((1 + (Subscript[k, u])))^t)) (Sum[((((n - s)/n) (Subscript[lev, b]))/(((1 + (Subscript[r, f])))^(s + 1))),  {s,  0,  n - 1}]),  {t,  
              1,  ∞}]
Null

Financing based on cash flow-debt ratio

Der dynamische Verschuldungsgrad ist eine Kennzahl, bei der der Cash flow ins Verhältnis zu den Schulden des Unternehmens gesetzt wird. Diese Kennzahl dient als (vereinfachter) Maßstab für die Zeitdauer, in der das Unternehmen bei ausschließlicher Verwendung des Cashflows zur Schuldentilgung völlig eigenfinanziert werden würde. Wir wollen diese Kennzahl verwenden, um eine sechste Finanzierungspolitik zu untersuchen.

For more details see DCF, section 2.6.3.

(Subscript[L, d]) = 0.5;

    
(Subscript[V, l]) = 
      (Subscript[V, u]) + Dbt Sum[(((((τ (Subscript[r, f]))/(1 + (Subscript[r, f])))))^(s + 
                    1)) ((((Subscript[L, d])))^s),  {s,  0,  ∞}] + 
        Sum[((Subscript[C, 1])/(((1 + (Subscript[k, u])))^s)) 
            Sum[(((((τ (Subscript[r, f]))/(1 + (Subscript[r, f])))))^(u + 1 - 
                      s)) ((((Subscript[L, d])))^(u - s)),  {u,  
                s, ∞}],  {s,  1,  ∞}]