Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!sdd.hp.com!hp-pcd!hpcvra.cv.hp.com!rnews!hpcvbbs!akcs.briank
From: akcs.briank@hpcvbbs.UUCP (Brian Korver)
Newsgroups: comp.sys.handhelds
Subject: Eigenvalue program
Keywords: eigenvalues matrix
Message-ID: <275d4987:1102.1comp.sys.handhelds;1@hpcvbbs.UUCP>
Date: 5 Dec 90 19:40:07 GMT
References: <jacobsd.658399946@prism>
Lines: 24

Here is a simple PROOT program and a program that uses QUAD to factor
_second_ order and lower polynomials that result from PROOT.  Of course,
only being able to factor second order polynomials isn't all that
exciting.  Oh well.
%%HP: T(3)A(D)F(.);
\<<
DUP SIZE 0 \-> L SZ
EQN
  \<< SZ 1
    FOR i L i GET
SZ i - '\Gl' SWAP ^ *
EQN + 'EQN' STO -1
    STEP EQN
  \>>
\>>
---Oopps, that above is PROOT
--This is the solver routine
\<<
'\Gl' QUAD DUP 1 \->
s1
  \<< EVAL SWAP -1
's1' STO EVAL
  \>>
\>>