Mathematica12で計算させる方法を教えて下さい

Question

前提・実現したいこと

現在、mathematica9を使用中ですが、ver12の評価版を試してみました。
つきましては、以下を教えて下さい。

下記のプログラムは、ver9で作ったものです。（U235とU238の核分裂のエネルギーを求めるものです。）
ver9では何時間もかけて「FindMinimum」の部分の計算するのですが、ver12の評価版だと計算してくれません。
ver12で、コマンド等を変更させて、添付のプログラムを計算させることは可能でしょうか？

発生している問題・エラーメッセージ

FindMinimum::fmgz: Encountered a gradient that is effectively zero. The result returned may not be a minimum; it may be a maximum or a saddle point.

該当のソースコード

https://etctransform.web.fc2.com/newpage3.html

試したこと

mathematica9では、ソースコードの通り、計算します。

補足情報（FW/ツールのバージョンなど）

Windows10を使用しております。

Comments

[unoSSkR]

Offer someone to analyze your code and resolve the problem with money. Beyond the scope of QA.

[mathe2020]

ご回答有難う御座います。

修正部分は、「FindMinimum」だけなのですが、添付したコードが長すぎました。

[mathe2020]

考えました。
仰る通りで御座います。無料でお願いするのは厚かまし過ぎますね。

Answer 1

販売代理店殿に相談してみました。
そちらで、回答を待ちます。