Jak zawsze, najpierw musimy dolaczyc do globalnej zmiennej $Path siezke prowadzaca do folderu Finance.

AppendTo[$Path, "/Users/andrzej/Documents/Work/Finance"];

Czesto wygodnie jest takze dolaczec sciezke do folderuy polozonego o jedno miejsce wyzej w hierarchii.

AppendTo[$Path, "/Users/andrzej/Documents/Work"];

Teraz mozemy zaladowac nasz pakiet Min:

<< Main`

Sprawdzamy jakie sa w nim zdefiniowane funkcje:

Names["Finance`Main`*"]

Mozemy przeczytac co robi funkcja Security:

?Security

Definiujemy nowa security GeneralMotors:

GeneralMotors = Security[0.3, 1, 23, 0.1]

Obliczamy wartosc europejskie opcji kupna. Uzywamy metody Blacka-Scholesa. Zauwazmy ze nazwa Method z pakietu Introduction zostala zmineiona na method (z malej litery) bo Mathod juz istnieje w Mathematica.

value[europeanCall[3, 23, GeneralMotors], 
      method -> analytic[]]

value[europeanCall[3, 23, GeneralMotors], 
      method -> monteCarlo[300, 10000]]

A teraz obliczamy to samo uzywajac metody wielominaowej z 200 krokami.

value[europeanCall[3, 23, GeneralMotors], 
      method -> binomial[200]]

Jesli nie precyzujemy opcji method to analityczna jest uzywana automatycznie.

value[europeanCall[3, 23, GeneralMotors]]

Po zaladowaniu pakiet zaklada ze RateOfInterest jest 0.

RateOfInterest

ZMinimy go na 0.1

RateOfInterest = 0.1;

Wartsc opcji ulega zminie:

value[europeanCall[3, 23, GeneralMotors]]