SLIDE 94 Exotic derivatives - Barrier options
A numerical solution - a simple code in the software Mathematica
b = 0.7; alfa = 0.1; beta = 0.05; X = 40; sigma = 0.4; r = 0.04; d = 0; T = 1; xmax = 2; Bariera[t_] := X b Exp[-alfa (T - t)]; Rabat[t_] := X (1 - Exp[-beta(T - t)]); PayOff[x_] := X*If[b Exp[x] - 1 > 0, b Exp[x] - 1, 0]; riesenie = NDSolve[{ D[w[x, tau], tau] == (sigma^2/2)D[w[x, tau], x, x] + (r - d - sigma^2/2 - alfa )* D[w[x, tau], x]
w[x, 0] == PayOff[x], w[0, tau] == Rabat[T - tau], w[xmax, tau] == PayOff[xmax]}, w, {tau, 0, T}, {x, 0, xmax} ]; w[x_, tau_] := Evaluate[w[x, tau] /. riesenie[[1]] ]; Plot3D[w[x, tau], {x, 0, xmax}, {tau, 0, T}]; V[S_, tau_] := If[S > Bariera[T - tau], w[ Log[S/Bariera[T - tau]], tau], Rabat[T - tau] ]; Plot[ {V(S,0.2 T],V(S,0.4 T], V(S,0.6 T], V(S,0.8 T], V(S,T]}, {S,20,50}]; Lectures by D. ˇ Sevˇ coviˇ c, Comenius University, Bratislava, Slovak republic Analytical and numerical methods for pricing financial derivatives