(* 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[     13547,        359]
NotebookOptionsPosition[     13206,        344]
NotebookOutlinePosition[     13552,        359]
CellTagsIndexPosition[     13509,        356]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"12.6", "  ", "#39"}], "   "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LINE", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["11", "7"]}], "-", 
        RowBox[{"23", " ", "t"}]}], ",", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["12", "7"]}], "+", "t"}], ",", 
       RowBox[{
        RowBox[{"-", "7"}], " ", "t"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Plane1", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["2", "7"]}], "+", 
      FractionBox[
       RowBox[{"2", " ", "x"}], "7"], "-", 
      FractionBox[
       RowBox[{"3", " ", "y"}], "7"]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Plane2", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      FractionBox["5", "3"], "+", 
      FractionBox["x", "3"], "+", 
      FractionBox[
       RowBox[{"2", " ", "y"}], "3"]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"LINE", ",", "Plane1", ",", "Plane2", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", 
   " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.412025072125*^9, 3.41202512259375*^9}, {
   3.412026097265625*^9, 3.412026097640625*^9}, {3.41202613184375*^9, 
   3.412026169828125*^9}, {3.4120262275*^9, 3.412026247078125*^9}, {
   3.412027005703125*^9, 3.41202701096875*^9}, {3.412028148984375*^9, 
   3.412028150828125*^9}, {3.412028184421875*^9, 3.41202818646875*^9}, {
   3.412028217609375*^9, 3.412028323546875*^9}, {3.412028453046875*^9, 
   3.412028517734375*^9}, {3.412028588875*^9, 3.412028615328125*^9}, {
   3.412028877015625*^9, 3.41202890421875*^9}, 3.41202900290625*^9, {
   3.412032344953125*^9, 3.41203249365625*^9}, {3.47017027721875*^9, 
   3.470170281875*^9}, {3.4723117188068733`*^9, 3.4723117211193733`*^9}}],

