こんにちは、

＞Mathematicaにはデバッガはないの？
バグをとるのではなく、
①理論を本当に理解して正しい計算式をコードとして入力しているか
②Mathematicaでちゃんと答えを導出できるテクニックを持っているか
になると思います。
更に下記を計算してみました。
ＨＰのcompton　更に途中

もう一歩のような気がします。消えてほしい変数が残ってしまいます。
しかし、消えてほしい変数が消えても答えが間違っているかもしれませんが、