protected virtual EstimationResult BuildEstimate(Scalar spotPrice, CurveMarketData interestDataSet, CallPriceMarketData callDataSet, EquityCalibrationData equityCalData, SolutionInfo solution)
{
string[] names = new string[] { "S0", "kappa", "theta", "sigma", "rho", "V0" };
Vector param = new Vector(6);
param[0] = spotPrice.Value;
param[Range.New(1, 5)] = solution.x;
var result = new EstimationResult(names, param);
// In the following the two function describing the ZR and dividend yields are created
//Matrix zerorate = new Matrix(interestDataSet.Durations.Length, 2);
//zerorate[Range.All, 0] = interestDataSet.Durations;
//zerorate[Range.All, 1] = interestDataSet.Values;
//Matrix dividendYield = new Matrix(equityCalData.MaturityDY.Length, 2);
//dividendYield[Range.All, 0] = equityCalData.MaturityDY;
//dividendYield[Range.All, 1] = equityCalData.DividendYield;
Matrix zerorate = new Matrix((equityCalData.zrFunc as PFunction).Expr);
//Matrix dividendYield = new Matrix((equityCalData.dyFunc as PFunction).Expr);
Matrix dividendYield = ToMatrix(IstantaneousDividendYield(equityCalData));
result.Objects = new object[2];
result.Objects[0] = zerorate;
result.Objects[1] = dividendYield;
result.Fit = solution.obj;
Console.WriteLine(result);
return(result);
}
private EstimationResult FairmatEstimate(CurveMarketData discountingCurve, CallPriceMarketData Hdataset)
{
EquityCalibrationData HCalData = new EquityCalibrationData(Hdataset, discountingCurve);
//HCalData.Setup(Hdataset, discountingCurve);
bool hasArbitrage = HCalData.HasArbitrageOpportunity(10e-2);
if (hasArbitrage)
{
Console.WriteLine("Market data contains arbitrage opportunity");
}
this.r = new DVPLDOM.PFunction(discountingCurve.Durations, discountingCurve.Values);
this.q = HCalData.dyFunc as PFunction;
//this.q.Expr = (double[,])ArrayHelper.Concat(HCalData.MaturityDY.ToArray(), HCalData.DividendYield.ToArray());
this.r.Parse(null);
this.q.Parse(null);
Vector locVolMat, locVolStr;
//IFunction fittedSurface = FitImplVolModel(Hdataset);
//Matrix locVolMatrix = LocVolMatrixFromImpliedVol(Hdataset, fittedSurface, out locVolMat, out locVolStr);
CallPriceSurface fittedSurface = CallPriceSurface.NoArbitrageSurface(HCalData);
Matrix locVolMatrix = LocVolMatrixFromCallPrices(Hdataset, fittedSurface, out locVolMat, out locVolStr);
Console.WriteLine(locVolMatrix);
// Create dupire outputs.
PFunction2D.PFunction2D localVol = new PFunction2D.PFunction2D(locVolMat, locVolStr, locVolMatrix);
localVol.Parse(null);
string[] names = new string[] { "S0" };
Vector param = new Vector(1);
param[0] = Hdataset.S0;
EstimationResult result = new EstimationResult(names, param);
//result.Objects = new object[3];
result.Objects = new object[4];
result.Objects[0] = this.r;
result.Objects[1] = this.q;
result.Objects[2] = localVol;
result.Objects[3] = fittedSurface;
//Console.WriteLine("r = " + HCalData.Rate.ToString());
//Console.WriteLine("q = " + HCalData.DividendYield.ToString());
return(result);
}
public EstimationResult Estimate(System.Collections.Generic.List <object> marketData, IEstimationSettings settings = null, IController controller = null, System.Collections.Generic.Dictionary <string, object> properties = null)
{
CurveMarketData discountingCurve = (CurveMarketData)marketData[0];
CallPriceMarketData Hdataset = (CallPriceMarketData)marketData[1];
//gets the settings
calibrationSettings = settings as DupireCalibrationSettings;
//return this.FairmatEstimate(discountingCurve, Hdataset);
// Removed quantlib estimate, it does not work correctly
switch (calibrationSettings.LocalVolatilityCalculation)
{
case LocalVolatilityCalculation.Method1:
return(this.FairmatEstimate(discountingCurve, Hdataset));
case LocalVolatilityCalculation.QuantLib:
return(QuantLibEstimate(discountingCurve, Hdataset));
default:
throw new NotImplementedException("Method not implemented");
}
}
protected override EstimationResult BuildEstimate(Scalar spotPrice, CurveMarketData interestDataSet, CallPriceMarketData callDataSet, EquityCalibrationData equityCalData, SolutionInfo solution)
{
string[] names = new string[] { "S0", "kappa", "theta", "sigma",
"rho", "V0", "r", "q" };
Vector param = new Vector(8);
param[0] = spotPrice.Value;
param[Range.New(1, 5)] = solution.x[Range.New(0, 4)];
param[6] = equityCalData.zrFunc.Evaluate(TheoreticalModelsSettings.ConstantDYRFMaturity);
if (impliedDividends)
{
param[7] = solution.x[Range.End];// equityCalData.dyFunc.Evaluate(TheoreticalModelsSettings.ConstantDYRFMaturity);
}
else
{
param[7] = DY(equityCalData);
}
var result = new EstimationResult(names, param);
result.Fit = HestonCallOptimizationProblem.avgPricingError;
Console.WriteLine(result);
return(result);
}
protected override EstimationResult BuildEstimate(Scalar spotPrice, CurveMarketData interestDataSet, CallPriceMarketData callDataSet, EquityCalibrationData equityCalData, SolutionInfo solution)
{
string[] names = new string[] { "S0", "kappa", "theta", "sigma",
"rho", "V0", "r", "q" };
Vector param = new Vector(8);
param[0] = spotPrice.Value;
param[Range.New(1, 5)] = solution.x[Range.New(0, 4)];
param[6] = equityCalData.zrFunc.Evaluate(TheoreticalModelsSettings.ConstantDYRFMaturity);
if (impliedDividends)
param[7] = solution.x[Range.End];// equityCalData.dyFunc.Evaluate(TheoreticalModelsSettings.ConstantDYRFMaturity);
else
param[7] = DY(equityCalData);
var result = new EstimationResult(names, param);
result.Fit = HestonCallOptimizationProblem.avgPricingError;
Console.WriteLine(result);
return result;
}
protected virtual EstimationResult BuildEstimate(Scalar spotPrice, CurveMarketData interestDataSet, CallPriceMarketData callDataSet, EquityCalibrationData equityCalData, SolutionInfo solution)
{
string[] names = new string[] { "S0", "kappa", "theta", "sigma", "rho", "V0" };
Vector param = new Vector(6);
param[0] = spotPrice.Value;
param[Range.New(1, 5)] = solution.x;
var result = new EstimationResult(names, param);
// In the following the two function describing the ZR and dividend yields are created
//Matrix zerorate = new Matrix(interestDataSet.Durations.Length, 2);
//zerorate[Range.All, 0] = interestDataSet.Durations;
//zerorate[Range.All, 1] = interestDataSet.Values;
//Matrix dividendYield = new Matrix(equityCalData.MaturityDY.Length, 2);
//dividendYield[Range.All, 0] = equityCalData.MaturityDY;
//dividendYield[Range.All, 1] = equityCalData.DividendYield;
Matrix zerorate = new Matrix((equityCalData.zrFunc as PFunction).Expr);
//Matrix dividendYield = new Matrix((equityCalData.dyFunc as PFunction).Expr);
Matrix dividendYield = ToMatrix(IstantaneousDividendYield(equityCalData));
result.Objects = new object[2];
result.Objects[0] = zerorate;
result.Objects[1] = dividendYield;
result.Fit = solution.obj;
Console.WriteLine(result);
return result;
}
private EstimationResult QuantLibEstimate(CurveMarketData discoutingCurve, CallPriceMarketData Hdataset)
{
EquityCalibrationData HCalData = new EquityCalibrationData(Hdataset, discoutingCurve);
bool hasArbitrage = HCalData.HasArbitrageOpportunity(10e-2);
if (hasArbitrage)
Console.WriteLine("Market data contains arbitrage opportunity");
this.r = new DVPLDOM.PFunction(discoutingCurve.Durations,discoutingCurve.Values);
this.q = HCalData.dyFunc as PFunction;
//this.r.Parse(null);
//this.q.Parse(null);
Hdataset.Volatility = new Matrix(Hdataset.CallPrice.R, Hdataset.CallPrice.C);
for (int i = 0; i < Hdataset.Volatility.R; i++)
{
double m=Hdataset.Maturity[i];
for (int j = 0; j < Hdataset.Volatility.C; j++)
{
if (Hdataset.CallPrice[i, j] > 0)
{
var bs = new Fairmat.Finance.BlackScholes(r.Evaluate(m), Hdataset.S0, Hdataset.Strike[j], 0, m, q.Evaluate(m));
//Hdataset.Volatility[i, j] = Hdataset.Volatility[i, j] * Hdataset.Volatility[i, j] * Hdataset.Maturity[i];
//Hdataset.Volatility[i, j] = bs.ImpliedCallVolatility(Hdataset.CallPrice[i, j]);
}
}
}
Console.WriteLine(Hdataset.Volatility);
IFunction impVol = FitImplVolModel(Hdataset);
Document doc = new Document();
ProjectROV prj = new ProjectROV(doc);
doc.Part.Add(prj);
prj.Symbols.Add(impVol);
// doc.WriteToXMLFile("impVol.fair");
int nmat = calibrationSettings.LocalVolatilityMaturities;
int nstrike = calibrationSettings.LocalVolatilityStrikes;
double lastMat = Hdataset.Maturity[SymbolicIntervalExtremes.End];
double lastStr = Hdataset.Strike[SymbolicIntervalExtremes.End];
Vector locVolMat = Vector.Linspace(Hdataset.Maturity[0], lastMat, nmat);
Vector locVolStr = Vector.Linspace(Hdataset.Strike[0], lastStr, nstrike);
Matrix locVolMatrix = new Matrix(nmat, nstrike);
double t, dt, forwardValue, y, dy, strike, strikep, strikem, w, wp, wm, dwdy;
double d2wdy2, den1, den2, den3, strikept, strikemt, wpt, wmt, dwdt;
Integrate integrate = new Integrate(this);
for (int i = 0; i < nmat; i++)
{
t = locVolMat[i];
forwardValue = Hdataset.S0 * Math.Exp(integrate.AdaptLobatto(0.0, t));
for (int j = 0; j < nstrike; j++)
{
strike = locVolStr[j];
y = Math.Log(strike / forwardValue);
dy = ((Math.Abs(y) > 0.001) ? y * 0.0001 : 0.000001);
// strike derivative
strikep = strike * Math.Exp(dy);
strikem = strike / Math.Exp(dy);
w = impVol.Evaluate(t, strike);
wp = impVol.Evaluate(t, strikep);
wm = impVol.Evaluate(t, strikem);
dwdy = (wp - wm) / (2.0 * dy);
d2wdy2 = (wp - 2.0 * w + wm) / (dy * dy);
// time derivative
if (t == 0.0)
{
dt = 0.0001;
strikept = strike * Math.Exp(integrate.AdaptLobatto(0.0, t + dt));
wpt = impVol.Evaluate(t + dt, strikept);
// if (wpt < w)
// Console.WriteLine("Decreasing variance at strike {0} between time {1} and time {2}", strike, t, t + dt);
dwdt = (wpt - w) / dt;
}
else
{
dt = Math.Min(0.0001, t / 2.0);
strikept = strike * Math.Exp(integrate.AdaptLobatto(t, t + dt));
strikemt = strike * Math.Exp(-integrate.AdaptLobatto(t - dt, t));
wpt = impVol.Evaluate(t + dt, strikept);
wmt = impVol.Evaluate(t + dt, strikemt);
//if (wpt < w)
// Console.WriteLine("Decreasing variance at strike {0} between time {1} and time {2}", strike, t, t + dt);
//if (w < wmt)
// Console.WriteLine("Decreasing variance at strike {0} between time {1} and time {2}", strike, t-dt, t);
dwdt = (wpt - wmt) / (2.0 * dt);
}
if (dwdy == 0.0 && d2wdy2 == 0.0)
locVolMatrix[i, j] = Math.Sqrt(dwdt);
else
{
den1 = 1.0 - y / w * dwdy;
den2 = 0.25 * (-0.25 - 1.0 / w + y * y / w / w) * dwdy * dwdy;
den3 = 0.5 * d2wdy2;
locVolMatrix[i, j] = dwdt / (den1 + den2 + den3);
//if (locVolMatrix[i,j] < 0.0)
// Console.WriteLine("Negative local vol^2 at strike {0} and time {1}; " +
// "Black vol surface is not smooth enought.", strike, t);
}
}
}
// Create dupire outputs.
Console.WriteLine(locVolMat);
PFunction2D.PFunction2D localVol = new PFunction2D.PFunction2D(locVolMat, locVolStr, locVolMatrix);
localVol.Parse(null);
string[] names = new string[] { "S0" };
Vector param = new Vector(1);
param[0] = Hdataset.S0;
EstimationResult result = new EstimationResult(names, param);
//result.Objects = new object[3];
result.Objects = new object[4];
result.Objects[0] = this.r;
result.Objects[1] = this.q;
result.Objects[2] = localVol;
result.Objects[3] = impVol;
//Console.WriteLine("r = " + HCalData.Rate.ToString());
//Console.WriteLine("q = " + HCalData.DividendYield.ToString());
return result;
}
private EstimationResult FairmatEstimate(CurveMarketData discountingCurve, CallPriceMarketData Hdataset)
{
EquityCalibrationData HCalData = new EquityCalibrationData(Hdataset, discountingCurve);
//HCalData.Setup(Hdataset, discountingCurve);
bool hasArbitrage = HCalData.HasArbitrageOpportunity(10e-2);
if (hasArbitrage)
Console.WriteLine("Market data contains arbitrage opportunity");
this.r = new DVPLDOM.PFunction(discountingCurve.Durations,discountingCurve.Values);
this.q = HCalData.dyFunc as PFunction;
//this.q.Expr = (double[,])ArrayHelper.Concat(HCalData.MaturityDY.ToArray(), HCalData.DividendYield.ToArray());
this.r.Parse(null);
this.q.Parse(null);
Vector locVolMat, locVolStr;
//IFunction fittedSurface = FitImplVolModel(Hdataset);
//Matrix locVolMatrix = LocVolMatrixFromImpliedVol(Hdataset, fittedSurface, out locVolMat, out locVolStr);
CallPriceSurface fittedSurface = CallPriceSurface.NoArbitrageSurface(HCalData);
Matrix locVolMatrix = LocVolMatrixFromCallPrices(Hdataset, fittedSurface, out locVolMat, out locVolStr);
Console.WriteLine(locVolMatrix);
// Create dupire outputs.
PFunction2D.PFunction2D localVol = new PFunction2D.PFunction2D(locVolMat, locVolStr, locVolMatrix);
localVol.Parse(null);
string[] names = new string[] { "S0" };
Vector param = new Vector(1);
param[0] = Hdataset.S0;
EstimationResult result = new EstimationResult(names, param);
//result.Objects = new object[3];
result.Objects = new object[4];
result.Objects[0] = this.r;
result.Objects[1] = this.q;
result.Objects[2] = localVol;
result.Objects[3] = fittedSurface;
//Console.WriteLine("r = " + HCalData.Rate.ToString());
//Console.WriteLine("q = " + HCalData.DividendYield.ToString());
return result;
}
private EstimationResult QuantLibEstimate(CurveMarketData discoutingCurve, CallPriceMarketData Hdataset)
{
EquityCalibrationData HCalData = new EquityCalibrationData(Hdataset, discoutingCurve);
bool hasArbitrage = HCalData.HasArbitrageOpportunity(10e-2);
if (hasArbitrage)
{
Console.WriteLine("Market data contains arbitrage opportunity");
}
this.r = new DVPLDOM.PFunction(discoutingCurve.Durations, discoutingCurve.Values);
this.q = HCalData.dyFunc as PFunction;
//this.r.Parse(null);
//this.q.Parse(null);
Hdataset.Volatility = new Matrix(Hdataset.CallPrice.R, Hdataset.CallPrice.C);
for (int i = 0; i < Hdataset.Volatility.R; i++)
{
double m = Hdataset.Maturity[i];
for (int j = 0; j < Hdataset.Volatility.C; j++)
{
if (Hdataset.CallPrice[i, j] > 0)
{
var bs = new Fairmat.Finance.BlackScholes(r.Evaluate(m), Hdataset.S0, Hdataset.Strike[j], 0, m, q.Evaluate(m));
//Hdataset.Volatility[i, j] = Hdataset.Volatility[i, j] * Hdataset.Volatility[i, j] * Hdataset.Maturity[i];
//Hdataset.Volatility[i, j] = bs.ImpliedCallVolatility(Hdataset.CallPrice[i, j]);
}
}
}
Console.WriteLine(Hdataset.Volatility);
IFunction impVol = FitImplVolModel(Hdataset);
Document doc = new Document();
ProjectROV prj = new ProjectROV(doc);
doc.Part.Add(prj);
prj.Symbols.Add(impVol);
// doc.WriteToXMLFile("impVol.fair");
int nmat = calibrationSettings.LocalVolatilityMaturities;
int nstrike = calibrationSettings.LocalVolatilityStrikes;
double lastMat = Hdataset.Maturity[SymbolicIntervalExtremes.End];
double lastStr = Hdataset.Strike[SymbolicIntervalExtremes.End];
Vector locVolMat = Vector.Linspace(Hdataset.Maturity[0], lastMat, nmat);
Vector locVolStr = Vector.Linspace(Hdataset.Strike[0], lastStr, nstrike);
Matrix locVolMatrix = new Matrix(nmat, nstrike);
double t, dt, forwardValue, y, dy, strike, strikep, strikem, w, wp, wm, dwdy;
double d2wdy2, den1, den2, den3, strikept, strikemt, wpt, wmt, dwdt;
Integrate integrate = new Integrate(this);
for (int i = 0; i < nmat; i++)
{
t = locVolMat[i];
forwardValue = Hdataset.S0 * Math.Exp(integrate.AdaptLobatto(0.0, t));
for (int j = 0; j < nstrike; j++)
{
strike = locVolStr[j];
y = Math.Log(strike / forwardValue);
dy = ((Math.Abs(y) > 0.001) ? y * 0.0001 : 0.000001);
// strike derivative
strikep = strike * Math.Exp(dy);
strikem = strike / Math.Exp(dy);
w = impVol.Evaluate(t, strike);
wp = impVol.Evaluate(t, strikep);
wm = impVol.Evaluate(t, strikem);
dwdy = (wp - wm) / (2.0 * dy);
d2wdy2 = (wp - 2.0 * w + wm) / (dy * dy);
// time derivative
if (t == 0.0)
{
dt = 0.0001;
strikept = strike * Math.Exp(integrate.AdaptLobatto(0.0, t + dt));
wpt = impVol.Evaluate(t + dt, strikept);
// if (wpt < w)
// Console.WriteLine("Decreasing variance at strike {0} between time {1} and time {2}", strike, t, t + dt);
dwdt = (wpt - w) / dt;
}
else
{
dt = Math.Min(0.0001, t / 2.0);
strikept = strike * Math.Exp(integrate.AdaptLobatto(t, t + dt));
strikemt = strike * Math.Exp(-integrate.AdaptLobatto(t - dt, t));
wpt = impVol.Evaluate(t + dt, strikept);
wmt = impVol.Evaluate(t + dt, strikemt);
//if (wpt < w)
// Console.WriteLine("Decreasing variance at strike {0} between time {1} and time {2}", strike, t, t + dt);
//if (w < wmt)
// Console.WriteLine("Decreasing variance at strike {0} between time {1} and time {2}", strike, t-dt, t);
dwdt = (wpt - wmt) / (2.0 * dt);
}
if (dwdy == 0.0 && d2wdy2 == 0.0)
{
locVolMatrix[i, j] = Math.Sqrt(dwdt);
}
else
{
den1 = 1.0 - y / w * dwdy;
den2 = 0.25 * (-0.25 - 1.0 / w + y * y / w / w) * dwdy * dwdy;
den3 = 0.5 * d2wdy2;
locVolMatrix[i, j] = dwdt / (den1 + den2 + den3);
//if (locVolMatrix[i,j] < 0.0)
// Console.WriteLine("Negative local vol^2 at strike {0} and time {1}; " +
// "Black vol surface is not smooth enought.", strike, t);
}
}
}
// Create dupire outputs.
Console.WriteLine(locVolMat);
PFunction2D.PFunction2D localVol = new PFunction2D.PFunction2D(locVolMat, locVolStr, locVolMatrix);
localVol.Parse(null);
string[] names = new string[] { "S0" };
Vector param = new Vector(1);
param[0] = Hdataset.S0;
EstimationResult result = new EstimationResult(names, param);
//result.Objects = new object[3];
result.Objects = new object[4];
result.Objects[0] = this.r;
result.Objects[1] = this.q;
result.Objects[2] = localVol;
result.Objects[3] = impVol;
//Console.WriteLine("r = " + HCalData.Rate.ToString());
//Console.WriteLine("q = " + HCalData.DividendYield.ToString());
return(result);
}
