"""ir.py: Script that compares various Interest Rate term structure models.
A common model used in the financial industry for modelling the short rate (think overnight rate, but actually an infinitesimally short amount of time) is the Vasicek model. #
Although it is unlikely to perfectly fit the yield curve, it has some nice properties that make it a good model to work with.
The dynamics of the Vasicek model are describe below.
In this model, the parameters are constants, and the random motion is generated by the Q measure Brownian motion .
An important property of the Vasicek model is that the interest rate is mean reverting to , and the tendency to revert is controlled by .
Also, this process is a diffusion process, hence Markovian, which will lead to some nice closed form formulas.
Finally, the future value of the interest rate is normally distributed with the distribution .
"""
__author__ = "Alexander Baker"
__copyright__ = "Copyright 2012, The Hatch Project"
__credits__ = ["Alexander Baker"]
__license__ = "GPL"
__version__ = "1.0.1"
__maintainer__ = "Alexander Baker"
__email__ = "baker.alexander@gmail.com"
__status__ = "Production"
import numpy as np
from numpy.random import standard_normal
from numpy import array, zeros, sqrt, shape
from pylab import plot, title, xlabel, ylabel, show
r0 = 0.05 # current UK funding rate
theta = 0.10 # 1 % long term interest rate
k = 0.3
beta = 0.03
## simulate short rate paths
n = 10000 # MC simulation trials
T = 24. # total time
m = 100. # subintervals
dt = T/m # difference in time each subinterval
r = np.zeros(shape=(n, m), dtype=float) # matrix to hold short rate paths
for j in np.arange(0,n): # number of MC simulations
r[j,0] = r0
for i in np.arange(1,m): #trials per simulation
r[j,i] = r[j,i-1] + k*(theta-r[j,i-1])*dt + beta*sqrt(dt)*standard_normal();
#print j,i, r[j,i]
plot(np.arange(0, T, dt), r[j])
## plot paths
t = np.arange(0, T, dt)
rT_expected = theta + (r0-theta)*pow(np.e,-k*t)
rT_stdev = sqrt( pow(beta,2)/(2*k)*(1-pow(np.e,-2*k*t)))
print 'expected', rT_expected, 'std', rT_stdev
plot(t, rT_expected, '-+r')
plot(t, rT_expected+2*rT_stdev, '-b')
plot(t, rT_expected-2*rT_stdev, '-b')
plot(t, rT_expected+4*rT_stdev, '-g')
plot(t, rT_expected-4*rT_stdev, '-g')
print shape(t), shape(r)
title('Simulations %d Steps %d r0 %.2f alpha %.2f beta %.2f sigma %.2f' % (int(n), int(m), r0, k, theta, beta))
xlabel('steps')
ylabel('short term interest rate')
show()
#rT.stdev <- sqrt( beta^2/(2*k)*(1-exp(-2*k*t)))
#matplot(t, r[,1:10], type="l", lty=1, main="Short Rate Paths", ylab="rt")
#abline(h=theta, col="red", lty=2)
#lines(t, rT.expected, lty=2)
#lines(t, rT.expected + 2*rT.stdev, lty=2)
#lines(t, rT.expected - 2*rT.stdev, lty=2)
#points(0,r0)