以后就在这里写一些文字,主要是自己各种各样的学习笔记。尽管现在只是个ATM管理员,但勉强也算是金融行业从业者,内容以金融为主,如果学到些其他旁门左道的东西,也会考虑分享一下。
2014年12月20日
最近在学R语言,看过《R语言初学者指南》,看了约翰霍普金斯大学的 R语言编程
网络公开课(非常推荐这个课程,不过不建议刚开始接触R就看,对于没有编程基础的人还是有点难度,建议先看《R语言初学者指南》),感觉收获颇多,自己也手痒想写点什么东西,于是乎想写个期权定价函数。结果自己折腾了半天还是写不出来,最后只能把《EXCEL及VBA高级金融建模》里面的VBA函数照搬过来,发觉还是能用。不过R语言的循环着实不太好用,二叉树划分到5000步以上计算时间就已经相当长了,或者是算法还有优化的空间。
#欧式期权
EUOption <- function(iopt, S, X, r, q, tyr, sigma, nstep){
#iopt 1 call, -1 put
#S 现价
#X 行权价
#r 无风险利率
#q 红利收益率
#tyr 期限
#sigma 波动率(标准差)
#nstep 二叉树步数
delt <- tyr/nstep #每一步的期限
erdt <- exp(r*delt) #折现因子
ermqdt <- exp((r-q)*delt) #考虑股利效应
u <- exp(sigma*sqrt(delt))
d <- 1/u
P <- (ermqdt – d)/(u – d)
Pstar <- 1-P
vvec <- vector(length = nstep + 1)#例如9步二叉树最后会有10个结果
#算出最后一期全部可能的股价情形下的期权价值
for(i in 1 :nstep +1){
vvec[i] <- max(iopt*(S*u^(i-1)*d^(nstep +1 -i) – X),0)#注意iopt后面的括号,-1的时候为看跌期权,括号要把X也包进来
}
#倒推回去各个节点的价值
for(j in nstep : 1){
for(k in 1 : j)
{vvec[k] <- (P*vvec[k+1] + Pstar*vvec[k])/erdt}
}
vvec[1]
}
#可选择美式或者欧式期权的函数
OptionPrice <- function(iopt, iea, S, X, r, q, tyr, sigma, nstep){
#iopt 1 call, -1 put
#iea 1欧式,2为美式
#S 现价
#X 行权价
#r 无风险利率
#q 红利收益率
#tyr 期限
#sigma 波动率(标准差)
#nstep 二叉树步数
delt <- tyr/nstep #每一步的期限
erdt <- exp(r*delt) #折现因子
ermqdt <- exp((r-q)*delt) #考虑股利效应
u <- exp(sigma*sqrt(delt))
d <- 1/u
P <- (ermqdt – d)/(u – d)
Pstar <- 1-P
vvec <- vector(length = nstep + 1)#例如9步二叉树最后会有10个结果
#算出最后一期全部可能的股价情形下的期权价值
for(i in 1 :nstep +1){
vvec[i] <- max(iopt*(S*u^(i-1)*d^(nstep +1 -i) – X),0)}#注意iopt后面的括号,-1的时候为看跌期权,括号要把X也包进来
#美式期权#倒推回去各个节点的价值
for(j in nstep : 1){
for(k in 1 : j){
vvec[k] <- (P*vvec[k+1] + Pstar*vvec[k])/erdt
if(iea == 2){vvec[k] <- max(vvec[k],iopt*(S*u^(k-1)*d^(j-k) – X))}#和纯粹欧式不同,如总共9步,这里只需要算到第8步
}
}
vvec[1]
}