Ceny opcií sa dajú pozrieť online na yahoo finance, alebo na google finance. Symboly opcie majú svoj štandardný tvar, v ktorom sú uvedené všetky potrebné detaily opcie. Tento tvar je možné použiť aj pri automatizovanom načítavaní dát.
Vytvorte funkciu, ktorá vráti payoff call a put opcie s exspiračnou cenou \(E\), ak je cena podkladového aktíva \(S\)
CallPayoff <- function(s, e)
{
# TODO
}
PutPayoff <- function(s, e)
{
# TODO
}
Vyskúšajte pre \(S \in [200, 300]\) a \(E=250\):
s <- seq(200, 300, length.out=1001)
e <- 250
plot(s, PutPayoff(s, e), "l")
Často portfólio obsahuje viacero opcií. V tom prípade hovoríme o opčných stratégiách. Stratégiu volí investor podľa svojich očakávaní o budúcom vývine ceny podkladového aktíva.
Viac o stratégiách sa môžete dočítať napríklad na portáli The Options Guide.
Pozrite si nasledujúce funkcie, ktoré vypočítajú profit troch rôznych stratégií. Zistite exspiračné ceny jednotlivých opcií v stratégiách a ich ceny.
Profit1 <- function(s) {
call1 <- CallPayoff(s, 510)
call2 <- CallPayoff(s, 517.5)
return(14*((call1 - 36.4) + (-call2 + 29.55)))
}
Profit2 <- function(s) {
return (
8 * CallPayoff(s, 530) -
16 * CallPayoff(s, 550) +
8 * CallPayoff(s, 570) -
39.2)
}
Profit3 <- function(s) {
call510 <- CallPayoff(s, 510)
call550 <- CallPayoff(s, 550)
call570 <- CallPayoff(s, 570)
5*((call510 - 36.4) - 2*(call550 - 12) + call570 - 6.3)
}
Vykreslite profit diagramy, tak ako na obrázku.
Doplňte výpočet, ktorý do grafu zakreslí, ktorá stratégia prináša pri danej cene akcie najvyšší zisk. Červená farba znamená, že všetci sú v strate, inak farba zodpovedá farbe profit diagramu najziskovejšej stratégie.
s <- seq(500, 600, length.out=101)
# TODO
Investor očakáva, že cena podkladového aktíva bude v čase exspirácie okolo hodnoty \(E = 100\). Od svojej stratégie navyše požaduje aby mala zdola ohraničený profit. Zvolil preto stratégiu long butterfly, ktorej profit je znázornený na obrázku:
Nájdite kombinácie call a put opcií, ktoré majú nasledovné payoffy:
Ak má nejaké portfólio profit, ktorý nadobúda iba nezáporné hodnoty, ide o arbitráž: kúpou tohto portfólia s istotou nič nestratím a prinajlepšom niečo získam.
Podľa princípu no arbitrage sa dá napr. ukázať, že cena call opcie musí byť konvexnou funkciou exspiračnej ceny.
Uvažujme nasledujúce ceny put opcií s rovnakým časom exspirácie a na rovnaké podkladové aktívum:
exspiračná cena | cena put opcie |
---|---|
20 | 10 |
25 | $$12 |
40 | 15 |
e <- c(20, 25, 40)
price <- c(10, 12, 15)
plot(e, price, pch=19, xlab="Exspiračná cena", ylab="Cena opcie")
Ukážte že portfólio \(+1 Call - 1Put\) má payoff $S-E$, ak sú obe opcie na to isté podkladové aktívum a majú rovnaký čas exspirácie. Čo z toho vieme usúdiť o vzťahu ceny \(Put\) a \(Call\)?
Viac úloh na precvičenie môžete nájsť v archíve cvičení
Úlohu vypracujte samostatne alebo v skupinkách najviac 3 ľudí.
Vaše riešenie odovzdajte mailom s predmetom FD 2023 – nick , kde nick je vami zvolená prezývka skupiny. Riešenie treba odovzdať do 26.02.2023.
Podľa Itôvej lemy platí \(dw_t^2 = dt\). Ukážeme, že podobné tvrdenie platí aj pre diskrétny časový krok, aspoň pre strednú hodnotu.
Označme \(\Delta w\) zmenu Wienerovho procesu za časový interval dĺžky \(\Delta t\): \(\Delta w_t = w_{t + \Delta t} - w_t\).
Uvažujme proces daný stochastickou diferenciálnou rovnicou: \[ dr_t = \kappa (\theta - r_t)\, dt + \sigma\, dw_t \]
Aplikujme strednú hodnotu na stochastickú diferenciálnu rovnicu: \[ \begin{align*} \mathbb E[dr_t] &= \mathbb E[\kappa (\theta - r_t)\, dt + \sigma\, dw_t] \\ d\mathbb E[r_t] &= \kappa (\theta - \mathbb E[r_t])\, dt + \sigma \mathbb E[dw_t] \end{align*} \] Stredná hodnota \(dw_t\) je rovná nule. Ak označíme \(f(t) := \mathbb E[r_t]\), dostávame diferenciálnu rovnicu pre strednú hodnotu: \[ df(t) = \kappa (\theta - f(t))\, dt \] Vyriešte túto diferenciálnu rovnicu s počiatočnou podmienkou \(f(0) = r_0\). Aká je limitná stredná hodnota tohto procesu, t.j. \[ \lim_{t\to\infty} \mathbb E[r_t] \]
Nájdite diferenciál pre proces \(s_t := r_t^2\). Odvoďte diferenciálnu rovnicu pre \(\mathbb E[s_t]\) a nájdite jej riešenie. Pomocou toho určte disperziu procesu \(r_t\) v čase \(t\).
Priraďte hodnoty parametrov k trajektóriám na obrázku:
Návod: Pomôžte si simuláciou pomocou metódy Euler-Marayuma.
Dokážte nezápornosť Ornstein-Uhlenbeckovho procesu ak \(\theta > 0\) a \(r_0 \geq 0\). Návod: Ak \(r_0 \geq 0\) a pre nejaké \(t_1\) platí \(r_{t_1} < 0\), potom musí existovať také \(t_0\) že \(r_{t_0} = 0\). Zdôvodnite prečo. Aký je prírastok procesu \(dr_{t_0}\) v čase \(t_0\)?
Zdôvodnite prečo pre proces daný SDR \[ dX_t = (3X_t - X_t^3)\, dt + dw_t \] s počiatočnou podmienkou \(X_0 = x_0\) neplatí diferenciálna rovnica pre strednú hodnotu v tvare \[ \frac{df(t)}{dt} = 3f(t) - f^3(t) \] s počiatočnou podmienkou \(f(0) = x_0\).
Pozrite si ceny opcií na podkladové aktívum Taiwan Semiconductor Manufacturing Company Limited s dátumom exspirácie 31.03.2023.
Vytvorte portfólio, ktoré:
Kupovať môžete za cenu v stĺpci Bid a predávať za cenu v stĺpci Ask
Hodnotenie:
Úlohu vypracujte samostatne alebo v skupinkách najviac 3 ľudí.
Odovzdať treba:
nick <- function(s)
, kde
nick
je vami zvolená prezývka. pod ktorou budú zverejnené
výsledky. Funkcia vracia profit vašej stratégie, ak je cena podkladového
aktíva v čase exspirácie \(S\) a kreslí
profit diagram.Vaše riešenie odovzdajte mailom s predmetom FD 2023 – nick do 26.02.2023.