mcm2012b.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     36847,        696]
NotebookOptionsPosition[     35902,        665]
NotebookOutlinePosition[     36249,        680]
CellTagsIndexPosition[     36206,        677]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Z", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", " ", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", 
       "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
       "1", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
       "0", ",", "1", ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", 
       "1", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "2", ",", 
       "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", 
       "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
       "1", ",", "0", ",", " ", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", "1", ",", " ", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZZ", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", " ", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", 
        "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
        "1", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
        "0", ",", "1", ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", 
        "1", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "2", ",", 
        "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", 
        "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", 
        "0", ",", " ", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", 
        "1", ",", " ", "0"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Z", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<Desired number of \
trips of length 6,7,...,18\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CC", "=", 
    RowBox[{"{", 
     RowBox[{
     "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", ",", "15", 
      ",", "15", ",", "15", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<Matrix that applies \
transformations\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZZZ", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"ZZ", ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZZZ", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"ZZZ", ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"3", "-", "1"}], ",", 
       RowBox[{"3", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZZZ", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"ZZZ", ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"6", "-", "2"}], ",", 
       RowBox[{"6", "-", "2"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZZZ", "=", 
    RowBox[{"Drop", "[", 
     RowBox[{"ZZZ", ",", 
      RowBox[{"{", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"8", "-", "3"}], ",", 
        RowBox[{"8", "-", "3"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<simulated annealing \
finds the solution that gets closet to CC\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "aa", ",", "bb", ",", "cc", ",", "dd", ",", "ee", ",", "ff", ",", "gg", 
     ",", "hh", ",", "ii", ",", "jj", ",", "kk", ",", "ll", ",", " ", "mm", 
     ",", " ", "nn", ",", " ", "oo", ",", "pp"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"x", " ", "/.", 
    RowBox[{"Last", "[", 
     RowBox[{"NMinimize", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ZZ", ".", "x"}], " ", "-", " ", "CC"}], ")"}], ".", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ZZ", ".", "x"}], " ", "-", " ", "CC"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
            "aa", "|", "bb", "|", "cc", "|", "dd", "|", "ee", "|", "ff", "|", 
             "gg", "|", "hh", "|", "ii", "|", "jj", "|", "kk", "|", "ll", "|",
              "mm", "|", "nn", "|", "oo", "|", "pp"}], ")"}], " ", 
           "\[Element]", " ", "Integers"}], " ", "&&", " ", 
          RowBox[{"aa", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"bb", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"cc", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"dd", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"ee", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"ff", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"gg", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"hh", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"ii", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"jj", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"kk", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"ll", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"mm", " ", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"ll", " ", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"oo", " ", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", 
          RowBox[{"pp", " ", "\[GreaterEqual]", " ", "0"}]}]}], "}"}], ",", 
       "x", ",", 
       RowBox[{"Method", "\[Rule]", "\"\<SimulatedAnnealing\>\""}]}], "]"}], 
     "]"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<Gives the number of \
trips of length 6,7,...,17 after transformations have been applied\>\"", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZZ", ".", "y"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<remaining number of \
trips of length 18\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", " ", "=", " ", 
   RowBox[{"162", "+", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", " ", 
       RowBox[{"-", "1"}], ",", " ", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}], ",", " ", 
       RowBox[{"-", "2"}], ",", " ", 
       RowBox[{"-", "1"}]}], "}"}], ".", "y"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<Double check that our \
