#
#octave_polynomial_roots.m
#https://gnuinfo.org/octave/index-main.html?octave_polynomial_roots
#
function ZERO = octave_polynomial_roots( H0 )

	ZERO = roots( H0 );
	ZERO_MAX = max( ZERO );
	ZERO_MIN = min( ZERO );

	X = linspace ( ZERO_MIN, ZERO_MAX, 100 );
	Y = polyval ( H0, X );
	plot( X, Y )

endfunction

