Mathematica12で計算させる方法

Question

添付の２つのMathematicaプログラムは、同じものです。
・M9は、Mathematica9で実行させたものです。
・M12は、Mathematica12で実行させたものです。
添付の通り、計算結果が異なります。

M9は精度は低いですが計算します。
M12は計算しません。
すなわち、Mathematica9では5分程「FindMinimum」の部分の計算するのですが、Mathematica12だと計算してくれません。
Mathematica12で、コマンド等を変更させて、Mathematica9と同じように計算させることは可能でしょうか？

添付は以下のHPにあります。

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

Windows10を使用しております。