(* 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[      7961,        262]
NotebookOptionsPosition[      7182,        232]
NotebookOutlinePosition[      7526,        247]
CellTagsIndexPosition[      7483,        244]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "\"\<VectorAnalysis`\>\""}], 
  ";"}], "\n", "\"\<Point {x,y,z} to the line through {Xo, Yo, Zo} in {a,b,c} \
direction\>\"", "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"D1", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Xo_", ",", "Yo_", ",", "Zo_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}]}], "]"}], ":=", 
   FractionBox[
    RowBox[{"Norm", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Xo", "-", "x"}], ",", 
        RowBox[{"Yo", "-", "y"}], ",", 
        RowBox[{"Zo", "-", "z"}]}], "}"}], "\[Cross]", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], 
    RowBox[{"Norm", "[", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]]}], 
  ";"}], "\n", "\"\< 12.5 #43 \>\"", "\n", 
 RowBox[{"D1", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.411580347953125*^9}],

Cell[BoxData["\<\"Point {x,y,z} to the line through {Xo, Yo, Zo} in {a,b,c} \
direction\"\>"], "Output",
 CellChangeTimes->{3.411580357890625*^9}],

Cell[BoxData["\<\" 12.5 #43 \"\>"], "Output",
 CellChangeTimes->{3.411580357890625*^9}],

Cell[BoxData[
 RowBox[{"2", " ", 
  SqrtBox["5"]}]], "Output",
 CellChangeTimes->{3.4115803579375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "\"\<VectorAnalysis`\>\""}], 
  ";"}], "\n", "\"\<Point {x,y,z} to the plane aX + bY + cZ + d = 0 \>\"", "\n\
", 
 RowBox[{
  RowBox[{
   RowBox[{"D2", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "}"}]}], "]"}], ":=", 
   FractionBox[
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", 
      RowBox[{"b", " ", "y"}], "+", 
      RowBox[{"c", " ", "z"}], "+", "d"}], "]"}], 
    RowBox[{"Norm", "[", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]]}], 
  ";"}], "\n", "\"\< 12.6 #41 \>\"", "\n", 
 RowBox[{"D2", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "1", ",", 
     RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.411580380875*^9}],

Cell[BoxData["\<\"Point {x,y,z} to the plane aX + bY + cZ + d = 0 \"\>"], \
"Output",
 CellChangeTimes->{3.41158038534375*^9}],

Cell[BoxData["\<\" 12.6 #41 \"\>"], "Output",
 CellChangeTimes->{3.41158038534375*^9}],

Cell[BoxData[
 FractionBox["5", "3"]], "Output",
 CellChangeTimes->{3.41158038534375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "\"\<VectorAnalysis`\>\""}], 
  ";"}], "\n", "\"\<Between skew lines {X1,Y1,Z1},{a1,b1,c1}  and  \
{X2,Y2,Z2},{a2,b2,c2} \>\"", "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"D3", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"X1_", ",", "Y1_", ",", "Z1_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a1_", ",", "b1_", ",", "c1_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"X2_", ",", "Y2_", ",", "Z2_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a2_", ",", "b2_", ",", "c2_"}], "}"}]}], "]"}], ":=", 
   RowBox[{"D2", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"X1", ",", "Y1", ",", "Z1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], "\[Cross]", 
          RowBox[{"{", 
           RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], ")"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], "\[Cross]", 
          RowBox[{"{", 
           RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], ")"}], 
        "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], "\[Cross]", 
          RowBox[{"{", 
           RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], ")"}], 
        "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "X2"}], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], "\[Cross]", 
            RowBox[{"{", 
             RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], ")"}], 
          "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "-", 
        RowBox[{"Y2", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], "\[Cross]", 
            RowBox[{"{", 
             RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], ")"}], 
          "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "-", 
        RowBox[{"Z2", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], "\[Cross]", 
            RowBox[{"{", 
             RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], ")"}], 
          "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}]}], 
      "}"}]}], "]"}]}], ";"}], "\n", "\"\< 12.6 #45 \>\"", "\n", 
 RowBox[{"D3", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "1", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.4115803933125*^9}],

Cell[BoxData["\<\"Between skew lines {X1,Y1,Z1},{a1,b1,c1}  and  \
{X2,Y2,Z2},{a2,b2,c2} \"\>"], "Output",
 CellChangeTimes->{3.41158039715625*^9}],

Cell[BoxData["\<\" 12.6 #45 \"\>"], "Output",
 CellChangeTimes->{3.411580397203125*^9}],

Cell[BoxData[
 FractionBox["25", 
  RowBox[{"3", " ", 
   SqrtBox["14"]}]]], "Output",
 CellChangeTimes->{3.411580397203125*^9}]
}, Open  ]]
},
WindowSize->{1146, 891},
WindowMargins->{{Automatic, 35}, {-48, Automatic}},
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, 1263, 39, 130, "Input"],
Cell[1856, 64, 146, 2, 30, "Output"],
Cell[2005, 68, 87, 1, 30, "Output"],
Cell[2095, 71, 102, 3, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2234, 79, 1008, 32, 130, "Input"],
Cell[3245, 113, 126, 2, 30, "Output"],
Cell[3374, 117, 86, 1, 30, "Output"],
Cell[3463, 120, 89, 2, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3589, 127, 3206, 89, 152, "Input"],
Cell[6798, 218, 147, 2, 30, "Output"],
Cell[6948, 222, 87, 1, 30, "Output"],
Cell[7038, 225, 128, 4, 49, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)