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