(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      4146,        172]
NotebookOptionsPosition[      3460,        145]
NotebookOutlinePosition[      3882,        161]
CellTagsIndexPosition[      3839,        158]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1"}], "/", "3"}], ",", 
       RowBox[{"-", "sq22"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"sq22", ",", 
       RowBox[{
        RowBox[{"-", "1"}], "/", "3"}]}], "}"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sq22", " ", "=", " ", 
   RowBox[{"2", "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", "2", "]"}], "/", "3"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pc", "+", 
       RowBox[{"dlp", "/", "3"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "dlp"}], "*", "sq22"}], "}"}]}], "}"}]}], 
  "\[IndentingNewLine]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "3"]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SqrtBox["2"]}], "3"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SqrtBox["2"]}], "3"], ",", 
     RowBox[{"-", 
      FractionBox["1", "3"]}]}], "}"}]}], "}"}]], "Output"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SqrtBox["2"]}], "3"]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["dlp", "3"], "+", "pc"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", 
       SqrtBox["2"], " ", "dlp"}], "3"]}], "}"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["t.u", "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"8", " ", "dlp"}], "9"], "+", 
     RowBox[{
      FractionBox["1", "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["dlp", "3"]}], "-", "pc"}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SqrtBox["2"], " ", "dlp"}], "9"], "+", 
     RowBox[{
      FractionBox["2", "3"], " ", 
      SqrtBox["2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["dlp", "3"], "+", "pc"}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand[%]", "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"7", " ", "dlp"}], "9"], "-", 
     FractionBox["pc", "3"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", "dlp"}], "9"], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SqrtBox["2"], " ", "pc"}], "3"]}], "}"}]}], "}"}]], "Output"]
}, Open  ]]
},
WindowSize->{799, 740},
WindowMargins->{{27, Automatic}, {Automatic, 34}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 912, 31, 172, "Input"],
Cell[1494, 55, 423, 17, 51, "Output"],
Cell[1920, 74, 84, 3, 51, "Output"],
Cell[2007, 79, 273, 10, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2317, 94, 20, 0, 31, "Input"],
Cell[2340, 96, 630, 24, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3007, 125, 26, 0, 31, "Input"],
Cell[3036, 127, 408, 15, 51, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)