ReverseDiscountPlusCertificate: Reverse Discount Plus Certificate valuation using pricing by...

In fCertificates: Basics of Certificates and Structured Products Valuation

Description

values a Reverse Discount Plus Certificate using pricing by duplication

Usage

ReverseDiscountPlusCertificate(S, S0, X, B, Time, r, r_d, sigma, 
  ratio = 1, barrierActive = TRUE)

Arguments

S	the asset price, a numeric value.
S0	the underlying start price at issue date
X	the exercise price, a numeric value.
B	the barrier ("Sicherheitslevel"), a numeric value.
Time	time to maturity measured in years
r	the annualized rate of interest, a numeric value; e.g. 0.25 means 25% pa.
r_d	the annualized dividend yield, a numeric value; e.g. 0.25 means 25% pa.
sigma	the annualized volatility of the underlying security, a numeric value; e.g. 0.3 means 30% volatility pa.
ratio	ratio, number of underlyings one certificate refers to, a numeric value; e.g. 0.25 means 4 certificates refer to 1 share of the underlying asset
barrierActive	flag whether barrier is active or not

Details

A Reverse Discount Plus Certificate is composed of

1. a short position in stock with reference price S0 (i.e. a Put with strike S0)

2. a short put with strike price X

3. a up-and-out-call

Value

the price (scalar or vector) of the Reverse Discount Plus Certificate

Author(s)

Stefan Wilhelm [e-mail]

See Also

similar structures: ReverseDiscountCertificate

Examples

##
ReverseDiscountPlusCertificate(S=100, S0=100, X=90, B=110, Time=1, 
  r=0.045, r_d=0, sigma=0.4, ratio = 1, barrierActive = TRUE)
  
## payoff diagram
S <- seq(0, 150)
p <- ReverseDiscountPlusCertificate(S, S0=100, X=90, B=110, Time=1, 
  r=0.045, r_d=0, sigma=0.4, ratio = 1, barrierActive = TRUE)
p2 <- ReverseDiscountPlusCertificate(S, S0=100, X=90, B=110, Time=0, 
  r=0.045, r_d=0, sigma=0.4, ratio = 1, barrierActive = FALSE)
p3 <- ReverseDiscountPlusCertificate(S, S0=100, X=90, B=110, Time=0, 
  r=0.045, r_d=0, sigma=0.4, ratio = 1, barrierActive = TRUE)  
plot(S, p,  type="l", col="red", ylim=range(p, p2, na.rm=TRUE), 
  xlab="underlying price", ylab="payoff", main="Reverse Discount Plus Pro")
lines(S, p2, col="blue", lty=2)
lines(S, p3, col="blue")    
abline(v=c(90, 110), lty=2, col="gray80")  

Example output

Loading required package: fBasics
Loading required package: timeDate
Loading required package: timeSeries
Loading required package: fOptions
Loading required package: fExoticOptions
[1] 83.76299

fCertificates documentation built on May 1, 2019, 10:09 p.m.