[VA] SRC #008 - 2021 is here !

[J-F Garnier]

(01-02-2021 09:24 PM)J-F Garnier Wrote:  I was inspired by [the] 2nd problem:
...
I had no special problem to evaluate it on the HP-71 (actually Emu71:-) with the Math ROM, after a simple operation.

Here is my solution, not for the HP-71 but the 32S (not even the 32SII) that is, as I mentioned several times, my favourite machine for simple calculations.
Well, I cheated a bit since I used the observation I made in my previous message :-) so the execution time is reduced to less than two minutes including keystrokes. Not bad for this machine....

Code:







Program for the 32S/32SII:
LBL V
RCL X
COS
STO C
LASTx
SIN
STO S
2
SQRT
/
+
x²
RCL S
x²
2
/
+
LN
RCL C
/
RCL S
/
2
/
RTN


Keystokes:
RAD
FN= V
FIX 10
0
PI 2 /
§FN dX
>>  §=0.925275413
STO A
PI 2 /
PI
§FN dX
>> §=1.542125688
RCL+ A
>> 2.4674011003   ***
Exactly the expected constant (to 10 places).

J-F