' III_Poly4.txt

' Click on the Set 2D if not already set;
'    Under OPTIONS DISPLAY menu
'         click SHOW DISCONTINUOUS?
'            click Yes, No Limit Markers.
 

N{x} = (x + 6)^2 * (x + 4) * (x + 2)^2 * x  * 20       ' mpy by 20 to aid in zeros visibility.

D{x} = (x - 2)*(x - 4)*(x - 6) 

P{x} = (N{x} / D{x}) 

' ***************************** Note: Compression routine. *****************************
'  We need a "compress" routine to avoid overflow, yet still show the basic curve.
'  If  | F{x} | =>1, then compute 
'                            Co <-- Sign[F{x}] * Ln[Abs[F{x}]] + 1
'  Otherwise
'                            if -1 < F{x} < 1, then
'                                Co <-- F{x}   (unaltered).
' *******************************************************************************************

Co{x} = Unit[Abs[P{x}]-1] * (Sign[P{x}]*Ln[Abs[P{x}]] + Sign[P{x}]) + Unit[1-Abs[P{x}]]*P{x}

F<x> = <x, Co,0>
Plot[F, {x, -12, 12, 400}]       ' F{x} has discontinuous regions where a vertical line segment
                                                  ' is drawn. See Page 65, Using Limit Markers, 2nd paragraph..

'                                                If a "divisiion-by-zero,,," msg, then use 401.
<x=1>



