(* 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[      7594,        185]
NotebookOptionsPosition[      7182,        168]
NotebookOutlinePosition[      7527,        183]
CellTagsIndexPosition[      7484,        180]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "5", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"CrossProduct", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"d1", ",", "e1", ",", "f1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"u", "\[Cross]", "v"}], "\[IndentingNewLine]", 
 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"}], "}"}], ",", 
          RowBox[{"u", "\[Cross]", "v"}]}], "}"}], "]"}]}], "}"}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"400", ",", "400"}], "}"}]}], ",", " ", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}], "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.4701693338125*^9, 3.470169427265625*^9}, {3.47016947515625*^9, 
   3.470169505265625*^9}, {3.470169548453125*^9, 3.470169566484375*^9}, {
   3.470169874328125*^9, 3.4701698935625*^9}, {3.47016992384375*^9, 
   3.470169942828125*^9}, 3.471194263359375*^9, {3.471194388171875*^9, 
   3.471194395703125*^9}, {3.47277216440625*^9, 3.472772165921875*^9}, 
   3.472772201984375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "\[Cross]", "v"}], "+", 
  RowBox[{"v", "\[Cross]", "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.4701693338125*^9, 3.470169427265625*^9}, {3.47016947515625*^9, 
   3.470169505265625*^9}, {3.470169548453125*^9, 3.470169566484375*^9}, {
   3.470169874328125*^9, 3.4701698935625*^9}, {3.47016992384375*^9, 
   3.470169942828125*^9}, {3.471194263359375*^9, 3.471194269296875*^9}}],

Cell[BoxData[
 RowBox[{"Norm", "[", 
  RowBox[{"u", "\[Cross]", "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.4701693338125*^9, 3.470169427265625*^9}, {3.47016947515625*^9, 
   3.470169505265625*^9}, {3.470169548453125*^9, 3.470169566484375*^9}, {
   3.470169874328125*^9, 3.4701698935625*^9}, {3.47016992384375*^9, 
   3.470169942828125*^9}, {3.471194263359375*^9, 3.47119427346875*^9}}],

Cell[BoxData[
 RowBox[{"Normalize", "[", 
  RowBox[{"u", "\[Cross]", "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.4701693338125*^9, 3.470169427265625*^9}, {3.47016947515625*^9, 
   3.470169505265625*^9}, {3.470169548453125*^9, 3.470169566484375*^9}, {
   3.470169874328125*^9, 3.4701698935625*^9}, {3.47016992384375*^9, 
   3.470169942828125*^9}, {3.471194263359375*^9, 3.47119427675*^9}}],

Cell[BoxData[
 RowBox[{"ScalarTripleProduct", "[", 
  RowBox[{"u", ",", "v", ",", "w"}], "]"}]], "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.4701693338125*^9, 3.470169427265625*^9}, {3.47016947515625*^9, 
   3.470169505265625*^9}, {3.470169548453125*^9, 3.470169566484375*^9}, {
   3.470169874328125*^9, 3.4701698935625*^9}, {3.47016992384375*^9, 
   3.470169942828125*^9}, {3.471194263359375*^9, 3.47119427675*^9}}]
},
WindowSize->{1146, 891},
WindowMargins->{{57, Automatic}, {Automatic, 6}},
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, 3325, 85, 252, "Input"],
Cell[3873, 107, 837, 14, 31, "Input"],
Cell[4713, 123, 814, 13, 31, "Input"],
Cell[5530, 138, 816, 13, 31, "Input"],
Cell[6349, 153, 829, 13, 31, "Input"]
}
]
*)

(* End of internal cache information *)