A digression around VA's SRC #012b

[C.Ret]

(11-26-2022 03:18 AM)rprosperi Wrote:  Emulators have their place, but for some things, there's nothing like a real machine.

I completely agree, nothing like a real HP-71B. I turned mine on to time Albert's code, but since I'm a lazy user, I simplified his code a bit. I hope no one will blame me.

LIST
10 SETTIME 0 @ DESTROY ALL @ OPTION BASE 1 @ REAL I,N,P,Q,X @ N=10000 @ INTEGER D(N)
20 D(1)=1 @ P=3 @ FOR I=2 TO N @ Q=P @ P=FPRIM(P+2) @ D(I)=P-Q @ NEXT I
30 DEF FN FNF(X) @ Q=-P @ FOR I=N TO 1 STEP -1 @ Q=Q*X+D(I) @ NEXT I @ Q=Q*X+2 @ FNF=Q*(1+X)^3 @ END DEF
40 DISP P;TIME$ @ DISP FNROOT(-.997,-.996,FNF(FVAR));TIME$ @ DISP FNROOT(-.9999,-.999,FNF(FVAR));TIME$

RUN
104743 00:36:54
-.996168277368 01:48:48
-.999296380168 03:27:03


(This are times from one run only. Currently I am trying to run it again to check)