(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 4.2'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     12194,        383]*)
(*NotebookOutlinePosition[     18035,        551]*)
(*  CellTagsIndexPosition[     17378,        526]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
  StyleBox["DCF", "Title",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 0]],
  StyleBox[" Example (infinite case, firm income tax) by Kruschwitz/L\
\[ODoubleDot]ffler", "Title",
    FontColor->RGBColor[1, 0, 0]]
}], "Section",
  CellFrame->True,
  CellDingbat->None,
  ShowCellBracket->False,
  TextAlignment->Center,
  Background->GrayLevel[0.811765],
  CellTags->{"b:8", "c:1"}],

Cell["\<\
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).\
\>", "Text",
  ShowCellBracket->False,
  CellTags->"b:8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parameters of the Model", "Section",
  Editable->False,
  CellFrame->True,
  CellDingbat->"\[FilledSquare]",
  ShowCellBracket->False,
  Background->GrayLevel[0.811765],
  CellTags->{"b:9", "c:2"}],

Cell["\<\
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. \
\>", "Text",
  CellFrame->True,
  ShowCellBracket->False,
  FontWeight->"Plain",
  FontVariations->{"CompatibilityType"->0},
  CellTags->"b:9"],

Cell[BoxData[
    \(C\_1 = 100; \ \[Tau] = 0.5; \ r\_f = 0.1;\)], "Input",
  CellFrame->False,
  CellGroupingRules->"InputGrouping",
  AutoIndent->Automatic,
  StyleBoxAutoDelete->True,
  TextAlignment->Left,
  ParagraphIndent->0,
  FontWeight->"Bold",
  CellTags->{"parameter of the model", "b:9"}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Valuation concept: the unlevered company", "Section",
  CellFrame->True,
  CellDingbat->"\[FilledSquare]",
  ShowCellBracket->False,
  Background->GrayLevel[0.811765],
  CellTags->{"b:10", "c:3"}],

Cell[TextData[{
  "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.\n\nNotice that \
we will use a slightly different notation for the cost of capital than in the \
",
  StyleBox["DCF",
    FontSlant->"Italic"],
  "-book. For more details see ",
  StyleBox["DCF",
    FontSlant->"Italic"],
  ", chapter 2.1. "
}], "Text",
  CellFrame->True,
  ShowCellBracket->False,
  FontWeight->"Plain",
  FontVariations->{"CompatibilityType"->0},
  CellTags->"b:10"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(\(k\_u = 0.2;\)\(\[IndentingNewLine]\)
    \)\), "\[IndentingNewLine]", 
    \(V\_u = 
      Sum[C\_1\/\((1 + k\_u)\)\^t, \ {t, \ 1, \[Infinity]}]\)}], "Input",
  CellFrame->False,
  CellGroupingRules->"InputGrouping",
  AutoIndent->Automatic,
  StyleBoxAutoDelete->True,
  TextAlignment->Left,
  ParagraphIndent->0,
  CellTags->{"the unlevered company", "b:10"}],

Cell[BoxData[
    \(500\)], "Output",
  CellTags->"b:10"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Autonomous financing or APV-formula", "Section",
  Editable->False,
  CellFrame->True,
  CellDingbat->"\[FilledSquare]",
  ShowCellBracket->False,
  Background->GrayLevel[0.811765],
  CellTags->{"b:11", "c:4"}],

