function y=Runge(S1,S2)
y=abs(S1-S2)/15;