Question: Numerical Integral solving time

Hey guys, 

Its my first post, so please be lenient. I have done an internship at a theoretical physics department and part of my work was to plot a particular only numerically solvable integral over time (problem from Quantum Mechanics). I wrote a maple code and made it work, but it only produces results for certain values and even for those it takes more than one hour to plot one graph. Since this is my first big project written in maple, i assume, that the code i have written is far from perfect and the long computational times might be due to that as well. So what i am asking for is for someone to take a look at it and figure out whether the computation speed can be increased and the code simplified. I need this is order to tackle more complicated problems. I have uploaded my file so you can have a look at it. Also if it should help someone i can upload the paper i have written on the subject.

Thanks in Advance!

 

Foot

 

QD_TH_TI_103.mw

Please Wait...