Cell[TextData[{
  "When all future amounts of debt are already determined at valuation time \
t=0, we are speaking of\nautonomous financing. In this case, the firm is \
following a completely fixed redemption plan.\n\nNotice that due to some \
limitations of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " we will use a slightly different time index for debt than in the ",
  StyleBox["DCF",
    FontSlant->"Italic"],
  "-book. For more details see ",
  StyleBox["DCF",
    FontSlant->"Italic"],
  ", chapter 2.3."
}], "Text",
  Editable->False,
  CellFrame->True,
  ShowCellBracket->False,
  FontWeight->"Plain",
  FontVariations->{"CompatibilityType"->0},
  CellTags->"b:11"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(Dbt = 100;\)\ \[IndentingNewLine]\), "\[IndentingNewLine]", 
    \(V\_l = \(\(V\_u\)\(+\)\(Sum[\(\[Tau]\ r\_f\ Dbt\)\/\((1 + r\_f)\)\^\(t \
+ 1\), \ {t, \ 0, \ \[Infinity]}]\)\(\ \)\)\)}], "Input",
  CellFrame->False,
  CellGroupingRules->"InputGrouping",
  AutoIndent->Automatic,
  StyleBoxAutoDelete->True,
  TextAlignment->Left,
  ParagraphIndent->0,
  ButtonBoxOptions->{Active->True,
  ButtonStyle->"MainBookLink"},
  CellTags->{"autonomous financing", "b:11"}],

Cell[BoxData[
    \(550.`\)], "Output",
  CellTags->"b:11"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Financing based on market values or WACC-formula", "Section",
  Editable->False,
  CellFrame->True,
  CellDingbat->"\[FilledSquare]",
  ShowCellBracket->False,
  Background->GrayLevel[0.811765],
  CellTags->{"b:12", "c:5"}],

Cell[TextData[{
  "If a firm's debt ratios and not its amount of debt are available, then \
autonomous financing is no\nlonger the case. In the case of such a leverage \
policy, there are three different calculation procedures, which all\nlead 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. \n\nNotice that due to some limitations of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " we will use a slightly different time index for WACC than in the ",
  StyleBox["DCF",
    FontSlant->"Italic"],
  "-book. We will use the WACC approach. For more details see ",
  StyleBox["DCF",
    FontSlant->"Italic"],
  ", chapter 2.4."
}], "Text",
  Editable->False,
  CellFrame->True,
  ShowCellBracket->False,
  FontWeight->"Plain",
  FontVariations->{"CompatibilityType"->0},
  CellTags->"b:12"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(lev = 0.5; \ 
    WACC = \((1 + k\_u)\) \((1 - \(\[Tau]\ r\_f\ lev\)\/\(1 + r\_f\))\) - 
        1;\ \ \[IndentingNewLine]\), "\[IndentingNewLine]", 
    \(V\_l = 
      N[Sum[C\_1\/\((1 + WACC)\)\^t, \ {t, 1, \ \[Infinity]}]]\)}], "Input",
  CellFrame->False,
  CellGroupingRules->"InputGrouping",
  AutoIndent->Automatic,
  StyleBoxAutoDelete->True,
  TextAlignment->Left,
  ParagraphIndent->0,
  CellTags->{"financing based on market values", "b:12"}],

Cell[BoxData[
    \(578.9473684210526`\)], "Output",
  CellTags->"b:12"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Financing based on book values (cash flow investment policy)", "Section",
  CellFrame->True,
  CellDingbat->"\[FilledSquare]",
  ShowCellBracket->False,
  Background->GrayLevel[0.811765],
  CellTags->{"b:13", "c:6"}],

Cell["\<\
 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.\
\>", "Text",
  CellFrame->True,
  ShowCellBracket->False,
  FontWeight->"Plain",
  FontVariations->{"CompatibilityType"->0},
  CellTags->"b:13"],

