public double Rdiff(IModelParam param)
{
CPHParam v = param as CPHParam;
double o = NMath.Abs(omega - v.omega) / v.omega;
double a = Blas.Rdiff(ndim, alpha, v.alpha);
double b = Blas.Rdiff(ndim, rate, v.rate);
return(NMath.Max(o, a, b));
}
public double Rdiff(IModelParam other)
{
OriginalParam v = other as OriginalParam;
return(Blas.Rdiff(n, param, v.param));
}