__quiver__.m File Reference

Functions
	if (nargin< (6+is3d)||firstnonnumeric< (6+is3d)) u
	if (is3d) w
endif	if (nargin >=ioff &&isnumeric(varargin{ioff})&&isscalar(varargin{ioff})) autoscale
	if (isvector(x)&&isvector(y)&&isvector(z)&&(!isvector(u)||!isvector(v)||!isvector(w)))[x
endif else	if (isvector(x)&&isvector(y)&&(!isvector(u)||!isvector(v)))[x
	while (ioff<=nargin) arg
	if (ischar(arg)&&strncmpi(arg,"filled", 6)) have_filled
	elseif ((ischar(arg)||iscell(arg))&&!have_line_spec)[linespec
	if (valid) have_line_spec
	if (strncmp(linespec.linestyle,"none", 4)) linespec.linestyle
	if (ioff<=nargin) args
endif endif endwhile	if (autoscale &&numel(u) > 1) dx
endif	if (len > 0) s
	addproperty ("xdata", hg,"data", x)
	addproperty ("ydata", hg,"data", y)
	addproperty ("udata", hg,"data", u)
	addproperty ("vdata", hg,"data", v)
	addproperty ("wdata", hg,"data", w)
else	addproperty ("zdata", hg,"data",[])
	addproperty ("wdata", hg,"data",[])
endif	addlistener (hg,"xdata",@update_data)
	addlistener (hg,"ydata",@update_data)
	addlistener (hg,"zdata",@update_data)
	addlistener (hg,"udata",@update_data)
	addlistener (hg,"vdata",@update_data)
	addlistener (hg,"wdata",@update_data)
endif	if (have_line_spec) if(is3d) h1
endif marker &&	!strncmp (linespec.marker,"none", 4)) if(is3d) h2
endif endif	elseif (is3d) h2
endif	if (!have_line_spec||(isfield(linespec,"marker")&&strncmp(linespec.marker,"none", 4))) if(is3d) h3
endif endif	if (have_filled) set(h3
endif endif	get (h1,"color"))
endif	if (autoscale) addproperty("autoscale"
Variables
function	hg
	is3d = varargin{2}
	autoscale = 0.9
	arrowsize = 0.2
	firstnonnumeric = Inf
for	i
	break
endif endfor	ioff = 3
	v = varargin{ioff++}
	else [x, y] = meshgrid (1:size(u,2), 1:size(u,1))
endif else	x = varargin{ioff++}
	y = varargin{ioff++}
endif	u = varargin{ioff++}
	z = meshgrid (x, y, z)
endif endif	have_filled = false
	have_line_spec = false
	args = {}
	valid = __pltopt__ ("quiver", arg, false)
	dy = (max(y(:)) - min(y(:))) ./ size (y, 1)
	len = max (sqrt (u(:).^2 + dy(:).^2) + dz(:).^2)
	dz = 0
	uu = s * u
	vv = s * v
endif endif	hstate = get (h, "nextplot")
endif hold	on
	data
	xend = x + uu(:)
	yend = y + vv(:)
	zend = z + ww(:)
else	h1
endif endif	xtmp = x + uu(:) .* (1 - arrowsize)
	ytmp = y + vv(:) .* (1 - arrowsize)
	xarrw1 = xtmp + (y - yend) * arrowsize / 3
	xarrw2 = xtmp - (y - yend) * arrowsize / 3
	yarrw1 = ytmp - (x - xend) * arrowsize / 3
	yarrw2 = ytmp + (x - xend) * arrowsize / 3
else	h2
else	h3 = plot (x, y, "linestyle", "none", "marker", "none", "parent", hg)
endif endif	markerfacecolor
endif	radio

---

Function Documentation

endif marker&& !strncmp	(	linespec.	marker,
		"none"	,
		4
	)

addlistener	(	hg	,
		"wdata"	,
		@	update_data
	)

addlistener	(	hg	,
		"vdata"	,
		@	update_data
	)

addlistener	(	hg	,
		"udata"	,
		@	update_data
	)

addlistener	(	hg	,
		"zdata"	,
		@	update_data
	)

addlistener	(	hg	,
		"ydata"	,
		@	update_data
	)

endif addlistener	(	hg	,
		"xdata"	,
		@	update_data
	)

addproperty	(	"wdata"	,
		hg	,
		"data"
	)

else addproperty	(	"zdata"	,
		hg	,
		"data"
	)

addproperty	(	"wdata"	,
		hg	,
		"data"	,
		w
	)

addproperty	(	"vdata"	,
		hg	,
		"data"	,
		v
	)

addproperty	(	"udata"	,
		hg	,
		"data"	,
		u
	)

addproperty	(	"ydata"	,
		hg	,
		"data"	,
		y
	)

addproperty	(	"xdata"	,
		hg	,
		"data"	,
		x
	)

endif endif elseif

(

is3d

)

elseif

(

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

have_line_spec

)

endif endif get	(	h1	,
		"color"
	)

Type Constraints

endif if

(

autoscale

)

endif endif if

(

have_filled

)

endif if

(

!have_line_spec||

isfield(linespec,"marker")&&strncmp(linespec.marker,"none", 4)

)

endif if

(

have_line_spec

)

endif if	(	len	,
		0
	)

endif endif endwhile if	(	autoscale &&	numelu,
		1
	)

if

(

ioff<=

nargin

)

if

(

strncmp(linespec.linestyle,"none", 4)

)

if

(

valid

)

if

(

ischar(arg)&&strncmpi(arg,"filled", 6)

)

endif else if

(

isvector(x)&&isvector(y)&&(!isvector(u)||!isvector(v))

)

if

(

isvector(x)&&isvector(y)&&isvector(z)&&(!isvector(u)||!isvector(v)||!isvector(w))

)

endif if

(

nargin >=ioff &&

isnumericvarargin{ioff})&&isscalar(varargin{ioff}

)

if

(

is3d

)

if

(

)

while

(

ioff<=

nargin

)

---

Variable Documentation

else args = {}

id arrowsize = 0.2

autoscale = 0.9

break

data

dy = (max(y(:)) - min(y(:))) ./ size (y, 1)

dz = 0

else[x, y] = meshgrid (1:size(u,2), 1:size(u,1))

firstnonnumeric = Inf

else h1

Initial value:

 plot ([x.'; xend.'; NaN(1, length (x))](:),
                   [y.'; yend.'; NaN(1, length (y))](:),
                   "linestyle", linespec.linestyle, 
                    "color", linespec.color, "parent", hg)

else h2

Initial value:

 plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:),
                     [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:),
                     "linestyle", "none", "parent", hg)

else h3 = plot (x, y, "linestyle", "none", "marker", "none", "parent", hg)

endif endif have_filled = false

have_line_spec = false

endif hg

Initial value:

 __quiver__ (varargin)

  h = varargin{1}

endif endif hstate = get (h, "nextplot")

for i

Initial value:

 3:nargin
    if (! isnumeric (varargin{i}))
      firstnonnumeric = i

endif endfor ioff = 3

is3d = varargin{2}

else len = max (sqrt (u(:).^2 + dy(:).^2) + dz(:).^2)

endif endif markerfacecolor

endif hold on

endif radio

endif u = varargin{ioff++}

endif endif else uu = s * u

v = varargin{ioff++}

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

vv = s * v

x = varargin{ioff++}

xarrw1 = xtmp + (y - yend) * arrowsize / 3

xarrw2 = xtmp - (y - yend) * arrowsize / 3

xend = x + uu(:)

endif endif xtmp = x + uu(:) .* (1 - arrowsize)

y = varargin{ioff++}

yarrw1 = ytmp - (x - xend) * arrowsize / 3

yarrw2 = ytmp + (x - xend) * arrowsize / 3

yend = y + vv(:)

ytmp = y + vv(:) .* (1 - arrowsize)

z = meshgrid (x, y, z)

zend = z + ww(:)