//Richardson Extrapolation http://en.wikipedia.org/wiki/Richardson_extrapolation
//
// @param value * original value
// @param refined_value * with base times smaller intervals
// @param base * refinement factor of value
// @param power * order of scale
//@return
public static RealType RichardsonExtrapolation <RealType>(IAlgebraReal <RealType> algebra, RealType value, RealType refined_value, RealType base_value, RealType power)
{
RealType scale = algebra.Pow(base_value, power);
return(algebra.Divide(algebra.Subtract(algebra.Multiply(scale, refined_value), value), algebra.Subtract(scale, algebra.MultiplyIdentity)));
}