__plr1__.m File Reference

Functions
	if (nr==1) theta
	if (any(theta_i)) rho
Variables
function	retval
	endif [nr, nc] = size (theta)
	tmp = nr
	nr = nc
	nc = tmp
endif	theta_i = imag (theta)
	theta = real (theta)
else	rho = theta

---

Function Documentation

if

(

any(theta_i)

)

if

(

nr

= =1

)

---

Variable Documentation

endif[nr, nc] = size (theta)

nc = tmp

nr = nc

endif retval

Initial value:

 __plr1__ (h, theta, fmt)

  if (nargin != 3)
    print_usage ()

else rho = theta

theta = real (theta)

endif theta_i = imag (theta)

tmp = nr