Búsqueda del valor de una opción de compra europea
Encuentre el valor de una opción de vainilla europea si el precio del activo subyacente y el precio de ejecución son ambos $100, la tasa libre de riesgo es del 6%, la volatilidad del activo subyacente es del 20%, y el período de vencimiento es de 1 año, usando el modelo de Black–Scholes
In[1]:=
TraditionalForm[BlackScholesModel = {-(r c[t, s]) + r s \!\(
\*SubscriptBox[\(\[PartialD]\), \({s}\)]\(c[t, s]\)\) +
1/2 s^2 \[Sigma]^2 \!\(
\*SubscriptBox[\(\[PartialD]\), \({s, 2}\)]\(c[t, s]\)\) + \!\(
\*SubscriptBox[\(\[PartialD]\), \({t}\)]\(c[t, s]\)\) == 0,
c[T, s] == Max[s - k, 0]}]Out[1]//TraditionalForm=
Resuelva el problema de valor de límite.
In[2]:=
(dsol = c[t, s] /.
DSolve[BlackScholesModel, c[t, s], {t, s}][[
1]]) // TraditionalFormOut[2]//TraditionalForm=
Calcule el valor de la opción de vainilla europea.
In[3]:=
dsol /. {t -> 0, s -> 100, k -> 100, \[Sigma] -> 0.2, T -> 1,
r -> 0.06}Out[3]=
Compare con el valor dado por la función FinancialDerivative.
In[4]:=
FinancialDerivative[{"European", "Call"}, {"StrikePrice" -> 100.00,
"Expiration" -> 1}, {"InterestRate" -> 0.06, "Volatility" -> 0.2 ,
"CurrentPrice" -> 100}]Out[4]=
