(TI-66) Some digits for a sum
04-18-2020, 08:48 PM
Post: #1
 Nihotte(lma) Member Posts: 70 Joined: Mar 2020
(TI-66) Some digits for a sum
Some rapid words to present a written version for the TI-58 family of the program already published for several HP models in the forums.

The purpose is to find the list of distinct digits (figures) which sum gives a searching number.
For example, to find at most 45 you should add all the digits from 9 downto 1 (because 9 + 8 + 7 + 6 + 5 + 4 + 3 + 2 + 1 = 45).

It's interesting to try 23 by 4 digits on this program
by 23 x↔t 4 RST R/S and so on

A long time ago, I used this application (on a HP48) to complete some cross-numbers grids !

Attached File(s)
TI-66 - Some digits for a sum - lmaN for the MoHPC - 20200418.pdf (Size: 23.28 KB / Downloads: 24)
05-29-2020, 01:34 PM (This post was last modified: 05-29-2020 01:39 PM by Nihotte(lma).)
Post: #2
 Nihotte(lma) Member Posts: 70 Joined: Mar 2020
RE: (TI-66) Some digits for a sum
A few little words to add a simplified version of the program
You can use the code with symbolic addressing, which is more readable or more malleable, or one which adopts absolute addressing mode, slightly faster.

Notice : no change in the mode of use since the previous version
Each program can use Part 49 (119.48)

Code:
 LBL D CMS STO 06 x↔t STO 05 9 STO 02 LBL SIN RCL 02 CP x = t RAD 1 0 PRD 07 RCL 02 SUM 07 SUM 03 1 SUM 01 INV SUM 02 RCL 06 x↔t RCL 01 x = t DEG RCL 05 x↔t RCL 03 INV x ≥ t SIN LBL COS 1 SUM 04 LBL TAN 1 0 x INV PRD 07 RCL 07 INV INT INV SUM 07 = STO 02 INV SUM 03 1 INV SUM 01 DSZ 4 TAN INV SUM 02  GTO SIN LBL DEG RCL 05 x↔t RCL 03 INV x = t COS RCL 07 FIX 0 R/S GTO COS LBL RAD RCL 01 x↔t CLR INV x ≥ t COS RCL 05 x↔t RCL 06 R/S RST

And, with absolute addressing mode :

Code:
 LBL D CMS STO 06 x↔t STO 05 9 STO 02 (011) RCL 02 CP x = t 0103 1 0 PRD 07 RCL 02 SUM 07 SUM 03 1 SUM 01 INV SUM 02 RCL 06 x↔t RCL 01 x = t 0086 RCL 05 x↔t RCL 03 INV x ≥ t 0011 (050) 1 SUM 04 (053) 1 0 x INV PRD 07 RCL 07 INV INT INV SUM 07 = STO 02 INV SUM 03 1 INV SUM 01 DSZ 4 0053 INV SUM 02  GTO 0011 (086) RCL 05 x↔t RCL 03 INV x = t 0050 RCL 07 FIX 0 R/S GTO 0050 (103) RCL 01 x↔t CLR INV x ≥ t 0050 RCL 05 x↔t RCL 06 R/S RST
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)