Re: Re: Problem with Syntax in Mathematica Summation
- To: mathgroup at smc.vnet.net
- Subject: [mg84425] Re: [mg84419] Re: Problem with Syntax in Mathematica Summation
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 23 Dec 2007 04:37:09 -0500 (EST)
- Reply-to: hanlonr at cox.net
Needs["HypothesisTesting`"]; The function NormalPValue returns a rule rather than a value NormalPValue[x] OneSidedPValue -> (1/2)*(1 - Erf[Abs[x]/Sqrt[2]]) Consequently, in an expression it would be used in a form similar to (OneSidedPValue /. NormalPValue[x]) (1/2)*(1 - Erf[Abs[x]/Sqrt[2]]) (TwoSidedPValue /. NormalPValue[x, TwoSided -> True]) 1 - Erf[Abs[x]/Sqrt[2]] Bob Hanlon ---- magma <maderri2 at gmail.com> wrote: > There were a couple of syntax errors: > in the summation with ebitda and in kinv0 > Below is the corrected code. > > wacc = ((rf + \[Beta] ((1 + tax) (d/(d + e))) (rf - rm)) (e/(d + > > e))) ((rf + (1 - (NormalPValue[(Log[(d/(d + e))]/((d/(d + > e)) - 1)) (1/ > stde)])) r) (d/(d + e))) > value = \!\( > \*UnderoverscriptBox[\(\[Sum]\), \(t = 1\), \(\[Infinity]\)] > \*FractionBox[\(( > \*SubscriptBox[\(ebitda\), \(t\)]\ \((1 - tax)\))\), \(\((1 + wacc)\)^ > t\)]\) + \!\( > \*UnderoverscriptBox[\(\[Sum]\), \(t = 1\), \(\[Infinity]\)] > \*FractionBox[\(\(( > \*SubscriptBox[\(dep\), \(t\)])\)\ tax\), \(\((1 + wacc)\)^ > t\)]\) - \!\( > \*UnderoverscriptBox[\(\[Sum]\), \(t = 1\), \(n\)] > \*FractionBox[\(\(( > \*SubscriptBox[\(d\), \(0\)] - > \*UnderoverscriptBox[\(\[Sum]\), \(t = 1\), \(n\)] > \*SubscriptBox[\(d\), \((t - 1)\)])\) \((rf + 1 - \((NormalPValue[\(( > \*FractionBox[\(Log[\((d/\((d + e)\))\)]\), \(\((d/\((d + e)\))\) - > 1\)])\) \(( > \*FractionBox[\(1\), \(stde\)])\)])\))\) > r \((1 - tax)\)\), \(\((1 + wacc)\)^t\)]\) - \!\( > \*UnderoverscriptBox[\(\[Sum]\), \(t = 1\), \(n\)] > \*FractionBox[\( > \*SubscriptBox[\(d\), \(0\)]/n\), \(\((1 + wacc)\)^t\)]\) - Subscript[ > kinv, 0] >