Login

Chris Dean · 06-13-2005, 02:57 PM

Apologies for the lateness of this solution but after much counting of brackets I submit a program for an HP17bII+.

SSMC=0*SIGMA(I:0:9:1:

   0*L(B:0) + 0*L(C:ALOG(9-I) + 0*L(A:9000000000)

      +0*L(D:MOD(IP(G(A)/G(C)):10) +

         +0*SIGMA(J:0:9:1:L(X:MOD(IP(G(A)/ALOG(J)):10))

            +0*IF(G(X)=I:L(B:G(B)+1):G(B)))

         +0*IF(G(D)<>G(B):

      L(A:G(A)-G(D)*G(C)+G(B)*G(C)):G(A)))

   + G(A)

Do not forget to register the variables i.e. Y=A+B+C+D+X. The result is obtained after 5 interations. This shows what can be done on a HP17bII+ with a reasonable amount of patience!

Chris Dean
12345

Chris Dean · 06-13-2005, 04:44 PM

Sorry it should have read .....

Apologies for the lateness of this solution but after much counting of brackets I submit a program for an HP17bII+.

SSMC=0*L(A:9000000000)+0*SIGMA(I:0:9:1:

   0*L(B:0) + 0*L(C:ALOG(9-I)

      +0*L(D:MOD(IP(G(A)/G(C)):10) +

         +0*SIGMA(J:0:9:1:L(X:MOD(IP(G(A)/ALOG(J)):10))

            +0*IF(G(X)=I:L(B:G(B)+1):G(B)))

         +0*IF(G(D)<>G(B):

      L(A:G(A)-G(D)*G(C)+G(B)*G(C)):G(A)))

   + G(A)

Do not forget to register the variables i.e. Y=A+B+C+D+X. The result is obtained after 5 interations. This shows what can be done on a HP17bII+ with a reasonable amount of patience!

Chris Dean
12345

Valentin Albillo · 06-14-2005, 09:27 AM

Hi, Chris:

Chris posted:

"This shows what can be done on a HP17bII+ with a
reasonable amount of patience!"

Indeed ! Truly amazing effort on your part, I was expecting entries in RPN, RPL, BASIC, Assembler, ... but an entry for a 17BII+ was most unexpected.

Give the man a cigar ! :-) Thanks for your interest, and

Best regards from V.

Chris Dean · 06-23-2005, 04:34 AM

Apologies for the lateness of this solution but after much counting of brackets I submit a program for an HP17bII+.

SSMC=0*SIGMA(I:0:9:1:

   0*L(B:0) + 0*L(C:ALOG(9-I)

      +0*L(D:MOD(IP(G(A)/G(C)):10) +

         +0*SIGMA(J:0:9:1:L(X:MOD(IP(G(A)/ALOG(J)):10))

            +0*IF(G(X)=I:L(B:G(B)+1):G(B)))

         +0*IF(G(D)<>G(B):

      L(A:G(A)-G(D)*G(C)+G(B)*G(C)):G(A)))

   + G(A)

Do not forget to register the variables i.e. Y=A+B+C+D+X and Z=0*L(A:9000000000). The result is obtained after 5 interations. This shows what can be done on a HP17bII+ with a reasonable amount of patience!

Chris Dean
12345

Login
Username:
Password:	Lost Password?
	Remember me

Possibly Related Threads…
Thread		Author	Replies	Views	Last Post
	[HP-PIRME] BUG Pretty Print, Solution: abs => \|...\|, ABS => \|\|...\|\|	CompSystems	2	2,088	12-13-2013, 09:36 AM Last Post: CompSystems
	Shutdown with the Apps key and more than 10 variables in a program.	Davi Ribeiro de Oliveira	10	3,766	11-05-2013, 01:26 PM Last Post: Han
	Updated PPC DVD Version 2.10: HP-41 Searchable Program Files and Scannable Barcode	Jake Schwartz	3	1,844	09-27-2013, 09:51 PM Last Post: Olivier (Wa)
	[HP-Prime xCAS] Arrays: Programming Commands (solution to the ambiguity)	CompSystems	6	2,552	08-30-2013, 06:32 PM Last Post: CompSystems
	HP-Prime: Solution to ambiguity with [ ... ] & another BUGs	CompSystems	12	3,590	08-28-2013, 08:48 AM Last Post: CompSystems
	Rounding of 10^x	Olivier De Smet	8	2,512	08-28-2013, 06:33 AM Last Post: Dieter
	Advanced User's Manual and solution to the ambiguity of data types [HP-Prime xCAS]	CompSystems	15	5,426	08-20-2013, 03:37 PM Last Post: Thomas Klemm
	HHC 2012 RPN Programming Contest - 10-Step Way-After-Nashville Solution	Jeff O.	32	6,691	10-12-2012, 01:41 AM Last Post: Paul Dale
	Library 4 update on 10/2/2012 ?	Gene Wright	10	3,050	10-11-2012, 02:31 AM Last Post: Ángel Martin
	e^pi - pi + 9/10^4 + 1/(10^4*ln(2) + sqrt(10)/6)^2	Gerson W. Barbosa	47	11,519	08-08-2012, 10:58 PM Last Post: Les Koller