The Museum of HP Calculators

HP Forum Archive 15

[ Return to Index | Top of Index ]

Re: S&SMC#10: hp17bII+ solution
Message #1 Posted by Chris Dean on 13 June 2005, 2:57 p.m.

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

      
Re: Re: S&SMC#10: Apologies hp17bII+ solution
Message #2 Posted by Chris dean on 13 June 2005, 4:44 p.m.,
in response to message #1 by Chris Dean

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

            
Re: Re: S&SMC#10: Apologies hp17bII+ solution
Message #3 Posted by Valentin Albillo on 14 June 2005, 9:27 a.m.,
in response to message #2 by Chris dean

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.

                  
Re: Re: S&SMC#10: Apologies hp17bII+ solution
Message #4 Posted by chris dean on 23 June 2005, 4:34 a.m.,
in response to message #3 by Valentin Albillo

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

[ Return to Index | Top of Index ]

Go back to the main exhibit hall