If it is possible I would need help for a command in Mathematica that I do not understand how it works.
In particular my tutor gave me an old Mathematica file(2005) to solve a differential equation ( see attachment till page 6).
I try to use it, but as you can see I obtain different results ( see attachment from page 7). I think maybe something is changed in the NDSolve command. Could you please tell me if and how I can obtain the correct results?
Thank you for your help and time,
Attachment: Code.pdf, URL: ,