mpoles.m File Reference

Functions
endif	if (nargin< 2||isempty(tol)) tol=0.001
	if (reorder)[p
	while (n) dp
	if (p(n)==0.0) if(any(abs(p) > 0 &isfinite(p))) p0
	if (numel(indx)) k
	multp (k)
Variables
	function [multp, indx]
endif	Np = numel (p)
	p = p(:)
	ordr = sort (p)
	n = Np:-1:1
endif	multp = zeros (Np, 1)
	indx = []
else	p0 = 1
endif	k = find (dp < tol * p0)
endif	m = 1:numel (k)
endfunction	!test [mp, n] = mpoles ([0 0], 0.01)

---

Function Documentation

if

(

numel(indx)

)

if

(

p(n)

= =0.0

)

if

(

reorder

)

endif if

(

)

[pure virtual]

multp

(

k

)

while

(

n

)

---

Variable Documentation

endfunction !test[mp, n] = mpoles ([0 0], 0.01)

function[multp, indx]

Initial value:

 mpoles (p, tol, reorder)

  if (nargin < 1 || nargin > 3)
    print_usage ()

indx = []

k = find (dp < tol * p0)

endif m = 1:numel (k)

endwhile multp = zeros (Np, 1)

n = Np:-1:1

endif Np = numel (p)

else ordr = sort (p)

p = p(:)

endif else p0 = 1