Professor Gianluca Gorni,

Thank you for your response.

I have also recalculated and here are my findings:

1. I calculated U235NEW revision1 using both ver14 and ver11.2, but it did not converge, so I believe the solution is likely incorrect. (I apologize. My previous response was my mistake.)

2. I calculated U235OLD revision1 using ver11.2, and it converged, so I believe this is likely correct.

3. I calculated U235OLD revision1 using ver14, but I could not obtain the correct solution.

Thank you very much for performing various calculations for me.

Attachments:

U235NEW revision1.nb

U235OLD revision1.nb

Professor Gianluca Gorni,

Thank you for attaching the materials.

I immediately calculated the attached file you sent, and it computed correctly and converged.

However, there are some slight differences from the calculation results of Mathematica Ver9, which concerns me. I would like to try various things myself.

I wanted to express my gratitude promptly.

I have made the calculations of the minimum point again, and it seems correct. The old solution U235OLD is probably wrong. I cannot say for sure, because you do not report the full solution. I cannot say more, because I am not an expert in numerical optimization. I enclose the notebook with my calculations and comments.

Attachments:

U235NEW.nb

Question Regarding Execution of FindMinimum Function Program

Program Overview The attached Mathematica code performs the following physics calculations for nuclear fission:

1. Calculation Objectives: Computation of charge distribution of fission fragments Determination of initial distance (effective fission distance) between two fission fragments at the moment of fission Calculation of excitation energy possessed by each fission fragment

2. Data Source: Fission yield data from JENDL5 (Japanese Evaluated Nuclear Data Library version 5)

3. Target Nuclides: Np237 Pu239 Pu242 U235 U238

Current Issues 1. Version Compatibility Problems: Mathematica 9.011.2: Functions correctly Mathematica 11.3 and later: Computation fails Mathematica 14: Still nonfunctional

1. Specific Problems: Optimization calculations cannot be executed due to changes in FindMinimum function specifications Traditional calculation methods no longer work in current versions

Technical Questions To enable calculations in Mathematica 14 environment: 1. How should the FindMinimum function settings be modified? 2. What alternative approaches are possible?

Attachments:

programNp237.nb

programPu239.nb

programTh232.nb

programU235.nb

programU238.nb

This code performs important nuclear fission physics calculations. Specifically:

Purpose: - Uses nuclear fission yield data from JENDL-5 (Japanese Evaluated Nuclear Data Library version 5) - Calculates initial distance between two fission fragments at the moment of fission (effective fission distance) - Targets actinide nuclides (Np-237, Pu-239, Pu-240, U-235, U-238)

Issue: - Calculations work properly in Mathematica versions 9 to 11.2 - Cannot perform calculations in Mathematica 11.3 and later due to changes in FindMinimum specifications - Same issue exists in current Mathematica 14

Technical Question: How can we make FindMinimum function in the current version?

The goal is to make these important nuclear physics calculations executable in Mathematica 14.

Attachments:

Np - 237.nb

Pu - 239.nb

Pu-240.nb

U - 235.nb

U-238.nb

I just discovered that FindMinimum works fine after the change of variables k[n,m]->1/j[n,m]:

oldVars = Flatten[z];
newVars = oldVars /. k -> j;
changeOfVars = Thread[oldVars -> 1/newVars];
sol = FindMinimum[Total[w^2] /. changeOfVars, newVars]
sol /. (j[n__] -> v_) :> (k[n] -> 1/v)

We should check if the solution coincides with the one in version 9.