home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / hp48 / 5760 < prev    next >
Encoding:
Text File  |  1992-11-15  |  1.2 KB  |  34 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!think.com!rpi!zaphod.mps.ohio-state.edu!magnus.acs.ohio-state.edu!fseipel
  3. From: fseipel@magnus.acs.ohio-state.edu (Frank E Seipel)
  4. Subject: Simplification of polynomial products
  5. Message-ID: <1992Nov16.022804.6403@magnus.acs.ohio-state.edu>
  6. Sender: news@magnus.acs.ohio-state.edu
  7. Nntp-Posting-Host: magnusug.magnus.acs.ohio-state.edu
  8. Organization: The Ohio State University
  9. Date: Mon, 16 Nov 1992 02:28:04 GMT
  10. Lines: 22
  11.  
  12.  Here is a short program to take an algebraic on Level 1 and simplify
  13. it completely through successive EXPANDs until the resulting polynomial
  14. is unchanged.  It then performs a COLCT on the resulting polynomial, e.g.
  15.  
  16. Input:                                  Output:
  17.  
  18. 4:                                      4:
  19. 3:                                      3:
  20. 2:                                      2:
  21. 1: '(X+7)*(2*X+4)*(X-8)'                1: '-224+2*X^3+2*X^2-116*X'
  22.    SIMP
  23.  
  24. SIMP:
  25.  
  26. << 0 -> P2 P1
  27.    << DO P2 'P1' STO P2 EXPAN 'P2' STO UNTIL P1 P2 SAME END P2 COLCT >>
  28. >>
  29.  
  30. -- 
  31.  
  32. Frank Seipel                      A.C.E.C. BBS (614) 471-8559 3/12/24oo bps
  33. fseipel@magnus.acs.ohio-state.edu Pandora  BBS (614) 471-9209 3/12oo bps
  34.