Roots of a function: Difference between revisions
Content added Content deleted
m (→optimized function: changed comments and whitespace.) |
m (→optimized function: added a comment to the REXX section header.) |
||
Line 1,960: | Line 1,960: | ||
This is a slightly optimized version of the '''F''' function. |
This is a slightly optimized version of the '''F''' function. |
||
<br><br>When doing thousands of evaluations, every little bit helps. |
<br><br>When doing thousands of evaluations, every little bit helps. |
||
Using <big> '''x+x''' </big> instead of <big> '''2*x''' </big> is faster. |
|||
<lang rexx>/*──────────────────────────────────F function────────────────────────────────*/ |
<lang rexx>/*──────────────────────────────────F function────────────────────────────────*/ |
||
f: procedure; parse arg x; x2=x*x; return x*x2 - 3*x2 + x+x</lang> |
f: procedure; parse arg x; x2=x*x; return x*x2 - 3*x2 + x+x</lang> |