Cell[CellGroupData[{

Cell[BoxData[{
    RowBox[{\(Y\_0 = 100; \[Alpha] = 0.5; \ n = 2; \ 
      lev\_b = 0.5; \[CapitalPhi] = 0;\), " ", 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
    RowBox[{\(Array[Inv, \ n - 1, \ 1 - n];\), 
      "                                ", 
      StyleBox[\( (*\ index\ starts\ at\ 1 - n\ *) \),
        FontWeight->"Plain",
        FontSlant->"Plain",
        FontTracking->"Plain",
        FontVariations->{"Underline"->False,
        "Outline"->False,
        "Shadow"->False,
        "StrikeThrough"->False,
        "Masked"->False,
        "CompatibilityType"->0,
        "RotationAngle"->0}]}], "\[IndentingNewLine]", 
    RowBox[{\(For[t = 1 - n, \ t \[LessEqual] 0, \ Inv[t] = 0; \ \(t++\)];\), 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(V\_l = 
      V\_u + \[Tau]\ r\_f\ Sum[
            lev\_b\ \((\(Y\_0 + \[CapitalPhi] - Sum[\(Min[n - s, t]\/n\) \
Inv[s], \ {s, \ 1 - n, \ 0}]\)\/\((1 + r\_f)\)\^\(t + 1\))\), \ {t, \ 
              0, \ \[Infinity]}] + \[Tau]\ r\_f\ Sum[\(\(\[Alpha]\ \
C\_1\)\/\((1 + k\_u)\)\^t\) \((Sum[\(\(n - s\)\/n\ lev\_b\)\/\((1 + r\_f)\)\^\
\(s + 1\), \ {s, \ 0, \ n - 1}])\), \ {t, \ 
              1, \ \[Infinity]}]\), "\[IndentingNewLine]", "Null"}], "Input",
  CellFrame->False,
  CellGroupingRules->"InputGrouping",
  AutoIndent->Automatic,
  StyleBoxAutoDelete->True,
  TextAlignment->Left,
  ParagraphIndent->0,
  CellTags->{"financing based on book values", "b:13"}],

Cell[BoxData[
    \(533.2644628099174`\)], "Output",
  CellTags->"b:13"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Financing based on cash flow-debt ratio", "Section",
  CellFrame->True,
  CellDingbat->"\[FilledSquare]",
  Background->GrayLevel[0.811765],
  CellTags->{"b:14", "c:7"}],

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

For more details see DCF, section 2.6.3.\
\>", "Text",
  CellFrame->True,
  FontWeight->"Plain",
  FontVariations->{"CompatibilityType"->0},
  CellTags->"b:14"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(\(L\_d = 0.5;\)\(\[IndentingNewLine]\)
    \)\), "\[IndentingNewLine]", 
    \(V\_l = 
      V\_u + Dbt\ Sum[\(\((\(\[Tau]\ r\_f\)\/\(1 + r\_f\))\)\^\(s + 
                    1\)\) \((L\_d)\)\^s, \ {s, \ 0, \ \[Infinity]}] + 
        Sum[\(C\_1\/\((1 + k\_u)\)\^s\) 
            Sum[\(\((\(\[Tau]\ r\_f\)\/\(1 + r\_f\))\)\^\(u + 1 - 
                      s\)\) \((L\_d)\)\^\(u - s\), \ {u, \ 
                s, \[Infinity]}], \ {s, \ 1, \ \[Infinity]}]\)}], "Input",
  CellTags->{"financing based on cash flow-debt ratio", "b:14"}],

Cell[BoxData[
    \(527.9069767441861`\)], "Output",
  CellTags->"b:14"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.2 for Microsoft Windows",
ScreenRectangle->{{0, 1400}, {0, 967}},
ScreenStyleEnvironment->"Working",
ShowPageBreaks->False,
WindowToolbars->{},
WindowSize->{1122, 907},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->6,
PrintingPageRange->{2, 2},
PageHeaders->{{Inherited, Inherited, Inherited}, {Cell[ 
        TextData[ {
          CounterBox[ "DCF by Kruschwitz/L\[ODoubleDot]ffler"]}], ""], 
      Inherited, Inherited}},
PrintingOptions->{"PrintingMargins"->{{54, 54}, {72, 72}},
"PrintCellBrackets"->False,
"PrintRegistrationMarks"->True,
"PrintMultipleHorizontalPages"->False},
TaggingRules:>{"PaginationCache" -> {{2003, 9, 15, 21, 52, 21}, {6, 6, 6, 6, \
6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 9, 9}}},
ShowCellTags->True,
StyleDefinitions -> "Default.nb"
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{
  "b:8"->{
    Cell[1776, 53, 406, 13, 172, "Section",
      CellTags->{"b:8", "c:1"}],
    Cell[2185, 68, 232, 6, 47, "Text",
      CellTags->"b:8"]},
  "c:1"->{
    Cell[1776, 53, 406, 13, 172, "Section",
      CellTags->{"b:8", "c:1"}]},
  "b:9"->{
    Cell[2454, 79, 203, 6, 89, "Section",
      CellTags->{"b:9", "c:2"}],
    Cell[2660, 87, 433, 10, 82, "Text",
      CellTags->"b:9"],
    Cell[3096, 99, 299, 9, 44, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"parameter of the model", "b:9"}]},
  "c:2"->{
    Cell[2454, 79, 203, 6, 89, "Section",
      CellTags->{"b:9", "c:2"}]},
  "parameter of the model"->{
    Cell[3096, 99, 299, 9, 44, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"parameter of the model", "b:9"}]},
  "b:10"->{
    Cell[3432, 113, 202, 5, 89, "Section",
      CellTags->{"b:10", "c:3"}],
    Cell[3637, 120, 621, 17, 101, "Text",
      CellTags->"b:10"],
    Cell[4283, 141, 386, 11, 99, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"the unlevered company", "b:10"}],
    Cell[4672, 154, 57, 2, 43, "Output",
      CellTags->"b:10"]},
  "c:3"->{
    Cell[3432, 113, 202, 5, 89, "Section",
      CellTags->{"b:10", "c:3"}]},
  "the unlevered company"->{
    Cell[4283, 141, 386, 11, 99, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"the unlevered company", "b:10"}]},
  "b:11"->{
    Cell[4778, 162, 216, 6, 89, "Section",
      CellTags->{"b:11", "c:4"}],
    Cell[4997, 170, 689, 20, 120, "Text",
      CellTags->"b:11"],
    Cell[5711, 194, 489, 12, 99, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"autonomous financing", "b:11"}],
    Cell[6203, 208, 59, 2, 43, "Output",
      CellTags->"b:11"]},
  "c:4"->{
    Cell[4778, 162, 216, 6, 89, "Section",
      CellTags->{"b:11", "c:4"}]},
  "autonomous financing"->{
    Cell[5711, 194, 489, 12, 99, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"autonomous financing", "b:11"}]},
  "b:12"->{
    Cell[6311, 216, 229, 6, 89, "Section",
      CellTags->{"b:12", "c:5"}],
    Cell[6543, 224, 922, 22, 139, "Text",
      CellTags->"b:12"],
    Cell[7490, 250, 475, 12, 114, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"financing based on market values", "b:12"}],
    Cell[7968, 264, 72, 2, 43, "Output",
      CellTags->"b:12"]},
  "c:5"->{
    Cell[6311, 216, 229, 6, 89, "Section",
      CellTags->{"b:12", "c:5"}]},
  "financing based on market values"->{
    Cell[7490, 250, 475, 12, 114, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"financing based on market values", "b:12"}]},
  "b:13"->{
    Cell[8089, 272, 222, 5, 89, "Section",
      CellTags->{"b:13", "c:6"}],
    Cell[8314, 279, 706, 15, 139, "Text",
      CellTags->"b:13"],
    Cell[9045, 298, 1503, 33, 192, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"financing based on book values", "b:13"}],
    Cell[10551, 333, 72, 2, 33, "Output",
      CellTags->"b:13"]},
  "c:6"->{
    Cell[8089, 272, 222, 5, 89, "Section",
      CellTags->{"b:13", "c:6"}]},
  "financing based on book values"->{
    Cell[9045, 298, 1503, 33, 192, "Input",
      CellGroupingRules->"InputGrouping",
      CellTags->{"financing based on book values", "b:13"}]},
  "b:14"->{
    Cell[10672, 341, 175, 4, 79, "Section",
      CellTags->{"b:14", "c:7"}],
    Cell[10850, 347, 659, 14, 125, "Text",
      CellTags->"b:14"],
    Cell[11534, 365, 557, 10, 100, "Input",
      CellTags->{"financing based on cash flow-debt ratio", "b:14"}],
    Cell[12094, 377, 72, 2, 33, "Output",
      CellTags->"b:14"]},
  "c:7"->{
    Cell[10672, 341, 175, 4, 79, "Section",
      CellTags->{"b:14", "c:7"}]},
  "financing based on cash flow-debt ratio"->{
    Cell[11534, 365, 557, 10, 100, "Input",
      CellTags->{"financing based on cash flow-debt ratio", "b:14"}]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"b:8", 13474, 416},
  {"c:1", 13626, 421},
  {"b:9", 13715, 424},
  {"c:2", 14000, 432},
  {"parameter of the model", 14106, 435},
  {"b:10", 14253, 439},
  {"c:3", 14611, 449},
  {"the unlevered company", 14718, 452},
  {"b:11", 14867, 456},
  {"c:4", 15224, 466},
  {"autonomous financing", 15330, 469},
  {"b:12", 15478, 473},
  {"c:5", 15848, 483},
  {"financing based on market values", 15966, 486},
  {"b:13", 16127, 490},
  {"c:6", 16497, 500},
  {"financing based on book values", 16613, 503},
  {"b:14", 16773, 507},
  {"c:7", 17112, 516},
  {"financing based on cash flow-debt ratio", 17238, 519}
  }
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1776, 53, 406, 13, 172, "Section",
  CellTags->{"b:8", "c:1"}],
