polygcd.m File Reference

Functions
endif endif	if (length(a)==1||length(b)==1) if(a
	elseif (b==0) x
	while (1)[d
	if (isempty(nz)) x
endwhile endif else	print_usage ()
Variables
function	x
else	tol = sqrt (eps)
endif else	a = a(1)
	r = deconv (b, a)
	nz = find (abs (r) > tol)
	break
endif	b = a

---

Function Documentation

elseif

(

b

= =0

)

if

(

isempty(nz)

)

endif endif if

(

length(a)

= =1||length(b)==1

)

endwhile endif else print_usage

(

)

while

(

1

)

---

Variable Documentation

a = a(1)

endif b = a

break

nz = find (abs (r) > tol)

else r = deconv (b, a)

else tol = sqrt (eps)

else x

Initial value:

 polygcd (b, a, tol)

  if (nargin == 2 || nargin == 3)
    if (nargin == 2)
      if (isa (a, "single") || isa (b, "single"))
        tol = sqrt (eps ("single"))