I have this very long nasty expression.
The last command in the notebook is what I want to finish off with.
The command before that is ComplexExpand[psi2.psi2]
and it spits out this long solution. I want to take the absolutle value squared of that value but I cannot find no other easy way of doing so, does anyone know of any commands? ComplexExpand separates the real and the imaginary so I can just collect those entries and square them. When I put them in the last command it takes hours to evaluate. Does anyone know how I can simplify this with Mathematica?
Attachment: wtf.nb, URL: ,