rose.m File Reference

Functions
	if (nargin< 1) print_usage()
	if (nargin > 1) x
	if (isscalar(x)) x
	if (isvector(nn)) nn
	x1 (:)
	r (2:4:end,:)
	r (3:4:end,:)
	newplot ()
unwind_protect_cleanup	axes (oldh)
end_unwind_protect	if (nargout > 0) thout
Variables
	function [thout, rout]
endif	th = varargin {1}
else	x = atan2 (sin (x), cos (x)) + pi
	endif [nn, xx] = hist (th, x)
	xx = xx(:).'
endif	x1 = xx(1:end-1) + diff (xx, 1) / 2
*	pi
	r = zeros (4 * size (nn, 1), size (nn, 2))
unwind_protect	axes (h)
	hlist = polar (h, th, r)
endif else	thout = th
	rout = r

---

Function Documentation

unwind_protect_cleanup axes

(

oldh

)

end_unwind_protect if	(	nargout	,
		0
	)

if

(

isvector(nn)

)

if

(

isscalar(x)

)

if	(	nargin	,
		1
	)

if

(

)

newplot

(

)

r	(	3:4:end	,
		:
	)

r	(	2:4:end	,
		:
	)

x1

(

:

)

---

Variable Documentation

unwind_protect axes(h)

endif[nn, xx] = hist (th, x)

function[thout, rout]

Initial value:

 rose (varargin)

  [h, varargin, nargin] = __plt_get_axis_arg__ ((nargout > 1), "rose", 
                                                varargin{:})

hlist = polar (h, th, r)

* pi

r = zeros (4 * size (nn, 1), size (nn, 2))

rout = r

th = varargin {1}

endif else thout = th

endif else x = atan2 (sin (x), cos (x)) + pi

x1 = xx(1:end-1) + diff (xx, 1) / 2

xx = xx(:).'