Novos Recursos do
Mathematica
8: Computações Financeiras Incorporadas
◄
anterior
|
próximo
►
Áreas de Aplicação
Controle avaliações numéricas
Compute o valor superficial crítico de uma opção de "put" Americana usando um número de pontos de grade customizado.
In[1]:=
X
ListPlot[{#, FinancialDerivative[{"American", "Put"}, {"StrikePrice" -> 40.00, "Expiration" -> 3}, {"InterestRate" -> EffectiveInterest[.05, 0], "Volatility" -> 0.26, "CurrentPrice" -> FinancialData["MSFT"], "Dividend" -> 0.07, "ReferenceTime" -> #}, "CriticalValue", "GridSize" -> {1000, 50}]} & /@ Range[0, 3, 0.05], Joined -> True, InterpolationOrder -> 0, Filling -> Bottom, Axes -> False, Frame -> True, PlotRange -> All]
Out[1]=