trips still add up to 162 trips of 18 days each\>\"", "\[IndentingNewLine]", 
 RowBox[{"sum", " ", "=", 
  RowBox[{
   RowBox[{"z", "*", "18"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", 
      "13", ",", "14", ",", "15", ",", "16", ",", "17"}], "}"}], ".", 
    RowBox[{"(", 
     RowBox[{"ZZ", ".", "y"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"\"\<For[i=1 , i\[LessEqual]13,i++,\[IndentingNewLine]For[j=i+1 , j\
\[LessEqual]14,j++,\[IndentingNewLine]For[k=j+1 , k\[LessEqual]15,k++,\
\[IndentingNewLine]For[m=k+1 , \
m\[LessEqual]16,m++,\[IndentingNewLine]Z1=Drop[ZZ,{},{i,i}];\
\[IndentingNewLine]Z1=Drop[Z1,{},{j-1,j-1}];\[IndentingNewLine]Z1=Drop[Z1,{},{\
k-2,k-2}];\[IndentingNewLine]Z1=Drop[Z1,{},{m-3,m-3}];\[IndentingNewLine]If[\
\[IndentingNewLine]Det[Z1] != \
0,\[IndentingNewLine]Print[i]\[IndentingNewLine]Print[j]\[IndentingNewLine]\
Print[k]\[IndentingNewLine]Print[m],]]]]]\>\"", ";"}]}], "Input",
 CellChangeTimes->{{3.538075099422646*^9, 3.5380751010417385`*^9}, {
   3.538075138110859*^9, 3.538075289208501*^9}, {3.538075320902314*^9, 
   3.5380753373822565`*^9}, {3.5380753690260663`*^9, 
   3.5380754011059017`*^9}, {3.538075626229778*^9, 3.5380756990989456`*^9}, {
   3.538075739301245*^9, 3.5380757551501513`*^9}, {3.53807585495186*^9, 
   3.5380759586357903`*^9}, {3.538076003850376*^9, 3.5380761117105455`*^9}, {
   3.538076339175556*^9, 3.5380763782787924`*^9}, {3.538076418922117*^9, 
   3.538076423621386*^9}, {3.538076475916377*^9, 3.5380764778094854`*^9}, {
   3.53807674941002*^9, 3.5380767979427958`*^9}, {3.5380773823992248`*^9, 
   3.53807752427234*^9}, 3.5380826589140244`*^9, {3.5380827644090586`*^9, 
   3.5380827657481346`*^9}, {3.5380831970558043`*^9, 3.538083210933598*^9}, {
   3.5380832826216984`*^9, 3.5380833099442616`*^9}, {3.5380834233067455`*^9, 
   3.538083444245943*^9}, {3.538083518276177*^9, 3.538083576528509*^9}, {
   3.5380836096134014`*^9, 3.538083626972394*^9}, {3.5380837042088118`*^9, 
   3.538083840872628*^9}, {3.538083876440663*^9, 3.5380838801048727`*^9}, {
   3.53808391082463*^9, 3.53808410874395*^9}, {3.5380841645151396`*^9, 
   3.538084165366188*^9}, {3.538084229520858*^9, 3.5380842774536*^9}, {
   3.5380843237512474`*^9, 3.5380843315296926`*^9}, {3.538084591031535*^9, 
   3.5380846555522256`*^9}, {3.5380848786959887`*^9, 
   3.5380851906728325`*^9}, {3.538085277908822*^9, 3.5380852819620543`*^9}, {
   3.538085313452855*^9, 3.5380854592191925`*^9}, {3.53808550846801*^9, 
   3.5380855086760216`*^9}, {3.5380855412668858`*^9, 
   3.5380855425599594`*^9}, {3.5380862371616883`*^9, 
   3.5380863464519396`*^9}, {3.5380863813189335`*^9, 3.538086456819252*^9}, {
   3.538086561119218*^9, 3.53808661920354*^9}, {3.5380866649561567`*^9, 
   3.5380867024222994`*^9}, {3.5380867598725853`*^9, 
   3.5380867994188476`*^9}, {3.5380869033207903`*^9, 3.538086921611837*^9}, {
   3.5380869917128463`*^9, 3.538087115177908*^9}, {3.538087186909011*^9, 
   3.5380872027649174`*^9}, {3.538087281816439*^9, 3.538087359664892*^9}, {
   3.538087618862717*^9, 3.538087657807945*^9}, {3.538087738467558*^9, 
   3.5380877948177814`*^9}, {3.5380878279896784`*^9, 
   3.5380878763614454`*^9}, {3.5380880097930775`*^9, 3.538088041108868*^9}, {
   3.538088104747508*^9, 3.5380881954546967`*^9}, {3.538088231661767*^9, 
   3.538088233966899*^9}, {3.5380883494125023`*^9, 3.538088374945963*^9}, {
   3.5380886089393463`*^9, 3.5380886194739485`*^9}, {3.5380886682277374`*^9, 
   3.5380886714869237`*^9}, {3.5380888036914854`*^9, 3.538088834818266*^9}, {
   3.5380888805848837`*^9, 3.5380889192410946`*^9}, {3.5380889541030884`*^9, 
   3.538088998484627*^9}, {3.5380890341176653`*^9, 3.538089084835566*^9}, {
   3.538089226208652*^9, 3.538089350213745*^9}, {3.538089400320611*^9, 
   3.5380894939749675`*^9}, {3.538089613029777*^9, 3.538089688018066*^9}, {
   3.5380897861176767`*^9, 3.5380898081759386`*^9}, {3.538089841400839*^9, 
   3.5380899375493383`*^9}, {3.5380900514678545`*^9, 
   3.5380900555640883`*^9}, {3.538090152500633*^9, 3.5380901575479217`*^9}, {
   3.5380902273589144`*^9, 3.538090250075214*^9}, {3.5380903317898874`*^9, 
   3.53809034127343*^9}, {3.5380904053550954`*^9, 3.5380904302865214`*^9}, {
   3.5380905042797537`*^9, 3.538090525517968*^9}, {3.538090572531657*^9, 
   3.5380905727296686`*^9}, {3.5380906089397397`*^9, 3.53809062170547*^9}, {
   3.53809065423433*^9, 3.5380906555314045`*^9}, {3.5380907354489756`*^9, 
   3.5380908188177443`*^9}, {3.5380908504405527`*^9, 3.538090856213883*^9}, {
   3.538090949535221*^9, 3.5380910610535994`*^9}, {3.5380910989507666`*^9, 
   3.538091099495798*^9}, 3.538091165212557*^9, {3.5380912443380823`*^9, 
   3.5380913595316715`*^9}, {3.5380914083784647`*^9, 3.538091536831812*^9}, {
   3.5381568268801885`*^9, 3.538156960615838*^9}, {3.5381570504419756`*^9, 
   3.538157050742993*^9}, {3.538157115238682*^9, 3.5381571253042574`*^9}, {
   3.5381572380787077`*^9, 3.538157238184714*^9}, {3.538157328141859*^9, 
   3.5381573284118743`*^9}, {3.538157378568743*^9, 3.538157445507572*^9}, {
   3.5381576808610334`*^9, 3.5381577103147182`*^9}, {3.538157802748005*^9, 
   3.538157862384416*^9}, {3.5381578938302145`*^9, 3.5381579538516474`*^9}, {
   3.538158029094951*^9, 3.5381581313698015`*^9}, {3.538158209137249*^9, 
   3.5381582168016877`*^9}, {3.538162241825906*^9, 3.5381622432519875`*^9}}],

Cell[BoxData["\<\"Desired number of trips of length 6,7,...,18\"\>"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.538158217663737*^9}],

Cell[BoxData["\<\"Matrix that applies transformations\"\>"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.538158217665737*^9}],

Cell[BoxData["\<\"simulated annealing finds the solution that gets closet to \
CC\"\>"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.538158217667737*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "1", ",", "4", ",", "2", ",", "3", ",", "2", ",", "2", 
   ",", "5", ",", "5", ",", "1", ",", "1", ",", "4", ",", "2", ",", "2", ",", 
   "4"}], "}"}]], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.53815821964185*^9}],

Cell[BoxData["\<\"Gives the number of trips of length 6,7,...,17 after \
transformations have been applied\"\>"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.5381582196438503`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12", ",", "5", ",", "8", ",", "13", ",", "13", ",", "15", ",", "16", ",", 
   "2", ",", "5", ",", "7", ",", "7", ",", "8"}], "}"}]], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.53815821964585*^9}],

Cell[BoxData["\<\"remaining number of trips of length 18\"\>"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.5381582196478505`*^9}],

Cell[BoxData["94"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.5381582196488504`*^9}],

Cell[BoxData["\<\"Double check that our trips still add up to 162 trips of 18 \
days each\"\>"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.5381582196508503`*^9}],

Cell[BoxData["2916"], "Output",
 CellChangeTimes->{
  3.538088198339861*^9, 3.5380882674818163`*^9, 3.538088364865386*^9, 
   3.538088621113043*^9, 3.538088835800322*^9, 3.538088882135972*^9, 
   3.538088915941906*^9, 3.538089001474798*^9, 3.5380890561339245`*^9, {
   3.5380890876327257`*^9, 3.53808910886594*^9}, {3.5380892400924463`*^9, 
   3.5380892730743327`*^9}, {3.538089303715085*^9, 3.5380893195209894`*^9}, {
   3.538089461945135*^9, 3.5380894889426794`*^9}, {3.5380896220602937`*^9, 
   3.5380896423574543`*^9}, 3.5380896903151975`*^9, 3.5380898102150555`*^9, 
   3.538089866472273*^9, {3.53808991450102*^9, 3.5380899400944843`*^9}, 
   3.5380900573411903`*^9, 3.538090159668043*^9, {3.538090230726107*^9, 
   3.53809025035723*^9}, {3.538090406260147*^9, 3.538090417344781*^9}, {
   3.5380905097630672`*^9, 3.538090526875046*^9}, 3.5380906368523364`*^9, 
   3.5380907275645247`*^9, 3.5380907603023973`*^9, {3.5380908010477276`*^9, 
   3.5380908205598435`*^9}, 3.5380908584230094`*^9, {3.53809095301042*^9, 
   3.538090965552137*^9}, {3.538091001662202*^9, 3.5380910638027563`*^9}, 
   3.5380911012769*^9, 3.538091167294676*^9, {3.538091272506694*^9, 
   3.5380912842623663`*^9}, {3.5380913463139153`*^9, 3.5380913615347853`*^9}, 
   3.5380914318778095`*^9, 3.538091488624055*^9, 3.538091565833471*^9, 
   3.538156828685292*^9, {3.5381568770190563`*^9, 3.538156961305877*^9}, {
   3.538157052009065*^9, 3.538157095683563*^9}, 3.5381571261283045`*^9, 
   3.538157238853752*^9, 3.5381573288849015`*^9, {3.538157380504854*^9, 
   3.538157446225613*^9}, {3.538157691326632*^9, 3.5381577109177523`*^9}, 
   3.5381579858504777`*^9, 3.538158132630873*^9, 3.5381582196528506`*^9}]
}, Open  ]],

