Solution de l' équation de Schrödinger, boîte 1 D

P Reinhardt, LCT, UPMC

f[x_,n_]:=n*n+Sin[n Pi x]
Plot[{f[x,1],f[x,2],f[x,3],f[x,4]},{x,0,1},PlotStyle->Thick]

Plot[{f[x,100]*f[x,100]},{x,0,1},PlotStyle->Thick]