Integrate[Exp[-(s^2/2)]*Cosh[s], {s, -Infinity, Infinity}] は、 s=seq(-5,5,,1000) plot(s,exp(-log(2)-2*log(cosh(s))),xlim=c(-5,5),ylim=c(0,0.8),type="l") par(new=T) plot(s,(1/sqrt(2))*exp(-sqrt(2)*abs(s)),xlim=c(-5,5),ylim=c(0,0.8),type="l…