Programming Exercise (HP-15C, 15C LE - and others)

[Gerson W. Barbosa]

(03-22-2014 10:19 PM)Dave Britten Wrote:  Got a TI-95 in the mail today, and (naturally) had a go at this with the "new" machine:

Code:

LBL 00
10000
STO N
1
STO S
0
STO X
LBL 01
RCL N
1/x
*
RCL S
+/-
STO S
=
ST+ X
DSZ N
GTL 01
RCL X
HLT

This ran in just a hair under 13 minutes. (Make sure you ASM it.)

This runs on the TI-57 with only minor modifications:

Code:


00 LBL 0 
01 STO 0
02 1
03 STO 2
04 0
05 STO 3
06 LBL 1
07 RCL 0
08 1/x
09 *
10 RCL 2
11 +/-
12 STO 2
13 +
14 RCL 3
15 =
16 STO 3
17 DSZ 
18 GTO 1
19 RCL 3
20 R/S

Alas, no ASM instruction. 100 SBR 0 takes exactly 100 seconds and returns 0.6881722 (0.6881721794), or about 2 hours and 46 minutes for 10000 iterations.

Regards,

Gerson.


----------------------

0.6930972 (0.6930971831), after 2 hours and 51 minutes.