Adding vector heads to ListPlotVectorField3D
- To: mathgroup at smc.vnet.net
- Subject: [mg16558] Adding vector heads to ListPlotVectorField3D
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Tue, 16 Mar 1999 04:00:27 -0500
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- Sender: owner-wri-mathgroup at wolfram.com
I'm trying to plot a ParametricPlot3D of a curve on which I show the
(unit) tangent and normal vectors at a given point on the curve. If I
use the function
ListPlotVectorField3D
to create the vectors at the desired point, and if I include the option
VectorHeads -> True
then the arrow heads come out much too large and "hollow". Is there
some workaround?
For reference, here are the expressions I used:
In[1]:=
f[t_] := {t Cos[2\[Pi] t], t Sin[2\[Pi] t], 2 t}
In[2]:=
\!\(norm[v_]\ := \ \ at \(v . v\)\)
In[3]:=
v[t_] := f'[t]
T[t_] := v[t]/norm[v[t]]
tangp[t_] := T'[t]
NN[t_] := tangp[t]/norm[tangp[t]]
In[7]:=
graf = ParametricPlot3D[Evaluate[f[t]], {t, 0, 2},
AxesLabel\[Rule]{"x", "y", "z"}, DisplayFunction \[Rule] Identity];
In[9]:=
Needs["Graphics`PlotField3D`"]
In[10]:=
vecs = ListPlotVectorField3D[{{f[1.75],T[1.75]}, {f[1.75],NN[1.75]}},
VectorHeads \[Rule] True, DisplayFunction \[Rule] Identity];
In[11]:=
Show[graf, vecs, DisplayFunction \[Rule] $DisplayFunction];
--
Murray Eisenberg murray at math.umass.edu
Mathematics & Statistics Dept. phone 413 549-1020 (H)
Univ. of Massachusetts 413 545-2859 (W)
Amherst, MA 01003-4515