(* 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[      6277,        208]
NotebookOptionsPosition[      5940,        193]
NotebookOutlinePosition[      6286,        208]
CellTagsIndexPosition[      6243,        205]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 StyleBox["\"\< 12.5  #24   \>\"",
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"LINE", "  ", "=", "  ", 
    RowBox[{"ParametricPlot3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"2", "-", "t"}], ",", 
        RowBox[{"3", "t"}], ",", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", "t"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"Plane", "=", "  ", 
    RowBox[{"Plot3D", "[", 
     RowBox[{
      RowBox[{"2", " ", "-", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "y"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}],
  FontSize->14], "\n", 
 RowBox[{
  StyleBox["Show",
   FontSize->14], 
  StyleBox["[",
   FontSize->14], 
  RowBox[{
   StyleBox["LINE",
    FontSize->14], 
   StyleBox[",",
    FontSize->14], 
   StyleBox["Plane",
    FontSize->14], 
   StyleBox[",",
    FontSize->14], 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", 
   " ", 
   RowBox[{"ViewPoint", "->", 
    RowBox[{"{", 
     RowBox[{"1.300", ",", " ", 
      RowBox[{"-", "2.400"}], ",", " ", "2.000"}], "}"}]}]}], 
  StyleBox["]",
   FontSize->14]}]}], "Input",
 CellChangeTimes->{{3.410363637421875*^9, 3.410363650046875*^9}, 
   3.410363697484375*^9, {3.410363789796875*^9, 3.410363796921875*^9}, 
   3.410363871109375*^9, {3.41036392075*^9, 3.41036392340625*^9}, {
   3.41036524640625*^9, 3.410365295078125*^9}, {3.470170137921875*^9, 
   3.470170150765625*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   StyleBox["\"\< 12.5  #27   \>\"",
    FontSize->14], "\n", 
   StyleBox[
    RowBox[{
     RowBox[{"LINE1", "  ", "=", "  ", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{"7", "t"}]}], ",", 
          RowBox[{"3", "+", "t"}], ",", 
          RowBox[{"5", "-", 
           RowBox[{"3", "t"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ";"}],
    FontSize->14], "\n", 
   StyleBox[
    RowBox[{
     RowBox[{"LINE2", "  ", "=", "  ", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"4", "-", "t"}], ",", "6", ",", 
          RowBox[{"7", "+", 
           RowBox[{"2", "t"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", 
          RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}],
    FontSize->14], "\n", 
   RowBox[{
    StyleBox["Show",
     FontSize->14], 
    StyleBox["[",
     FontSize->14], 
    RowBox[{
     StyleBox["LINE1",
      FontSize->14], 
     StyleBox[",",
      FontSize->14], 
     StyleBox["LINE2",
      FontSize->14], 
     StyleBox[",",
      FontSize->14], 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], 
     ",", 
     RowBox[{"ViewPoint", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.019"}], ",", " ", 
        RowBox[{"-", "1.837"}], ",", " ", "2.000"}], "}"}]}]}], " ", "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.410363904359375*^9, 3.410363943625*^9}, {
   3.410363992515625*^9, 3.4103640070625*^9}, 3.410365334828125*^9, {
   3.47017000853125*^9, 3.470170012484375*^9}, {3.470170080015625*^9, 
   3.47017012096875*^9}}],

Cell[BoxData[{"\"\< 12.5 #43 \>\"", "\[IndentingNewLine]", 
 RowBox[{"\"\<Distance from 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", 
 RowBox[{"D1", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.410363904359375*^9, 3.410363943625*^9}, {
   3.410363992515625*^9, 3.4103640070625*^9}, 3.410365334828125*^9, {
   3.47017000853125*^9, 3.470170028515625*^9}, {3.470170187859375*^9, 
   3.47017022646875*^9}}]
},
WindowSize->{1002, 739},
WindowMargins->{{10, Automatic}, {80, 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, 1920, 64, 92, "Input"],
Cell[2468, 86, 2040, 64, 132, "Input"],
Cell[4511, 152, 1425, 39, 110, "Input"]
}
]
*)

(* End of internal cache information *)