Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/pnorm.doc
There are 2 other files named pnorm.doc in the archive. Click here to see a list.
SUBROUTINE PNORM

PURPOSE
   NORMALIZE COEFFICIENT VECTOR OF A POLYNOMIAL

USAGE
   CALL PNORM(X,IDIMX,EPS)

DESCRIPTION OF PARAMETERS
   X	  - VECTOR OF ORIGINAL COEFFICIENTS, ORDERED FROM
	    SMALLEST TO LARGEST POWER. IT REMAINS UNCHANGED
   IDIMX  - DIMENSION OF X. IT IS REPLACED BY FINAL DIMENSION
   EPS	  - TOLERANCE BELOW WHICH COEFFICIENT IS ELIMINATED

REMARKS
   IF ALL COEFFICIENTS ARE LESS THAN EPS, RESULT IS A ZERO
   POLYNOMIAL WITH IDIMX=0 BUT VECTOR X REMAINS INTACT

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
   NONE

METHOD
   DIMENSION OF VECTOR X IS REDUCED BY ONE FOR EACH TRAILING
   COEFFICIENT WITH AN ABSOLUTE VALUE LESS THAN OR EQUAL TO EPS