(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      6430,        165]
NotebookOptionsPosition[      6056,        149]
NotebookOutlinePosition[      6402,        164]
CellTagsIndexPosition[      6359,        161]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   StyleBox["u",
    FontColor->RGBColor[0, 1, 0]], "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   StyleBox["v",
    FontColor->RGBColor[0, 0, 1]], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "5", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox["w",
   FontColor->RGBColor[1, 0, 0]], "=", 
  RowBox[{
   RowBox[{"3", "u"}], "+", 
   RowBox[{"2", "v"}]}]}]}], "Input",
 CellChangeTimes->{
  3.396644788671875*^9, {3.396644828390625*^9, 3.3966448290625*^9}, 
   3.41036320778125*^9, {3.466109573546875*^9, 3.466109576703125*^9}, {
   3.470154766703125*^9, 3.470154771484375*^9}, {3.47015482040625*^9, 
   3.470154859703125*^9}, {3.4701549219375*^9, 3.47015494659375*^9}, {
   3.470155028453125*^9, 3.470155031515625*^9}, {3.47015513590625*^9, 
   3.470155142125*^9}, {3.47015518665625*^9, 3.47015522803125*^9}, {
   3.470169616796875*^9, 3.47016977259375*^9}, {3.470169812671875*^9, 
   3.47016983246875*^9}, {3.470244746546875*^9, 3.470244795484375*^9}, 
   3.471194503609375*^9, {3.47276994675*^9, 3.47276999053125*^9}, {
   3.472770022140625*^9, 3.472770096796875*^9}, {3.47277137625*^9, 
   3.47277146921875*^9}, {3.47277150453125*^9, 3.472771508078125*^9}, {
   3.472771605203125*^9, 3.472771607109375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Framed", "@", 
   RowBox[{"Show", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", " ", 
      RowBox[{"{", 
       RowBox[{"Green", ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "u"}], "}"}], 
         "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", " ", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "v"}], "}"}], 
         "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", " ", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "w"}], "}"}], 
         "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"400", ",", "400"}], "}"}]}], ",", " ", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.396644788671875*^9, {3.396644828390625*^9, 3.3966448290625*^9}, 
   3.41036320778125*^9, {3.466109573546875*^9, 3.466109576703125*^9}, {
   3.470154766703125*^9, 3.470154771484375*^9}, {3.47015482040625*^9, 
   3.470154859703125*^9}, {3.4701549219375*^9, 3.47015494659375*^9}, {
   3.470155028453125*^9, 3.470155031515625*^9}, {3.47015513590625*^9, 
   3.470155142125*^9}, {3.47015518665625*^9, 3.47015522803125*^9}, {
   3.470169616796875*^9, 3.47016977259375*^9}, {3.470169812671875*^9, 
   3.47016983246875*^9}, {3.470244746546875*^9, 3.470244795484375*^9}, 
   3.471194503609375*^9, {3.47276994675*^9, 3.47276999053125*^9}, {
   3.472770022140625*^9, 3.472770096796875*^9}, {3.47277137625*^9, 
   3.47277146921875*^9}, {3.47277150453125*^9, 3.472771567734375*^9}, 
   3.472771621265625*^9}],

Cell[BoxData[{
 RowBox[{"Norm", "[", "u", "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"Norm", "[", "u", "]"}], "]"}]}], "Input",
 CellChangeTimes->{
  3.396644788671875*^9, {3.396644828390625*^9, 3.3966448290625*^9}, 
   3.41036320778125*^9, {3.466109573546875*^9, 3.466109576703125*^9}, {
   3.470154766703125*^9, 3.470154771484375*^9}, {3.47015482040625*^9, 
   3.470154859703125*^9}, {3.4701549219375*^9, 3.47015494659375*^9}, {
   3.470155028453125*^9, 3.470155031515625*^9}, {3.47015513590625*^9, 
   3.470155142125*^9}, {3.47015518665625*^9, 3.47015522803125*^9}, {
   3.470169616796875*^9, 3.47016977259375*^9}, {3.470169812671875*^9, 
   3.47016983246875*^9}, {3.470244746546875*^9, 3.470244795484375*^9}, {
   3.471194503609375*^9, 3.4711945089375*^9}}],

Cell[BoxData[{
 RowBox[{"Normalize", "[", "u", "]"}], "\n", 
 RowBox[{
  RowBox[{"Normalize", "[", "v", "]"}], "//", "N"}]}], "Input",
 CellChangeTimes->{
  3.396644788671875*^9, {3.396644828390625*^9, 3.3966448290625*^9}, 
   3.41036320778125*^9, {3.466109573546875*^9, 3.466109576703125*^9}, {
   3.470154766703125*^9, 3.470154771484375*^9}, {3.47015482040625*^9, 
   3.470154859703125*^9}, {3.4701549219375*^9, 3.47015494659375*^9}, {
   3.470155028453125*^9, 3.470155031515625*^9}, {3.47015513590625*^9, 
   3.470155142125*^9}, {3.47015518665625*^9, 3.47015522803125*^9}, {
   3.470169616796875*^9, 3.47016977259375*^9}, {3.470169812671875*^9, 
   3.47016983246875*^9}, {3.470244746546875*^9, 3.470244795484375*^9}, {
   3.471194503609375*^9, 3.4711945089375*^9}}]
},
WindowSize->{1146, 891},
WindowMargins->{{19, Automatic}, {-2, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1375, 33, 72, "Input"],
Cell[1923, 55, 2593, 62, 152, "Input"],
Cell[4519, 119, 762, 13, 52, "Input"],
Cell[5284, 134, 768, 13, 52, "Input"]
}
]
*)

(* End of internal cache information *)