All Questions
1 question
0
votes
0
answers
106
views
Optimizing a While Loop for High-Precision Computation in Mathematica
Edit: Clarifying the Core Issue
i=x;
While[Abs[p1 - p2] >= p1 tol,
p2 = p1;
p1 += s *= i (mkn + i)/((k1 - i) (n1 - i));
i--;
];
The core of my ...