Post Reply 
Eigenvector mystery
10-26-2020, 04:25 PM
Post: #16
RE: Eigenvector mystery
(10-24-2020 02:03 PM)John Keith Wrote:  'X^5-19*X^4+79*X^3+146*X^2-1153*X+1222'

Is there a command to convert this symbolic polynomial form to an array

XCas has symy2poly, but I can't find one for HP50G

XCas> symb2poly((x+1)*(x+2)*(x+3))       → poly1[1, 6, 11, 6]

Code:
≪ 0 OVER DEGREE → D
   ≪ 3. DUP D + FOR k HORNER k ROLLD NEXT
      + + D 1 + →ARRY
   ≫

Save above to, say, PARRY

hp50g> '(X+1)*(X+2)*(X+3)'
hp50g> PARRY        → [1 6 11 6]
hp50g> PROOT       → [-1. -2. -3.]

hp50g> 'X^5-19*X^4+79*X^3+146*X^2-1153*X+1222'
hp50g> PARRY        → [1 -19 79 146 -1153 1222]
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Eigenvector mystery - John Keith - 10-18-2020, 09:31 PM
RE: Eigenvector mystery - pinkman - 10-18-2020, 10:54 PM
RE: Eigenvector mystery - JurgenRo - 10-19-2020, 06:33 PM
RE: Eigenvector mystery - Albert Chan - 10-19-2020, 07:13 PM
RE: Eigenvector mystery - Thomas Okken - 10-19-2020, 07:19 PM
RE: Eigenvector mystery - JurgenRo - 10-19-2020, 07:35 PM
RE: Eigenvector mystery - JurgenRo - 10-19-2020, 07:26 PM
RE: Eigenvector mystery - pinkman - 10-19-2020, 08:57 PM
RE: Eigenvector mystery - Thomas Okken - 10-19-2020, 09:42 PM
RE: Eigenvector mystery - Valentin Albillo - 10-20-2020, 12:08 AM
RE: Eigenvector mystery - JurgenRo - 10-21-2020, 06:57 PM
RE: Eigenvector mystery - JurgenRo - 10-21-2020, 06:58 PM
RE: Eigenvector mystery - Albert Chan - 10-18-2020, 11:58 PM
RE: Eigenvector mystery - John Keith - 10-24-2020, 02:03 PM
RE: Eigenvector mystery - Albert Chan - 10-26-2020 04:25 PM
RE: Eigenvector mystery - John Keith - 10-27-2020, 12:37 PM



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