Wolfram Computation Meets Knowledge

How do I use FinancialDerivative with FinancialData?

You can combine the functions FinancialData and FinancialDerivative to price derivatives. For example, to calculate the price of an American put option on the S&P 500, collect the index’s closing values.

sp500data = FinancialData["SP500", {{2011, 1, 20}, {2011, 4, 23}}];

FinancialData returns a list of pairs. Each pair represents a date and the closing value of the index on that date. Using FinancialDerivative, you can write a function that calculates the value of an example option on sp500data.

americanPutPrice[{date_, currentPrice_}] :=
     FinancialDerivative[{"American", "Put"}, {"StrikePrice" -> 1190,
        "Expiration" -> {2011, 9, 20}}, {"CurrentPrice" -> currentPrice,
        "Dividend" -> 0.03, "Volatility" -> 0.4, "InterestRate" -> 0.05,
        "ReferenceTime" -> date}]

Mapping the price function onto the data returns a list of the values for the option on each day.

putPrice = Map[americanPutPrice, sp500]

This list, however, does not contain any of the dates that are in the original data. Financial plotting functions such as RenkoChart need these dates to work. Each element in their input must be a pair. The first value must be the date and the last value must be the price of the American option. Take the dates from the original data source by evaluating sp500[[All, 1] and interleave it with the list of option values using the Transpose function.

Transpose[{sp500[[All, 1]], putPrice}]

RenkoChart can use this as input.

 RenkoChart[Transpose[{sp500[[All, 1]], putPrice}]]

Is this article helpful?
Yes
No

Any comments?

Thank you for your feedback.

Submit

Contact Support

Whether you have a question about billing, activation or something more technical, we are ready to help you.

1-800-WOLFRAM (+1-217-398-0700 for international callers)

Customer Support

Monday–Friday
8am–5pm US Central Time

  • Product registration or activation
  • Pre-sales information and ordering
  • Help with installation and first launch

Advanced Technical Support (for eligible customers)

Monday–Thursday
8am–7pm US Central Time

Friday
8:30–10am & 11am–5pm US Central Time

  • Priority technical support
  • Product assistance from Wolfram experts
  • Help with Wolfram Language programming
  • Advanced installation support