File: nchrpl.dem

package info (click to toggle)
maxima 5.6-17
  • links: PTS
  • area: main
  • in suites: woody
  • size: 30,572 kB
  • ctags: 47,715
  • sloc: ansic: 154,079; lisp: 147,553; asm: 45,843; tcl: 16,744; sh: 11,057; makefile: 7,198; perl: 1,842; sed: 334; fortran: 24; awk: 5
file content (15 lines) | stat: -rw-r--r-- 523 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
/* First load the necessary file: */
LOAD('NCHRPL);
/* Now generate a 6 x 6 matrix to work with: */
H[I,J]:=(I+J)/(I*J);
TEST_MATRIX:60*GENMATRIX(H,6,6,1,1);
/*  We wish to compare the 
       performance of NCHARPOLY and CHARPOLY. */
SHOWTIME:ALL$
NCHARPOLY(TEST_MATRIX,X);
RATSIMP(CHARPOLY(TEST_MATRIX,X));
/*  The RATSIMP was necessary to obtain a form as neat as the
      one returned by NCHARPOLY.
      Another function in this package is MATTRACE, which takes
      the trace of a matrix: */
MATTRACE(TEST_MATRIX);