Re: S&SMC#10: hp17bII+ solution « Next Oldest | Next Newest »

 ▼ Chris Dean Member Posts: 120 Threads: 9 Joined: Aug 2005 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 Member Posts: 120 Threads: 9 Joined: Aug 2005 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 Posting Freak Posts: 1,755 Threads: 112 Joined: Jan 2005 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 Member Posts: 120 Threads: 9 Joined: Aug 2005 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

 Possibly Related Threads... Thread Author Replies Views Last Post [HP-PIRME] BUG Pretty Print, Solution: abs => |...|, ABS => ||...|| CompSystems 2 717 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,260 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 603 09-27-2013, 09:51 PM Last Post: Olivier (Wa) [HP-Prime xCAS] Arrays: Programming Commands (solution to the ambiguity) CompSystems 6 811 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 846 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,837 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,638 10-12-2012, 01:41 AM Last Post: Paul Dale Library 4 update on 10/2/2012 ? Gene Wright 10 1,029 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,888 08-08-2012, 10:58 PM Last Post: Les Koller

Forum Jump: