Re: Plot Angle between Vectors
- To: mathgroup at smc.vnet.net
- Subject: [mg62100] Re: Plot Angle between Vectors
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Fri, 11 Nov 2005 02:52:11 -0500 (EST)
- References: <dkuvk6$7pj$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hallo Florian,
For non-oriented angles, you could do
something like this :
In[1]:=<<Graphics`
In[2]:=angles[v1_,v2_]:=
With[{a1 = ArcCos[First[v1]/Norm[v1]],
a2 = ArcCos[First[v2]/Norm[v2]]},
If[a1<a2,{a1,a2},-{a1,a2}]];
In[3]:= p0={.2,.2};
p1={1,1};
p2={-.25,.75};
In[6]:=Show[Graphics[{Arrow[p0,p1],Arrow[p0,p2],
Circle[p0,0.1,angles[p1-p0,p2-p0]]},
AspectRatio -> Automatic]];
Out[6]= - Graphics -
hth
V.Astanoff