compass.m File Reference

Functions
	if (nargin==0) print_usage()
	elseif (nargin==1||(nargin==2 &&!isnumeric(varargin{2}))) ioff
	elseif (nargin > 1 &&isnumeric(varargin{2})) ioff
	while (ioff<=nargin) arg
	if ((ischar(arg)||iscell(arg))&&!have_line_spec)[linespec
	if (valid) line_spec
else	error ("compass: invalid linespec")
endif else	error ("compass: unrecognized argument")
id	arrowsize ()
	newplot ()
unwind_protect_cleanup	axes (oldh)
end_unwind_protect	if (nargout > 0) retval
Variables
function	retval
	arrowsize = 0.25
	z = varargin{1}(:).'
	u = real (z)
	v = imag (z)
endif	line_spec = "b-"
	have_line_spec = false
	valid = __pltopt__ ("compass", arg, false)
	break
endif endwhile	n = length (u)
	xend = u
	xtmp = u .* (1 - arrowsize)
	yend = v
	ytmp = v .* (1 - arrowsize)
	x = [zeros(1, n)
	y = [zeros(1, n)
	oldh = cart2pol (x, y) gca ()
unwind_protect	axes (h)
	hlist = polar (h, r, p, line_spec)
endif endfunction!demo	!a = toeplitz([1;randn(9,1)],[1,randn(1,9)])

---

Function Documentation

id arrowsize

(

)

[virtual]

unwind_protect_cleanup axes

(

oldh

)

elseif	(	nargin	,
		1 &&	isnumericvarargin{2}
	)

elseif

(

nargin

= =1||(nargin==2 &&!isnumeric(varargin{2}))

)

endif else error

(

"compass: unrecognized argument"

)

else error

(

"compass: invalid linespec"

)

end_unwind_protect if	(	nargout	,
		0
	)

if

(

valid

)

if

(

(ischar(arg)||iscell(arg))&&!

have_line_spec

)

if

(

nargin

= =0

)

newplot

(

)

while

(

ioff<=

nargin

)

---

Variable Documentation

endif endfunction !demo !a = toeplitz([1;randn(9,1)],[1,randn(1,9)])

arrowsize = 0.25

unwind_protect axes(h)

break

have_line_spec = false

hlist = polar (h, r, p, line_spec)

endif line_spec = "b-"

endif endwhile n = length (u)

oldh = cart2pol (x, y) gca ()

function retval

Initial value:

 compass (varargin)

  [h, varargin, nargin] = __plt_get_axis_arg__ ("compass", varargin{:})

u = real (z)

v = imag (z)

valid = __pltopt__ ("compass", arg, false)

x = [zeros(1, n)

xend = u

xtmp = u .* (1 - arrowsize)

y = [zeros(1, n)

yend = v

ytmp = v .* (1 - arrowsize)

z = varargin{1}(:).'