Getting the code of a Wolfram Demonstration

Hi,
I was looking for some graphs on WOLFRAM Demonstrations Project website
I was wondering anyone know’s where can i find Mathematica code to create graphs like these

https://demonstrations.wolfram.com/AnalyticSolutionsForDoubleDeltafunctionPotential/

https://demonstrations.wolfram.com/QuasiExactSolutionForADoubleWellPotential/

https://demonstrations.wolfram.com/NumerovSolutionsForSingleAndDoubleWellPotentials/

https://demonstrations.wolfram.com/DoubleDeltaFunctionScatteringPotential/

https://demonstrations.wolfram.com/ScatteringOverPotentialStep/

https://demonstrations.wolfram.com/SchroedingerEquationForAOneDimensionalDeltaFunctionPotential/

I have searched inside the web pages but files in there do not contain any code

If you downloaded the files and only see the Manipulate and no code, the code is probably hidden. Select all the cells and go to the Cell menu. Make sure all cells are open and make sure they’re all ungrouped.

Taking your first link as an example. Download the Source notebook to your desktop or your Wolfram Cloud, whichever is your preference:

Open the downloaded notebook and you will see the source.