(* 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[      3571,        134]
NotebookOptionsPosition[      2983,        111]
NotebookOutlinePosition[      3325,        126]
CellTagsIndexPosition[      3282,        123]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"<<", "VectorAnalysis`"}], "\n", 
 RowBox[{"Norm", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"Norm", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], "]"}], "\n", 
 RowBox[{"Normalize", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"Normalize", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], ".", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "3"}], ",", "5", ",", "7"}], "}"}]}], "\n", 
 RowBox[{"w", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], "\[Cross]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "5", ",", "7"}], "}"}]}]}], "\n", 
 RowBox[{"Norm", "[", "w", "]"}], "\n", 
 RowBox[{"ScalarTripleProduct", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "5", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.396644788671875*^9, {3.396644828390625*^9, 3.3966448290625*^9}, 
   3.41036320778125*^9}],

Cell[BoxData[
 SqrtBox["14"]], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData["3.7416573867739413`"], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", 
    SqrtBox["14"]], ",", 
   SqrtBox[
    FractionBox["2", "7"]], ",", 
   FractionBox["3", 
    SqrtBox["14"]]}], "}"}]], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2672612419124244`", ",", "0.5345224838248488`", ",", 
   "0.8017837257372732`"}], "}"}]], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData["28"], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "16"}], ",", "11"}], "}"}]], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData[
 RowBox[{"3", " ", 
  SqrtBox["42"]}]], "Output",
 CellChangeTimes->{3.410363403609375*^9}],

Cell[BoxData[
 RowBox[{"-", "6"}]], "Output",
 CellChangeTimes->{3.410363403609375*^9}]
}, Open  ]]
},
WindowSize->{1146, 891},
WindowMargins->{{57, Automatic}, {Automatic, 6}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 1334, 41, 192, "Input"],
Cell[1927, 66, 82, 2, 32, "Output"],
Cell[2012, 70, 88, 1, 30, "Output"],
Cell[2103, 73, 235, 9, 56, "Output"],
Cell[2341, 84, 186, 5, 30, "Output"],
Cell[2530, 91, 71, 1, 30, "Output"],
Cell[2604, 94, 165, 5, 30, "Output"],
Cell[2772, 101, 105, 3, 32, "Output"],
Cell[2880, 106, 87, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)