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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     18399,        547]
NotebookOptionsPosition[     17097,        499]
NotebookOutlinePosition[     17519,        515]
CellTagsIndexPosition[     17476,        512]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s0", ":=", 
    RowBox[{"bH", " ", "cV"}]}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.5469362727807837`*^9, 3.5469364635284777`*^9}, {
   3.546936529929571*^9, 3.5469366000730715`*^9}, {3.5469368269212103`*^9, 
   3.5469368289412127`*^9}, {3.5469369651482086`*^9, 
   3.5469369661782103`*^9}, {3.5469370876229887`*^9, 3.5469370967476025`*^9}, 
   3.546937154010085*^9, {3.5469373168037276`*^9, 3.5469373231737366`*^9}, {
   3.5469375613280916`*^9, 3.546937583885524*^9}, {3.546937831944892*^9, 
   3.5469378338648944`*^9}, {3.546939256579835*^9, 3.546939258729838*^9}, 
   3.566101348851573*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s0", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bH", "\[Rule]", 
        FractionBox[
         RowBox[{"bHp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "cHp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cH", "\[Rule]", 
        FractionBox[
         RowBox[{"cHp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "bHp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"bV", "\[Rule]", 
        FractionBox[
         RowBox[{"bVp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cV", "\[Rule]", 
        FractionBox[
         RowBox[{"cVp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], 
         SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.546936604774078*^9, 3.546936605674079*^9}, {
   3.546937609109762*^9, 3.546937639959412*^9}, 3.5469383409548535`*^9, {
   3.5469384181713705`*^9, 3.546938419161372*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "bHp", " ", "bVp"}], "2"], "-", 
  FractionBox[
   RowBox[{"bVp", " ", "cHp"}], "2"], "+", 
  FractionBox[
   RowBox[{"bHp", " ", "cVp"}], "2"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "cHp", " ", "cVp"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.5469366059240794`*^9, 3.546936841347231*^9, 3.5469369684334135`*^9, {
   3.5469370741421685`*^9, 3.546937099897607*^9}, {3.5469371396080647`*^9, 
   3.5469371592700925`*^9}, 3.546937324833739*^9, 3.546937528972044*^9, {
   3.546937586065527*^9, 3.5469376402394123`*^9}, 3.5469377613477917`*^9, 
   3.546937838905902*^9, 3.546938343591258*^9, {3.546938419531372*^9, 
   3.546938437285599*^9}, 3.546939265359847*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s1", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bHp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], 
           FractionBox["\[Pi]", "4"]}], "]"}], "bRp"}]}], ",", 
       RowBox[{"bVp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], 
           FractionBox[
            RowBox[{"3", "\[Pi]"}], "4"]}], "]"}], "bLp"}]}], ",", 
       RowBox[{"cHp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], 
           FractionBox["\[Pi]", "4"]}], "]"}], "cLp"}]}], ",", 
       RowBox[{"cVp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", 
           FractionBox["\[Pi]", "4"]}], "]"}], "cRp"}]}]}], "}"}]}], "//", 
    "Simplify"}], "//", "Expand"}]}]], "Input",
 CellChangeTimes->{{3.546936466159481*^9, 3.5469365222495604`*^9}, {
   3.5469365909630585`*^9, 3.5469366743419776`*^9}, {3.5469376488634253`*^9, 
   3.5469376504134274`*^9}, 3.5469383526504717`*^9, 3.5469384414284067`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", "bLp", " ", "bRp"}], 
  "+", 
  FractionBox[
   RowBox[{"bLp", " ", "cLp"}], "2"], "+", 
  FractionBox[
   RowBox[{"bRp", " ", "cRp"}], "2"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "cLp", " ", "cRp"}], "2"]}]], "Output",
 CellChangeTimes->{{3.546936663116562*^9, 3.546936674525578*^9}, 
   3.5469368420372324`*^9, {3.546936969943415*^9, 3.5469369841796355`*^9}, {
   3.546937074732169*^9, 3.546937101037608*^9}, {3.5469371404880657`*^9, 
   3.5469371603000937`*^9}, 3.5469373260137405`*^9, 3.546937529032044*^9, {
   3.546937621050582*^9, 3.5469376506634283`*^9}, 3.546937762077793*^9, 
   3.546937878014161*^9, 3.546938353380472*^9, {3.5469384383552012`*^9, 
   3.5469384420056076`*^9}, 3.546939265919848*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s2", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bRp", "\[Rule]", 
        FractionBox[
         RowBox[{"bHp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"bLp", "\[Rule]", 
        FractionBox[
         RowBox[{"bHp", "-", 
          RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cRp", "\[Rule]", 
        FractionBox[
         RowBox[{"cHp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cLp", "\[Rule]", 
        FractionBox[
         RowBox[{"cHp", "-", 
          RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], 
         SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.546936692920005*^9, 3.5469367549383*^9}, {
   3.5469376642956495`*^9, 3.5469376694384575`*^9}, 3.546938356000476*^9, 
   3.5469384433356094`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["bHp", "2"]}], "4"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["bVp", "2"]}], "4"], "+", 
  FractionBox[
   RowBox[{"bHp", " ", "cHp"}], "2"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["cHp", "2"]}], "4"], "-", 
  FractionBox[
   RowBox[{"bVp", " ", "cVp"}], "2"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["cVp", "2"]}], "4"]}]], "Output",
 CellChangeTimes->{
  3.5469367565083017`*^9, 3.546936842727233*^9, 3.5469369991738567`*^9, {
   3.546937075624171*^9, 3.5469371024376106`*^9}, {3.5469371413390675`*^9, 
   3.546937161840096*^9}, 3.5469373267937417`*^9, 3.5469375290820436`*^9, 
   3.546937622526984*^9, {3.546937662071246*^9, 3.5469376700084586`*^9}, 
   3.5469377629377947`*^9, 3.546938010533557*^9, 3.546938356500477*^9, 
   3.5469384437656107`*^9, 3.546939266529849*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s4", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s3", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bHp", "\[Rule]", 
        FractionBox[
         RowBox[{"bHpp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "cHpp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cHp", "\[Rule]", 
        FractionBox[
         RowBox[{"cHpp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "bHpp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"bVp", "\[Rule]", 
        FractionBox[
         RowBox[{"bVpp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "cVpp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cVp", "\[Rule]", 
        FractionBox[
         RowBox[{"cVpp", "+", 
          RowBox[{"\[ImaginaryI]", " ", "bVpp"}]}], 
         SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.5469367744917297`*^9, 3.546936799993969*^9}, {
   3.5469376728724627`*^9, 3.546937673832464*^9}, {3.546938364098288*^9, 
   3.5469383971579375`*^9}, 3.5469384472824163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["bVpp", "2"]}], "2"]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["cHpp", "2"]}], "2"]}]], "Output",
 CellChangeTimes->{
  3.54693680078957*^9, 3.546936843297234*^9, 3.54693700854387*^9, {
   3.5469370765289726`*^9, 3.5469371038176126`*^9}, {3.5469371422190685`*^9, 
   3.5469371628200974`*^9}, 3.5469373276837425`*^9, 3.546937529142044*^9, 
   3.546937623993387*^9, 3.5469376740724645`*^9, 3.5469377637377954`*^9, 
   3.5469380125459604`*^9, {3.546938365998291*^9, 3.5469383977779384`*^9}, 
   3.546938447682417*^9, 3.54693926731985*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5469380464590096`*^9, 3.5469380464790096`*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s4", ":=", 
    RowBox[{"bHpp", " ", "cVpp"}]}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.5469362727807837`*^9, 3.5469364635284777`*^9}, {
   3.546936529929571*^9, 3.5469366000730715`*^9}, {3.5469368269212103`*^9, 
   3.5469368289412127`*^9}, {3.5469369651482086`*^9, 
   3.5469369661782103`*^9}, {3.5469370876229887`*^9, 3.5469370967476025`*^9}, 
   3.546937154010085*^9, {3.5469373168037276`*^9, 3.5469373231737366`*^9}, {
   3.5469375613280916`*^9, 3.546937583885524*^9}, {3.546937831944892*^9, 
   3.5469378338648944`*^9}, {3.546938051958618*^9, 3.5469380663780384`*^9}, {
   3.5469384675400467`*^9, 3.546938497423089*^9}, {3.546938827707986*^9, 
   3.546938833977995*^9}, {3.546938916815115*^9, 3.5469389362387466`*^9}, {
   3.546938970001598*^9, 3.546938993084032*^9}, 3.566101343012022*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s4", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bHpp", "\[Rule]", 
        FractionBox[
         RowBox[{"bHp", "-", 
          RowBox[{"\[ImaginaryI]", " ", "cHp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cHpp", "\[Rule]", 
        FractionBox[
         RowBox[{"cHp", "-", 
          RowBox[{"\[ImaginaryI]", " ", "bHp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"bVpp", "\[Rule]", 
        FractionBox[
         RowBox[{"bVp", "-", 
          RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cVpp", "\[Rule]", 
        FractionBox[
         RowBox[{"cVp", "-", 
          RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], 
         SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.546936604774078*^9, 3.546936605674079*^9}, {
   3.546937609109762*^9, 3.546937639959412*^9}, {3.5469380969282837`*^9, 
   3.546938113468109*^9}, {3.5469381964726343`*^9, 3.546938207340251*^9}, {
   3.546938248399312*^9, 3.5469382656315384`*^9}, {3.546938320810822*^9, 
   3.5469383271152315`*^9}, 3.546938596170636*^9, {3.5469388489122167`*^9, 
   3.546938849862218*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", "bHp", " ", "bVp"}], 
  "-", 
  FractionBox[
   RowBox[{"bVp", " ", "cHp"}], "2"], "+", 
  FractionBox[
   RowBox[{"bHp", " ", "cVp"}], "2"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "cHp", " ", "cVp"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.5469366059240794`*^9, 3.546936841347231*^9, 3.5469369684334135`*^9, {
   3.5469370741421685`*^9, 3.546937099897607*^9}, {3.5469371396080647`*^9, 
   3.5469371592700925`*^9}, 3.546937324833739*^9, 3.546937528972044*^9, {
   3.546937586065527*^9, 3.5469376402394123`*^9}, 3.5469377613477917`*^9, 
   3.546937838905902*^9, 3.546938266051539*^9, {3.5469383217808237`*^9, 
   3.5469383273960323`*^9}, 3.546938506459903*^9, {3.5469385965606365`*^9, 
   3.546938599202241*^9}, {3.546938836427998*^9, 3.546938876054056*^9}, {
   3.5469389459011602`*^9, 3.546938995124035*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s3", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bHp", "\[Rule]", 
        FractionBox[
         RowBox[{"bRp", "+", "bLp"}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"bVp", "\[Rule]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], 
         FractionBox[
          RowBox[{"bRp", "-", "bLp"}], 
          SqrtBox["2"]]}]}], ",", 
       RowBox[{"cHp", "\[Rule]", 
        FractionBox[
         RowBox[{"cRp", "+", "cLp"}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cVp", "\[Rule]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], 
         FractionBox[
          RowBox[{"cRp", "-", "cLp"}], 
          SqrtBox["2"]]}]}]}], "}"}]}], "//", "Simplify"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.546938278684758*^9, 3.5469382816043625`*^9}, 
   3.546938319103619*^9, {3.5469385125371127`*^9, 3.5469385911796293`*^9}, 
   3.546938853154623*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["bLp", "2"], "4"], "-", 
  FractionBox[
   SuperscriptBox["bRp", "2"], "4"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "bRp", " ", "cLp"}], "2"], "+", 
  FractionBox[
   SuperscriptBox["cLp", "2"], "4"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "bLp", " ", "cRp"}], "2"], "-", 
  FractionBox[
   SuperscriptBox["cRp", "2"], "4"]}]], "Output",
 CellChangeTimes->{{3.546938587619624*^9, 3.5469385998418417`*^9}, {
  3.546938837509*^9, 3.5469388812150636`*^9}, {3.5469389481579638`*^9, 
  3.546938995844036*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s2", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bRp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", 
           FractionBox["\[Pi]", "4"]}], "]"}], "bHp"}]}], ",", 
       RowBox[{"bLp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", 
           FractionBox[
            RowBox[{"3", "\[Pi]"}], "4"]}], "]"}], "bVp"}]}], ",", 
       RowBox[{"cLp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", 
           FractionBox["\[Pi]", "4"]}], "]"}], "cHp"}]}], ",", 
       RowBox[{"cRp", "\[Rule]", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], 
           FractionBox["\[Pi]", "4"]}], "]"}], "cVp"}]}]}], "}"}]}], "//", 
    "Simplify"}], "//", "Expand"}]}]], "Input",
 CellChangeTimes->{{3.54693861243526*^9, 3.5469386286962824`*^9}, {
   3.546938740564853*^9, 3.5469387746865053`*^9}, 3.5469388541374245`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["bHp", "2"]}], "4"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["bVp", "2"]}], "4"], "-", 
  FractionBox[
   RowBox[{"bHp", " ", "cHp"}], "2"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["cHp", "2"]}], "4"], "+", 
  FractionBox[
   RowBox[{"bVp", " ", "cVp"}], "2"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["cVp", "2"]}], "4"]}]], "Output",
 CellChangeTimes->{{3.5469387713033*^9, 3.5469387753417063`*^9}, {
  3.546938838649001*^9, 3.546938882115065*^9}, {3.5469389492031655`*^9, 
  3.546938996704037*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s0", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"s1", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bHp", "\[Rule]", 
        FractionBox[
         RowBox[{"bH", "-", 
          RowBox[{"\[ImaginaryI]", " ", "cH"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cHp", "\[Rule]", 
        FractionBox[
         RowBox[{"cH", "-", 
          RowBox[{"\[ImaginaryI]", " ", "bH"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"bVp", "\[Rule]", 
        FractionBox[
         RowBox[{"bV", "-", 
          RowBox[{"\[ImaginaryI]", " ", "cV"}]}], 
         SqrtBox["2"]]}], ",", 
       RowBox[{"cVp", "\[Rule]", 
        FractionBox[
         RowBox[{"cV", "-", 
          RowBox[{"\[ImaginaryI]", " ", "bV"}]}], 
         SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.5469387835713205`*^9, 3.546938809543358*^9}, 
   3.5469388548202257`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["bV", "2"]}], "2"]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["cH", "2"]}], "2"]}]], "Output",
 CellChangeTimes->{{3.5469388103233585`*^9, 3.5469388830250664`*^9}, {
  3.5469389503743677`*^9, 3.5469389976350384`*^9}}]
}, Open  ]]
},
WindowSize->{1350, 631},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 723, 13, 52, "Input"],
Cell[CellGroupData[{
Cell[1305, 37, 1039, 30, 53, "Input"],
Cell[2347, 69, 749, 16, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3133, 90, 1233, 34, 46, "Input"],
Cell[4369, 126, 833, 18, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5239, 149, 1019, 30, 53, "Input"],
Cell[6261, 181, 990, 25, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7288, 211, 1055, 30, 53, "Input"],
Cell[8346, 243, 681, 15, 49, "Output"]
}, Open  ]],
Cell[9042, 261, 96, 1, 31, "Input"],
Cell[9141, 264, 925, 15, 52, "Input"],
Cell[CellGroupData[{
Cell[10091, 283, 1249, 33, 53, "Input"],
Cell[11343, 318, 936, 20, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12316, 343, 977, 30, 52, "Input"],
Cell[13296, 375, 591, 16, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13924, 396, 1098, 31, 46, "Input"],
Cell[15025, 429, 715, 21, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15777, 455, 939, 29, 53, "Input"],
Cell[16719, 486, 362, 10, 49, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)