(* 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[      8235,        251]
NotebookOptionsPosition[      7670,        229]
NotebookOutlinePosition[      8013,        244]
CellTagsIndexPosition[      7970,        241]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"ptP", "=", 
  RowBox[{"{", 
   RowBox[{"3", ",", "1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ptR", "=", 
  RowBox[{"{", 
   RowBox[{"3", ",", "1", ",", "4"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ptQ", "=", 
  RowBox[{"{", 
   RowBox[{"3", ",", "5", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ptA", "=", 
  RowBox[{"{", 
   RowBox[{"5", ",", "5", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptB", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "0"}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"plE", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"6", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"6", ",", "6", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "6", ",", "0"}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox["Graphics3D",
   FontColor->GrayLevel[0]], 
  StyleBox["[",
   FontColor->GrayLevel[0]], 
  RowBox[{
   StyleBox["{",
    FontColor->GrayLevel[0]], 
   RowBox[{
    StyleBox[
     RowBox[{"Opacity", "[", ".5", "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"{", 
      RowBox[{"Polygon", "[", "plE", "]"}], "}"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{"ptP", ",", "ptR"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{"ptP", ",", "ptQ"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{"ptA", ",", "ptB"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{"ptR", ",", "ptQ"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{"ptR", ",", "ptA", ",", "ptP"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{"ptR", ",", "ptB", ",", "ptP"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{"ptR", ",", "ptA", ",", "ptB"}], "}"}], "]"}],
     FontColor->GrayLevel[0]], 
    StyleBox[",",
     FontColor->GrayLevel[0]], 
    StyleBox[
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"StringForm", "[", "\"\<P\>\"", "]"}], ",", "16", ",", 
         "Red"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", 
         RowBox[{"1", "-", "0.3"}], ",", 
         RowBox[{"0", "+", ".3"}]}], "}"}]}], "]"}],
     FontColor->RGBColor[1, 0.5, 0]]}], 
   StyleBox["}",
    FontColor->GrayLevel[0]]}], 
  StyleBox["]",
   FontColor->GrayLevel[0]]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.433552464600114*^9, 3.433552470287614*^9}, {
  3.433552926287614*^9, 3.433552933146989*^9}, {3.433552971053239*^9, 
  3.433552998662614*^9}, {3.433553056381364*^9, 3.433553152756364*^9}, {
  3.433553196193864*^9, 3.433553217365739*^9}, {3.433553350709489*^9, 
  3.433553353912614*^9}, {3.433553426709489*^9, 3.433553551818864*^9}, {
  3.433553608381364*^9, 3.433553666256364*^9}, {3.433553720803239*^9, 
  3.433553858240739*^9}, {3.433553933240739*^9, 3.433553933881364*^9}, {
  3.433553970350114*^9, 3.433553971396989*^9}, {3.433554006381364*^9, 
  3.433554043756364*^9}, {3.433554109553239*^9, 3.433554142771989*^9}, {
  3.433554179381364*^9, 3.433554274475114*^9}, {3.433554439209489*^9, 
  3.433554519959489*^9}, {3.433554642959489*^9, 3.433554669615739*^9}, {
  3.433555040678239*^9, 3.433555121256364*^9}, {3.433555321475114*^9, 
  3.433555343100114*^9}, {3.433555381350114*^9, 3.433555415459489*^9}, {
  3.433555850912614*^9, 3.433555958490739*^9}, {3.433556144162614*^9, 
  3.433556148193864*^9}, {3.433556193318864*^9, 3.433556196709489*^9}, {
  3.433557450162614*^9, 3.433557454240739*^9}, {3.433557498990739*^9, 
  3.433557537631364*^9}, {3.433557627521989*^9, 3.433557635209489*^9}, {
  3.433557691428239*^9, 3.433557696412614*^9}, {3.433557765756364*^9, 
  3.433557770209489*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "1", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "5", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5", ",", "5", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "5", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}],

Cell[BoxData[
 Graphics3DBox[
  {Opacity[0.5], Polygon3DBox[{{0, 0, 0}, {6, 0, 0}, {6, 6, 0}, {0, 6, 0}}], 
   Line3DBox[{{3, 1, 0}, {3, 1, 4}}], Line3DBox[{{3, 1, 0}, {3, 5, 0}}], 
   Line3DBox[{{5, 5, 0}, {1, 5, 0}}], Line3DBox[{{3, 1, 4}, {3, 5, 0}}], 
   Polygon3DBox[{{3, 1, 4}, {5, 5, 0}, {3, 1, 0}}], 
   Polygon3DBox[{{3, 1, 4}, {1, 5, 0}, {3, 1, 0}}], 
   Polygon3DBox[{{3, 1, 4}, {5, 5, 0}, {1, 5, 0}}], Text3DBox[
    FormBox[
     StyleBox[
      InterpretationBox["\<\"P\"\>",
       StringForm["P"],
       Editable->False],
      StripOnInput->False,
      FrontFaceColor->RGBColor[1, 0, 0],
      BackFaceColor->RGBColor[1, 0, 0],
      GraphicsColor->RGBColor[1, 0, 0],
      FontSize->16,
      FontColor->RGBColor[1, 0, 0]], TraditionalForm], {3, 0.7, 0.3}]},
  ImageSize->{360., 337.6839847333041},
  ViewPoint->{2.862262420761988, 1.3477877534735252`, 1.200384107809042},
  ViewVertical->{0.16504395942576455`, 0.2952879939034889, 
   1.4115673406732743`}]], "Output",
 CellChangeTimes->{3.433557640928239*^9, 3.433557737459489*^9, 
  3.433557776537614*^9}]
}, Open  ]]
},
WindowSize->{1016, 666},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 7, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 4687, 133, 232, "Input"],
Cell[5280, 158, 172, 4, 30, "Output"],
Cell[5455, 164, 172, 4, 30, "Output"],
Cell[5630, 170, 172, 4, 30, "Output"],
Cell[5805, 176, 172, 4, 30, "Output"],
Cell[5980, 182, 172, 4, 30, "Output"],
Cell[6155, 188, 418, 12, 30, "Output"],
Cell[6576, 202, 1078, 24, 353, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)