%%% so means original, s_mean means mean value
function [s,s_mean] = MeanIntp(s,s_r1)

    s_mean = (s+s_r1)/2;

end