Cell[2185, 68, 232, 6, 47, "Text",
  CellTags->"b:8"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2454, 79, 203, 6, 89, "Section",
  CellTags->{"b:9", "c:2"}],
Cell[2660, 87, 433, 10, 82, "Text",
  CellTags->"b:9"],
Cell[3096, 99, 299, 9, 44, "Input",
  CellGroupingRules->"InputGrouping",
  CellTags->{"parameter of the model", "b:9"}]
}, Open  ]],

Cell[CellGroupData[{
Cell[3432, 113, 202, 5, 89, "Section",
  CellTags->{"b:10", "c:3"}],
Cell[3637, 120, 621, 17, 101, "Text",
  CellTags->"b:10"],

Cell[CellGroupData[{
Cell[4283, 141, 386, 11, 99, "Input",
  CellGroupingRules->"InputGrouping",
  CellTags->{"the unlevered company", "b:10"}],
Cell[4672, 154, 57, 2, 43, "Output",
  CellTags->"b:10"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[4778, 162, 216, 6, 89, "Section",
  CellTags->{"b:11", "c:4"}],
Cell[4997, 170, 689, 20, 120, "Text",
  CellTags->"b:11"],

Cell[CellGroupData[{
Cell[5711, 194, 489, 12, 99, "Input",
  CellGroupingRules->"InputGrouping",
  CellTags->{"autonomous financing", "b:11"}],
Cell[6203, 208, 59, 2, 43, "Output",
  CellTags->"b:11"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[6311, 216, 229, 6, 89, "Section",
  CellTags->{"b:12", "c:5"}],
Cell[6543, 224, 922, 22, 139, "Text",
  CellTags->"b:12"],

Cell[CellGroupData[{
Cell[7490, 250, 475, 12, 114, "Input",
  CellGroupingRules->"InputGrouping",
  CellTags->{"financing based on market values", "b:12"}],
Cell[7968, 264, 72, 2, 43, "Output",
  CellTags->"b:12"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[8089, 272, 222, 5, 89, "Section",
  CellTags->{"b:13", "c:6"}],
Cell[8314, 279, 706, 15, 139, "Text",
  CellTags->"b:13"],

Cell[CellGroupData[{
Cell[9045, 298, 1503, 33, 192, "Input",
  CellGroupingRules->"InputGrouping",
  CellTags->{"financing based on book values", "b:13"}],
Cell[10551, 333, 72, 2, 33, "Output",
  CellTags->"b:13"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[10672, 341, 175, 4, 79, "Section",
  CellTags->{"b:14", "c:7"}],
Cell[10850, 347, 659, 14, 125, "Text",
  CellTags->"b:14"],

Cell[CellGroupData[{
Cell[11534, 365, 557, 10, 100, "Input",
  CellTags->{"financing based on cash flow-debt ratio", "b:14"}],
Cell[12094, 377, 72, 2, 33, "Output",
  CellTags->"b:14"]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)