Re: S&SMC#10: hp17bII+ solution



#5

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


#6

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


#7

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.


#8

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


Possibly Related Threads...
Thread Author Replies Views Last Post
  [HP-PIRME] BUG Pretty Print, Solution: abs => |...|, ABS => ||...|| CompSystems 2 718 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 1,267 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 605 09-27-2013, 09:51 PM
Last Post: Olivier (Wa)
  [HP-Prime xCAS] Arrays: Programming Commands (solution to the ambiguity) CompSystems 6 812 08-30-2013, 06:32 PM
Last Post: CompSystems
  HP-Prime: Solution to ambiguity with [ ... ] & another BUGs CompSystems 12 1,082 08-28-2013, 08:48 AM
Last Post: CompSystems
  Rounding of 10^x Olivier De Smet 8 848 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 1,840 08-20-2013, 03:37 PM
Last Post: Thomas Klemm
  HHC 2012 RPN Programming Contest - 10-Step Way-After-Nashville Solution Jeff O. 32 2,643 10-12-2012, 01:41 AM
Last Post: Paul Dale
  Library 4 update on 10/2/2012 ? Gene Wright 10 1,030 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 3,894 08-08-2012, 10:58 PM
Last Post: Les Koller

Forum Jump: