You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
◼
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}}]}}},AxesTrue,GridLinesAutomatic,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[]=
◼
See more examples below
◼
Plot two vectors
In[]:=
Graphics[{{Red,Thick,Arrow[{{0,0},{0,1}}]},{Blue,Thickness[Large],Arrow[{{0,0},{1,0}}]}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector"]
Out[]=
In[]:=
Graphics[{{Red,Thick,Arrow[{{0,0},{0,3}}]},{Blue,Thickness[Large],Arrow[{{0,0},{4,0}}]}},AxesTrue,GridLinesAutomatic,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}}]}},AxesTrue,GridLinesAutomatic,PlotLabel"Vector"]
Out[]=
In[]:=
Graphics[{{Green,Thick,Arrow[{{0,0},{3,4}}]},{Blue,Thickness[Large],Arrow[{{0,0},{0,0}}]}},AxesTrue,GridLinesAutomatic,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}}]}},AxesTrue,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.