#
#octave_polynomial_poly.m
#https://octave-online.blogspot.jp/search/label/polynomial_poly
#
function p = octave_polynomial_poly( A )

	p = poly( A );
	ZERO = roots( p );
	ZERO_MAX = max( ZERO );
	ZERO_MIN = min( ZERO );

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

endfunction

