function y=Green(x)

y = log(cosh(abs(x)))/(log(cosh(1)));