Cell[BoxData[{
 RowBox[{"\"\<Distance from point {x,y,z} to the plane aX + bY + cZ + d = 0   \
  , PlotRange\[Rule]{{0,2},{-3,-1},{-5,5}}          \>\"", " ", ";"}], "\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", 
 RowBox[{
  RowBox[{"12.6", " ", "#41"}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pnt1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", "     ", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.03", "]"}], ",", "  ", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}]}], "   ", "}"}], 
    "]"}]}], ";", 
  RowBox[{"Pnt2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", "     ", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.03", "]"}], ",", "  ", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "/", "9"}], ",", 
         RowBox[{
          RowBox[{"-", "8"}], "/", "9"}], ",", 
         RowBox[{"22", "/", "9"}]}], "}"}], "]"}]}], "   ", "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plane", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{"4", "-", 
      RowBox[{"2", "x"}], "+", 
      RowBox[{"2", "y"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "3"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Ln", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", "     ", 
     RowBox[{"Red", ",", "Dashed", ",", "  ", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "/", "9"}], ",", 
           RowBox[{
            RowBox[{"-", "8"}], "/", "9"}], ",", 
           RowBox[{"22", "/", "9"}]}], "}"}]}], "}"}], "]"}]}], "   ", "}"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"Plane", ",", "Pnt1", ",", "Pnt2", ",", "Ln", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"BoxRatios", "\[Rule]", "1"}], ",", " ", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1.3", ",", 
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "1"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"D2", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "1", ",", 
     RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.412025072125*^9, 3.41202512259375*^9}, {
   3.412026097265625*^9, 3.412026097640625*^9}, {3.41202613184375*^9, 
   3.412026169828125*^9}, {3.4120262275*^9, 3.412026247078125*^9}, {
   3.412027005703125*^9, 3.41202701096875*^9}, {3.412028148984375*^9, 
   3.412028150828125*^9}, {3.412028184421875*^9, 3.41202818646875*^9}, {
   3.412028217609375*^9, 3.412028323546875*^9}, {3.412028453046875*^9, 
   3.412028517734375*^9}, {3.412028588875*^9, 3.412028615328125*^9}, {
   3.412028877015625*^9, 3.41202890421875*^9}, 3.41202900290625*^9, {
   3.412032344953125*^9, 3.41203249365625*^9}, {3.47017027721875*^9, 
   3.47017033259375*^9}, {3.4723112304631233`*^9, 3.4723113655099983`*^9}, {
   3.4723114210568733`*^9, 3.4723115306974983`*^9}, {3.4723115693224983`*^9, 
   3.4723116364162483`*^9}, {3.4723116701349983`*^9, 
   3.4723116956818733`*^9}, {3.4723117561193733`*^9, 
   3.4723118053537483`*^9}, {3.4723118442756233`*^9, 3.4723119228068733`*^9}, 
   3.4723119586974983`*^9, {3.4723120025412483`*^9, 3.4723120462756233`*^9}, {
   3.4723120923068733`*^9, 3.4723121429943733`*^9}, {3.4723122000568733`*^9, 
   3.4723122618381233`*^9}, {3.4723123127599983`*^9, 
   3.4723123230256233`*^9}, {3.4723124661818733`*^9, 
   3.4723124814006233`*^9}, {3.4723125928693733`*^9, 3.4723126052131233`*^9}, 
   3.4723130617912483`*^9, {3.4723130994631233`*^9, 3.4723131006974983`*^9}, {
   3.4723131334943733`*^9, 3.4723131614631233`*^9}, {3.4723134388381233`*^9, 
   3.4723134395099983`*^9}, 3.4723135032287483`*^9, {3.4723135351818733`*^9, 
   3.4723135354006233`*^9}, {3.4723136726506233`*^9, 
   3.4723136746506233`*^9}, {3.4723137430099983`*^9, 3.4723137721506233`*^9}, 
   3.4723146702756233`*^9, 3.4723148199006233`*^9, {3.4723150260881233`*^9, 
   3.4723150979474983`*^9}, 3.4723152640256233`*^9, {3.4723152972599983`*^9, 
   3.4723153083693733`*^9}, {3.4723153590099983`*^9, 
   3.4723153669474983`*^9}, {3.4723154040099983`*^9, 
   3.4723154640099983`*^9}, {3.4723155982287483`*^9, 
   3.4723156259006233`*^9}, {3.4723156611818733`*^9, 
   3.4723156925256233`*^9}, {3.4723157365099983`*^9, 
   3.4723157488068733`*^9}, {3.4723157901037483`*^9, 
   3.4723160380724983`*^9}, {3.4723168066349983`*^9, 
   3.4723168229318733`*^9}, {3.4723168746818733`*^9, 3.4723168853224983`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"12.6", " ", "#45"}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"\"\<Distance between skew lines {X1,Y1,Z1},{a1,b1,c1}  and  \
{X2,Y2,Z2},{a2,b2,c2}\>\"", " ", ";"}], "\n", 
 RowBox[{
  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"}], "\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.412025072125*^9, 3.41202512259375*^9}, {
   3.412026097265625*^9, 3.412026097640625*^9}, {3.41202613184375*^9, 
   3.412026169828125*^9}, {3.4120262275*^9, 3.412026247078125*^9}, {
   3.412027005703125*^9, 3.41202701096875*^9}, {3.412028148984375*^9, 
   3.412028150828125*^9}, {3.412028184421875*^9, 3.41202818646875*^9}, {
   3.412028217609375*^9, 3.412028323546875*^9}, {3.412028453046875*^9, 
   3.412028517734375*^9}, {3.412028588875*^9, 3.412028615328125*^9}, {
   3.412028877015625*^9, 3.41202890421875*^9}, 3.41202900290625*^9, {
   3.412032344953125*^9, 3.41203249365625*^9}, {3.47017027721875*^9, 
   3.470170311859375*^9}, {3.47017035078125*^9, 3.47017036175*^9}, {
   3.4723117020881233`*^9, 3.4723117149631233`*^9}, {3.47257776003125*^9, 
   3.472577803609375*^9}}]
},
WindowSize->{1002, 739},
WindowMargins->{{Automatic, 83}, {Automatic, 72}},
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, 2957, 84, 180, "Input"],
Cell[3505, 106, 5629, 133, 210, "Input"],
Cell[9137, 241, 4065, 101, 152, "Input"]
}
]
*)

(* End of internal cache information *)