feather.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 ("feather: invalid linespec")
endif else	error ("feather: 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__ ("feather", arg, false)
	break
endif endwhile	n = length (u)
	xend = [1 : n] + u
	xtmp = [1 : n] + u .* (1 - arrowsize)
	yend = v
	ytmp = v .* (1 - arrowsize)
	x = [[1 : n]
	y = [zeros(1, n)
	oldh = gca ()
unwind_protect	axes (h)
	hlist = plot (h, x, y, line_spec, [1, n], [0, 0], line_spec)
endif endfunction!demo	!phi = [0 : 15 : 360] * pi / 180

---

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

(

"feather: unrecognized argument"

)

else error

(

"feather: 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 !phi = [0 : 15 : 360] * pi / 180

arrowsize = 0.25

unwind_protect axes(h)

break

have_line_spec = false

hlist = plot (h, x, y, line_spec, [1, n], [0, 0], line_spec)

endif line_spec = "b-"

endif endwhile n = length (u)

oldh = gca ()

function retval

Initial value:

 feather (varargin)

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

u = real (z)

v = imag (z)

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

x = [[1 : n]

xend = [1 : n] + u

xtmp = [1 : n] + u .* (1 - arrowsize)

y = [zeros(1, n)

yend = v

ytmp = v .* (1 - arrowsize)

z = varargin{1}(:).'