◼
  • Manipulate the addition of two vectors of your choice.
    • ◼
  • Please adjust the values of the first and second component of vector a and vector b in order to add them together to produce the result in the color you choose.
    • In[]:=
    Manipulate[Graphics[{{Red,Thick,Arrow[{{0,0},{a1,a2}}]},{Blue,Thickness[Large],Arrow[{{a1,a2},{a1,a2}+{b1,b2}}],{color,Thickness[Large],Arrow[{{0,0},{a1,a2}+{b1,b2}}]}}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector Addition",AxesLabel{"x","y"}],{{a1,1},-3,10,1},{{a2,2},-3,10,1},{{b1,3},-3,10,1},{{b2,4},-3,10,1},{{color,Green},{Black,Green,Brown,Orange,Yellow,Purple,Pink}}]
    Out[]=
    ​
    a1
    a2
    b1
    b2
    color
    ◼
  • See more examples below
    • ◼
  • Plot two vectors
    • In[]:=
    Graphics[{{Red,Thick,Arrow[{{0,0},{0,1}}]},{Blue,Thickness[Large],Arrow[{{0,0},{1,0}}]}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector"]
    Out[]=
    ​
    In[]:=
    Graphics[{{Red,Thick,Arrow[{{0,0},{0,3}}]},{Blue,Thickness[Large],Arrow[{{0,0},{4,0}}]}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector"]
    Out[]=
    In[]:=
    Graphics[{{Red,Thick,Arrow[{{0,0},{3,0}}]},{Blue,Thickness[Large],Arrow[{{3,0},{3,4}}]},{Green,Thick,Arrow[{{0,0},{3,4}}]}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector"]
    Out[]=
    In[]:=
    Graphics[{{Green,Thick,Arrow[{{0,0},{3,4}}]},{Blue,Thickness[Large],Arrow[{{0,0},{0,0}}]}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector"]
    Out[]=
    ◼
  • Plot 3D vectors
    • In[]:=
    Graphics3D[{{Red,Thick,Arrow[{{0,0,0},{0,1,0}}]},{Blue,Thickness[Large],Arrow[{{0,0,0},{1,1,1}}]}},AxesTrue,PlotLabel"3D Vector"]
    Out[]=
    ◼
  • Store two vectors
    • ◼
  • Plot the first vector in Red.
    • ◼
  • Add by plotting the second vector tail to the tip of the first in Blue.
    • ◼
  • Show the resultant vector in Green.