Question: 10 minutes to evaluate an expression!

Dear all

I am using the Phyiscs package in Maple, and I have an expression with 6 Dirac-Kets and symbols infront that conform to selection rules. e.g.

alpha*(a + b)|E1> + beta*(a - b)|E2> + beta*(3a + b)|E3>  + alpha*(a + 4b)|E4> + beta*(9a - 6b)|E5> + alpha*(3a + 6b)|E6>

However when I apply the command;


in the following lines it takes 10 minutes to evaluate!  Given that there are (2*2*6)^2 potential terms in this expansion it is not surprising, but I was wondering if there was a method that would speed up the process.




Please Wait...