- Split input into 2 regimes
if (* (sqrt (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (sqrt (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (cos (/ K 2)) (* -2 J)))) < -1.7745940512370355e+308 or 1.7821538866056326e+308 < (* (sqrt (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (sqrt (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (cos (/ K 2)) (* -2 J))))
Initial program 59.8
\[\left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\]
Initial simplification59.8
\[\leadsto \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^* \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot J\right)\right)\]
Taylor expanded around inf 33.2
\[\leadsto \color{blue}{-1 \cdot U}\]
Simplified33.2
\[\leadsto \color{blue}{-U}\]
if -1.7745940512370355e+308 < (* (sqrt (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (sqrt (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (cos (/ K 2)) (* -2 J)))) < 1.7821538866056326e+308
Initial program 11.2
\[\left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\]
Initial simplification0.2
\[\leadsto \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^* \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot J\right)\right)\]
- Using strategy
rm Applied associate-*r*0.1
\[\leadsto \color{blue}{\left(\sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^* \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \left(-2 \cdot J\right)}\]
- Recombined 2 regimes into one program.
Final simplification4.2
\[\leadsto \begin{array}{l}
\mathbf{if}\;\sqrt{\sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*} \cdot \left(\left(\left(J \cdot -2\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{\sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*}\right) \le -1.7745940512370355 \cdot 10^{+308}:\\
\;\;\;\;-U\\
\mathbf{elif}\;\sqrt{\sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*} \cdot \left(\left(\left(J \cdot -2\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{\sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*}\right) \le 1.7821538866056326 \cdot 10^{+308}:\\
\;\;\;\;\left(\cos \left(\frac{K}{2}\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*\right) \cdot \left(J \cdot -2\right)\\
\mathbf{else}:\\
\;\;\;\;-U\\
\end{array}\]