MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: help with mathematica 5.2-Vector

First define the points (and the origin o) as three dimensional vectors

a = {1, 2, 3};
b = {2, 3, 4};
o = {0, 0, 0};

Then create the Graphics primitives using Line for the three vector 
differences OA, OB, AB

lna = Line[{o, a}];
lnb = Line[{o, b}];
lnab = Line[{a, b}];

Then generate the corresponding Graphics objects. Notice that 
formatting has to go here (I have taken the freedom to color the three 
vectors in red, green, and blue):

ga = Graphics3D[{RGBColor[0, 1, 0], Thickness[0.02], lna}];
gb = Graphics3D[{RGBColor[0, 0, 1], Thickness[0.02], lnb}];
gab = Graphics3D[{RGBColor[1, 0, 0], Thickness[0.02], lnab}];

Finally, show all objects together

Show[gab, ga, gb];


"george" <mariuska1989 at> schrieb im Newsbeitrag 
news:fl4unn$9o5$1 at
> Hello! I started recently working with Mathematica 5.2 and I face a 
> problem that I'm trying to solve but I can't find the solution: I 
> have 2 vectors, let's say:
> a=(1,2,3)
> b=(2,3,4)
> I want to make the graph for c=a-b(it should be an arrow, at 
> 3-Dimensions, right?).
> I use the command ListPlot(c), nevertheless it produces  cartesian 
> axes with 2 points(I suppose these are the heads of the arrows, but 
> I'm not sure).
> Is there anything to do in order to make the correct graph?
> (if the graph is not supposed to be an arrow, is not supposed to be 
> at 3-Dimensions, it would be really helpful if someone could explain 
> me why).
> Thank you in advance.

  • Prev by Date: Re: Defining derivatives
  • Next by Date: Locator3D or Slider3D code?
  • Previous by thread: Re: help with mathematica 5.2-Vector
  • Next by thread: Defining derivatives