interpolate2l.m

来自「这是一个去马赛克工具软件」· M 代码 · 共 6 行

function result = Interpolate2L(a, b, r);
factor_ar = 1/( 1+ (a-r)^2 )^.5;
factor_rb = 1/( 1+ (r-b)^2 )^.5;
result = (factor_ar * a + factor_rb * b ) / (factor_ar + factor_rb);