Cell[BoxData["\"\<Matrix that applies transformations\>\""], "Input",
 CellChangeTimes->{3.5380915449202747`*^9}],

Cell[BoxData["\"\<Matrix that applies transformations\>\""], "Input",
 CellChangeTimes->{{3.538157005571409*^9, 3.5381570074315157`*^9}}],

Cell[BoxData[""], "Input"],

Cell[BoxData[""], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RowReduce", "[", "ZZ", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.538076695669946*^9, 3.538076714598029*^9}, {
  3.538076804821189*^9, 3.5380768061562653`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5381570027582483`*^9, 3.53815700278625*^9}}]
},
WindowSize->{1243, 770},
WindowMargins->{{Automatic, 202}, {Automatic, 58}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 17147, 359, 1052, "Input"],
Cell[17717, 383, 1728, 23, 30, "Output"],
Cell[19448, 408, 1719, 23, 30, "Output"],
Cell[21170, 433, 1747, 24, 30, "Output"],
Cell[22920, 459, 1872, 28, 30, "Output"],
Cell[24795, 489, 1774, 24, 30, "Output"],
Cell[26572, 515, 1833, 27, 30, "Output"],
Cell[28408, 544, 1724, 23, 30, "Output"],
Cell[30135, 569, 1680, 23, 30, "Output"],
Cell[31818, 594, 1757, 24, 30, "Output"],
Cell[33578, 620, 1682, 23, 30, "Output"]
}, Open  ]],
Cell[35275, 646, 113, 1, 31, "Input"],
Cell[35391, 649, 137, 1, 31, "Input"],
Cell[35531, 652, 26, 0, 31, "Input"],
Cell[35560, 654, 26, 0, 31, "Input"],
Cell[35589, 656, 213, 4, 31, "Input"],
Cell[35805, 662, 93, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)