(* 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[    438870,      10532]
NotebookOptionsPosition[    420087,      10061]
NotebookOutlinePosition[    420508,      10078]
CellTagsIndexPosition[    420465,      10075]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{"\"\<The following variable defines the $3$ intervals of \
$[0,1]$ on which $\\psi$ is linear.\>\"", "\[IndentingNewLine]", 
 RowBox[{"interval", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"1", "/", "6"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "/", "6"}], ",", 
      RowBox[{"5", "/", "6"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"5", "/", "6"}], ",", "1"}], "}"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.423926384497817*^9, 3.423926397390259*^9}, {
  3.423932564876473*^9, 3.42393256705703*^9}, {3.424034612340721*^9, 
  3.424034621742731*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["1", "6"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "6"], ",", 
     FractionBox["5", "6"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["5", "6"], ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.423927080233766*^9, 3.423927422948296*^9, 
  3.423932567508648*^9, 3.423934183512814*^9, 3.42403461685764*^9}]
}, Open  ]],

Cell[BoxData["\"\<This is the definition of $\\psi$ on each one of the $3$ \
intervals.\>\""], "Input",
 CellChangeTimes->{{3.424034645101793*^9, 3.424034647623665*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"psi", "=", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", "0"}], "]"}], ",", " ", 
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"6", "x"}], "-", "1"}], ")"}], "/", "4"}]}], "]"}], ",", " ",
     
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", "1"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.423926416764891*^9, 3.423926437440067*^9}, {
  3.423932571650212*^9, 3.423932572672703*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", "0"}], "]"}], ",", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"6", " ", "x"}], "-", "1"}], ")"}]}]}], "]"}], ",", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", "1"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.423927386678661*^9, 3.42392743588068*^9, 
  3.423932574286926*^9, 3.423934184807333*^9}]
}, Open  ]],

Cell[BoxData["\"\<These are the three non-symmetric possibilities of \
$(\\t(u,v), \\t(v,w), \\t(w,u))$.\>\""], "Input",
 CellChangeTimes->{{3.424034512112222*^9, 3.424034515866354*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.424034324002715*^9, 3.424034326081257*^9}, {
   3.424034394113231*^9, 3.424034453041034*^9}, 3.424034503943297*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"taus", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.423932923856013*^9, 3.423932934262775*^9}, 
   3.42393316425429*^9, {3.423933376136069*^9, 3.423933376470988*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.423932937209405*^9, 3.423933376819632*^9, 
  3.423934207923616*^9}]
}, Open  ]],

Cell[BoxData["\"\<The following variable $fh$ will hold $A_L^\\psi(u,v,w)$.  \
The variables $psix1, psix2,psix3$ represent $\\psi(x_{LP}(u,v)), \
\\psi(x_{LP}(v,w)), \\psi(x_{LP}(w,u))$\nrespectively, and $tau1, tau2,tau3$ \
represent $\\t(u,v),\\t(v,w),\\t(w,u)$, respectively\>\""], "Input",
 CellChangeTimes->{
  3.42403445740099*^9, {3.42403449254061*^9, 3.424034500958756*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fh", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix2"}], ")"}]}], " ", "+", " ", 
      RowBox[{"psix1", 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix2"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix1"}], ")"}], "psix2"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x3", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "tau3"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x3"}], ")"}], " ", "tau3"}]}], ")"}]}], " ", "+", 
   " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix3"}], ")"}]}], " ", "+", " ", 
      RowBox[{"psix2", 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix3"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix2"}], ")"}], "psix3"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "tau1"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x1"}], ")"}], " ", "tau1"}]}], ")"}]}], " ", "+", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix1"}], ")"}]}], " ", "+", " ", 
      RowBox[{"psix3", 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix1"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix3"}], ")"}], "psix1"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "tau2"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x2"}], ")"}], " ", "tau2"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.423926558344097*^9, 3.423926602331819*^9}, {
   3.423926714835097*^9, 3.423926791906583*^9}, {3.423928131542196*^9, 
   3.42392817277089*^9}, {3.423932592557331*^9, 3.423932664985967*^9}, {
   3.42393307884894*^9, 3.423933098645336*^9}, {3.423933277311249*^9, 
   3.42393331721753*^9}, 3.423934299691176*^9, 3.42393436313668*^9, 
   3.423934426185397*^9, 3.42394115506575*^9, {3.423947989669535*^9, 
   3.42394799564085*^9}, {3.42394809440939*^9, 3.423948141899738*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{"psix2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"tau1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x1"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "tau1"}], ")"}], " ", "x1"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{"psix1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"tau2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x2"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "tau2"}], ")"}], " ", "x2"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}]}], "+", 
     RowBox[{"psix1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix2"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"tau3", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "tau3"}], ")"}], " ", "x3"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.423926793993636*^9, 3.423928174211443*^9, 3.423932666002025*^9, 
   3.423933100300518*^9, 3.423933318353163*^9, 3.423934186008289*^9, {
   3.423934407214339*^9, 3.423934426756092*^9}, 3.423941170465026*^9}]
}, Open  ]],

Cell[BoxData["\"\<Similarly we will use the Mathematica variable $fx$ to \
represent $B_\\psi(u,v,w)$.\>\""], "Input",
 CellChangeTimes->{{3.424034531965144*^9, 3.424034534777082*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fx", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "psix1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "psix2"}], ")"}], "tau3"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"psix1", 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix2"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix1"}], ")"}], "psix2"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "tau3"}], ")"}]}], " ", "+", "\[IndentingNewLine]", 
   " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "psix2"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "psix3"}], ")"}], "tau1"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"psix2", 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix3"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix2"}], ")"}], "psix3"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "tau1"}], ")"}]}], " ", "+", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "psix3"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "psix1"}], ")"}], "tau2"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"psix3", 
       RowBox[{"(", 
        RowBox[{"1", "-", "psix1"}], ")"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "psix3"}], ")"}], "psix1"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", "tau2"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.423926802058381*^9, 3.423926875494749*^9}, {
  3.423928177349055*^9, 3.423928206368695*^9}, {3.423932673817438*^9, 
  3.423932706800396*^9}, {3.423933105270964*^9, 3.423933123315086*^9}, {
  3.423933322742118*^9, 3.423933349238424*^9}, {3.423941159622964*^9, 
  3.423941159714553*^9}, {3.423948147554249*^9, 3.423948151716149*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"psix2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "tau1"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "psix2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "psix3"}], ")"}], " ", "tau1"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"psix1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "tau2"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "psix1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "psix3"}], ")"}], " ", "tau2"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"psix1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix2"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "tau3"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "psix1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "psix2"}], ")"}], " ", "tau3"}]}]], "Output",
 CellChangeTimes->{
  3.42392820675007*^9, 3.423932708108764*^9, 3.423933124063326*^9, 
   3.423933349566964*^9, 3.423934187049508*^9, {3.423934408910135*^9, 
   3.423934428979842*^9}, 3.423941171646062*^9}]
}, Open  ]],

Cell[BoxData["\"\<Our goal is to prove that $fx \\leq 3fh/2$.  To that end we \
define a function $ToMaximize$ and we will show that it is \
nonpositive.\>\""], "Input",
 CellChangeTimes->{{3.424034545846843*^9, 3.424034548345861*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"ToMaximize", " ", "=", " ", 
   RowBox[{"fx", " ", "-", " ", 
    RowBox[{"3", 
     RowBox[{"fh", " ", "/", "2"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.423926885203812*^9, 3.423926927934533*^9}, {
  3.423927161236642*^9, 3.423927162147853*^9}, {3.423927226134196*^9, 
  3.423927228684352*^9}, {3.423932717600906*^9, 3.423932728669775*^9}, {
  3.423941165007384*^9, 3.423941168203073*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"psix2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "tau1"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "psix2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "psix3"}], ")"}], " ", "tau1"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"psix1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "tau2"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "psix1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "psix3"}], ")"}], " ", "tau2"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"psix1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "psix2"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix2"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "tau3"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "psix1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "psix2"}], ")"}], " ", "tau3"}], "-", 
  RowBox[{
   FractionBox["3", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "psix2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
        RowBox[{"psix2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "psix2"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"tau1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x1"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "tau1"}], ")"}], " ", "x1"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "psix1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
        RowBox[{"psix1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "psix3"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix3"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"tau2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x2"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "tau2"}], ")"}], " ", "x2"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "psix1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "psix2"}], ")"}]}], "+", 
        RowBox[{"psix1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "psix2"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "psix1"}], ")"}], " ", "psix2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"tau3", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x3"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "tau3"}], ")"}], " ", "x3"}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{{3.423926916246085*^9, 3.423926928597341*^9}, 
   3.423927162573879*^9, 3.42392723340055*^9, 3.423928210332483*^9, 
   3.423932729779396*^9, 3.423933126706702*^9, 3.423933352536546*^9, 
   3.423933650512635*^9, 3.423934189268071*^9, {3.423934410656029*^9, 
   3.423934430485257*^9}, 3.423941172981803*^9}]
}, Open  ]],

Cell[BoxData["\"\<The following variable $ToMaximizeijk$ is a function that \
takes $4$ indices as input, and returns the function $ToMaximize$ with \
$psix1,psix2,psix3$\nreplaced by $\\psi_i(x_{uv}), \\psi_j(x_{vw}), \
\\psi_k(x_{wu})$ where $\\psi_1,\\psi_2,\\psi_3$ correspond to the definition \
of $\\psi$ on the three\nintervals on which it is linear, respectively.  The \
variables $tau1,tau2,tau3$ are substituted by the possibility pointed to by \
the argument $tauindex$.\>\""], "Input",
 CellChangeTimes->{{3.424034568112199*^9, 3.424034574629056*^9}}],

Cell[BoxData[
 RowBox[{"ToMaximizeijk", " ", "=", " ", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"i", ",", "j", ",", "k", ",", " ", "tauindex"}], "}"}], ",", 
    "\[IndentingNewLine]", " ", 
    RowBox[{"ToMaximize", " ", "/.", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"psix1", " ", "\[Rule]", " ", 
        RowBox[{
         RowBox[{"psi", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", "x1", "]"}]}], ",", " ", 
       RowBox[{"psix2", "\[Rule]", 
        RowBox[{
         RowBox[{"psi", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "[", "x2", "]"}]}], ",", " ", 
       RowBox[{"psix3", "\[Rule]", 
        RowBox[{
         RowBox[{"psi", "[", 
          RowBox[{"[", "k", "]"}], "]"}], "[", "x3", "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"tau1", " ", "->", " ", 
        RowBox[{
         RowBox[{"taus", "[", 
          RowBox[{"[", "tauindex", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
       RowBox[{"tau2", " ", "->", " ", 
        RowBox[{
         RowBox[{"taus", "[", 
          RowBox[{"[", "tauindex", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
       RowBox[{"tau3", " ", "->", " ", 
        RowBox[{
         RowBox[{"taus", "[", 
          RowBox[{"[", "tauindex", "]"}], "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.423932765649884*^9, 3.423932845722036*^9}, {
   3.423933066873663*^9, 3.42393307004745*^9}, {3.423933136853972*^9, 
   3.42393323856869*^9}, {3.423933359738427*^9, 3.423933385821334*^9}, 
   3.423933673001022*^9, {3.423934172405998*^9, 3.423934180429315*^9}, {
   3.423948168790108*^9, 3.423948172728068*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\"\<The following loop tries all posibilities for $i,j,k, \
tauindex\\in \\{1,2,3\\}$, and for each one computes the maximum of \
$ToMaximizeijk(i,j,k,tauindex)$\nin the polytope defined by the corresponding \
constraints.  One checks that the maximal value is always $\\leq 0$.\>\""], \
"Input",
 CellChangeTimes->{{3.424034592404634*^9, 3.424034595267709*^9}}],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", "j", ",", "k", ",", "tauindex"}], "}"}], ",", 
   RowBox[{"ToMaximize", "/.", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"psix1", "\[Rule]", 
       RowBox[{
        RowBox[{"psi", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
         "[", "x1", "]"}]}], ",", 
      RowBox[{"psix2", "\[Rule]", 
       RowBox[{
        RowBox[{"psi", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
         "[", "x2", "]"}]}], ",", 
      RowBox[{"psix3", "\[Rule]", 
       RowBox[{
        RowBox[{"psi", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}],
         "[", "x3", "]"}]}], ",", 
      RowBox[{"tau1", "\[Rule]", 
       RowBox[{
        RowBox[{
        "taus", "\[LeftDoubleBracket]", "tauindex", "\[RightDoubleBracket]"}],
         "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", 
      RowBox[{"tau2", "\[Rule]", 
       RowBox[{
        RowBox[{
        "taus", "\[LeftDoubleBracket]", "tauindex", "\[RightDoubleBracket]"}],
         "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", 
      RowBox[{"tau3", "\[Rule]", 
       RowBox[{
        RowBox[{
        "taus", "\[LeftDoubleBracket]", "tauindex", "\[RightDoubleBracket]"}],
         "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}], 
     "}"}]}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.423932788770985*^9, 3.423932846741595*^9, 3.423933187571201*^9, 
   3.423933238940923*^9, 3.423933386566235*^9, {3.423933644420495*^9, 
   3.423933673897691*^9}, 3.423934193233221*^9, {3.423934412933741*^9, 
   3.423934431495758*^9}, 3.423941175016462*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", "3"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "\[LessEqual]", "3"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"k", "=", "1"}], ",", 
       RowBox[{"k", "\[LessEqual]", "3"}], ",", 
       RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"tauindex", " ", "=", " ", "1"}], ",", " ", 
         RowBox[{"tauindex", " ", "\[LessEqual]", " ", "3"}], ",", " ", 
         RowBox[{"tauindex", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
          "Print", "[", 
           "\"\<--------------------------------------------------------------\
---------------------------------------\>\"", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
           "\"\<i,j,k,tau = \>\"", ",", "i", ",", "\"\<,\>\"", ",", "j", ",", 
            "\"\<,\>\"", ",", "k", ",", "\"\<,\>\"", ",", " ", 
            RowBox[{"taus", "[", 
             RowBox[{"[", "tauindex", "]"}], "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Function=\>\"", ",", 
            RowBox[{"Simplify", "[", 
             RowBox[{"ToMaximizeijk", "[", 
              RowBox[{"i", ",", "j", ",", "k", ",", "tauindex"}], "]"}], 
             "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"polytope", " ", "=", " ", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x1", "\[LessEqual]", " ", 
              RowBox[{
               RowBox[{"interval", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
             RowBox[{"x1", "\[GreaterEqual]", 
              RowBox[{
               RowBox[{"interval", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"x2", "\[LessEqual]", 
              RowBox[{
               RowBox[{"interval", "[", 
                RowBox[{"[", "j", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
             RowBox[{"x2", "\[GreaterEqual]", 
              RowBox[{
               RowBox[{"interval", "[", 
                RowBox[{"[", "j", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
             "\[IndentingNewLine]", 
             RowBox[{"x3", "\[LessEqual]", 
              RowBox[{
               RowBox[{"interval", "[", 
                RowBox[{"[", "k", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
             RowBox[{"x3", "\[GreaterEqual]", 
              RowBox[{
               RowBox[{"interval", "[", 
                RowBox[{"[", "k", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"x1", " ", "\[LessEqual]", " ", 
              RowBox[{"x2", " ", "+", " ", "x3"}]}], ",", "  ", 
             RowBox[{"x2", " ", "\[LessEqual]", " ", 
              RowBox[{"x3", " ", "+", " ", "x1"}]}], ",", " ", 
             RowBox[{"x3", " ", "\[LessEqual]", " ", 
              RowBox[{"x1", " ", "+", " ", "x2"}]}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Polytope=\>\"", ",", " ", "polytope"}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"output", "=", 
           RowBox[{"Maximize", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"ToMaximizeijk", "[", 
                RowBox[{"i", ",", "j", ",", "k", ",", "tauindex"}], "]"}], 
               ",", "polytope"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Maximum=\>\"", ",", " ", 
            RowBox[{"output", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< obtained at: \>\"", 
            ",", 
            RowBox[{"output", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "]"}]}], "]"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.423926988444234*^9, 3.42392701314664*^9}, {
  3.423932871453894*^9, 3.423932898566042*^9}, {3.423932949502341*^9, 
  3.423933059882244*^9}, {3.423933396371742*^9, 3.423933501410524*^9}, {
  3.423933546091232*^9, 3.423933557142547*^9}, {3.423933679763197*^9, 
  3.423933681270575*^9}, {3.423934229434864*^9, 3.423934240672332*^9}, {
  3.423934465096824*^9, 3.423934475624392*^9}, {3.423934702765623*^9, 
  3.42393476071231*^9}, {3.423948177283962*^9, 3.423948191711085*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941183411641*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941183500387*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "2"]}], " ", 
    RowBox[{"(", 
     RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 2] ($CellContext`x1 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941183618309*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941183729764*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", "0"}], ",", 
     RowBox[{"x3", "\[Rule]", "0"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    0, $CellContext`x3 -> 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941183933741*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184037663*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184227685*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 - 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184332987*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118445132*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184550523*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184645458*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184743303*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x1", "+", "x2", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[3, 2] (-1 + $CellContext`x1 + $CellContext`x2 + $CellContext`x3)],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184836426*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941184920517*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["3", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-3, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185063409*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185142949*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185229154*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"3", " ", "x1"}], "-", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-1 - 3 $CellContext`x1 - 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185314224*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185394401*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185473204*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185546867*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185624135*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 - 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.4239411856996*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118577045*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118584235*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941185979362*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186053825*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "-", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 + 3 $CellContext`x1 + 3 $CellContext`x2 - 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186128164*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186199019*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["3", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-3, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186271403*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186341994*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186417563*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{"2", "-", 
    RowBox[{
     FractionBox["3", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]}]}],
  SequenceForm[
  "Function=", 2 + 
   Rational[-3, 2] ($CellContext`x1 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186489473*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186562071*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Maximize", "::", "\<\"infeas\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"There are no values of \\!\\({x1, x2, x3}\\) for which the \
constraints \\!\\(\\(\\(x1 \[LessEqual] 1\\/6\\)\\) && \\(\\(x1 \
\[GreaterEqual] 0\\)\\) && \\(\\(x2 \[LessEqual] 1\\/6\\)\\) && \\(\\(x2 \
\[GreaterEqual] 0\\)\\) && \\(\\(x3 \[LessEqual] 1\\)\\) && \\(\\(x3 \
\[GreaterEqual] 5\\/6\\)\\) && \\(\\(x1 \[LessEqual] \\(\\(x2 + \
x3\\)\\)\\)\\) && \\(\\(x2 \[LessEqual] \\(\\(x1 + x3\\)\\)\\)\\) && \\(\\(x3 \
\[LessEqual] \\(\\(x1 + x2\\)\\)\\)\\)\\) are satisfied and the objective \
function \\!\\(2 - \\(\\(3\\/2\\\\ \\(\\((x1 + x2 + x3)\\)\\)\\)\\)\\) is \
real-valued.  \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Maximize\\\", ButtonNote -> \\\"Maximize::infeas\\\
\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.423934249478258*^9, 3.423934439279186*^9, 
  3.423934482311601*^9, 3.423934693661422*^9, 3.423934770186302*^9, 
  3.423941186638272*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186713965*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186857684*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941186941468*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 - 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187023947*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187110638*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Maximize", "::", "\<\"infeas\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"There are no values of \\!\\({x1, x2, x3}\\) for which the \
constraints \\!\\(\\(\\(x1 \[LessEqual] 1\\/6\\)\\) && \\(\\(x1 \
\[GreaterEqual] 0\\)\\) && \\(\\(x2 \[LessEqual] 1\\/6\\)\\) && \\(\\(x2 \
\[GreaterEqual] 0\\)\\) && \\(\\(x3 \[LessEqual] 1\\)\\) && \\(\\(x3 \
\[GreaterEqual] 5\\/6\\)\\) && \\(\\(x1 \[LessEqual] \\(\\(x2 + \
x3\\)\\)\\)\\) && \\(\\(x2 \[LessEqual] \\(\\(x1 + x3\\)\\)\\)\\) && \\(\\(x3 \
\[LessEqual] \\(\\(x1 + x2\\)\\)\\)\\)\\) are satisfied and the objective \
function \\!\\(2 - \\(\\(3\\/2\\\\ \\(\\((2 + x1 - x2 - x3)\\)\\)\\)\\)\\) is \
real-valued.  \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Maximize\\\", ButtonNote -> \\\"Maximize::infeas\\\
\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.423934249478258*^9, 3.423934439279186*^9, 
  3.423934482311601*^9, 3.423934693661422*^9, 3.423934770186302*^9, 
  3.423941187198289*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187283112*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187363936*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 1, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187445053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "7"}], "+", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-7 + 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118752689*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187609406*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Maximize", "::", "\<\"infeas\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"There are no values of \\!\\({x1, x2, x3}\\) for which the \
constraints \\!\\(\\(\\(x1 \[LessEqual] 1\\/6\\)\\) && \\(\\(x1 \
\[GreaterEqual] 0\\)\\) && \\(\\(x2 \[LessEqual] 1\\/6\\)\\) && \\(\\(x2 \
\[GreaterEqual] 0\\)\\) && \\(\\(x3 \[LessEqual] 1\\)\\) && \\(\\(x3 \
\[GreaterEqual] 5\\/6\\)\\) && \\(\\(x1 \[LessEqual] \\(\\(x2 + \
x3\\)\\)\\)\\) && \\(\\(x2 \[LessEqual] \\(\\(x1 + x3\\)\\)\\)\\) && \\(\\(x3 \
\[LessEqual] \\(\\(x1 + x2\\)\\)\\)\\)\\) are satisfied and the objective \
function \\!\\(1 - \\(\\(3\\/2\\\\ \\(\\((3 - x1 - x2 - x3)\\)\\)\\)\\)\\) is \
real-valued.  \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Maximize\\\", ButtonNote -> \\\"Maximize::infeas\\\
\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.423934249478258*^9, 3.423934439279186*^9, 
  3.423934482311601*^9, 3.423934693661422*^9, 3.423934770186302*^9, 
  3.423941187763664*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\(Maximize :: \\\"infeas\\\"\\) will \
be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.423934249478258*^9, 3.423934439279186*^9, 
  3.423934482311601*^9, 3.423934693661422*^9, 3.423934770186302*^9, 
  3.423941187844758*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941187929175*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188009889*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188099347*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "-", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-1 - 3 $CellContext`x1 + 3 $CellContext`x2 - 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188192263*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188281736*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "0"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188377337*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188471061*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188638927*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 - 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118873219*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188823074*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188910366*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941188993673*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118907908*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"3", " ", "x1"}], "-", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 + 3 $CellContext`x1 - 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941189165304*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941189247682*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["3", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-3, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118932692*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941189480681*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394118956707*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["9", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "x2"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"2", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[9, 
     32] ((-4) (-1 + 2 $CellContext`x2) (-1 + 
      2 $CellContext`x3) + $CellContext`x1 (-5 - 2 $CellContext`x3 + 
      2 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941189652672*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941189732697*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "2"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[1, 2], $CellContext`x3 -> Rational[1, 2]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941191160023*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941191262365*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941191345235*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["9", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "x2"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"2", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[9, 
     32] ((-4) (-1 + 2 $CellContext`x2) (-1 + 
      2 $CellContext`x3) + $CellContext`x1 (-5 - 2 $CellContext`x3 + 
      2 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941191433312*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941191521316*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "2"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[1, 2], $CellContext`x3 -> Rational[1, 2]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941198037989*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941198119896*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941198208052*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "11"}], "-", 
      RowBox[{"78", " ", "x3"}], "+", 
      RowBox[{"6", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "13"}], "+", 
         RowBox[{"30", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"9", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"2", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-11 - 78 $CellContext`x3 + 
    6 $CellContext`x2 (-13 + 30 $CellContext`x3) - 
    9 $CellContext`x1 (-5 - 2 $CellContext`x3 + 
     2 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941198343567*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941198429404*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 64], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941202843695*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941202917836*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941202995578*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x2"}]}], ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"3", " ", "x2"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (3 $CellContext`x1 (-5 + 6 $CellContext`x2) - 
    4 (-4 + 3 $CellContext`x2 + 3 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941203074641*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941203152144*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[2, 3], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941204114274*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120418736*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941204267852*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x2"}]}], ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"3", " ", "x2"}], "-", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (3 $CellContext`x1 (-5 + 6 $CellContext`x2) - 
    4 (1 + 3 $CellContext`x2 - 3 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941204347492*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941204423708*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205095073*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205169576*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 2, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205247728*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "+", 
      RowBox[{"18", " ", "x2"}], "-", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x2"}]}], ")"}]}], "+", 
      RowBox[{"12", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 + 18 $CellContext`x2 - 
    3 $CellContext`x1 (-5 + 6 $CellContext`x2) + 12 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205326918*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205403512*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205481728*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205555144*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205633263*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{"2", "-", 
    RowBox[{
     FractionBox["3", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]}]}],
  SequenceForm[
  "Function=", 2 + 
   Rational[-3, 2] ($CellContext`x1 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205711047*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205847295*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205922377*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941205999123*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206075221*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 - 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206152352*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206226687*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206302183*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206378651*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206454199*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "7"}], "+", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-7 + 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206531349*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206604816*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206744299*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120681968*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941206899027*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"3", " ", "x2"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] ((-4) (-4 + 3 $CellContext`x2 + 3 $CellContext`x3) + 
    3 $CellContext`x1 (-5 + 6 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120697574*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207053833*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["2", "3"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[2, 3]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207130507*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207208*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207287724*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"3", " ", "x2"}], "-", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (4 (-1 + 3 $CellContext`x2 - 3 $CellContext`x3) + 
    3 $CellContext`x1 (-5 + 6 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207365184*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207442226*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    1, $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207832735*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120790808*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941207987524*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "+", 
      RowBox[{"12", " ", "x2"}], "+", 
      RowBox[{"18", " ", "x3"}], "-", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 + 12 $CellContext`x2 + 18 $CellContext`x3 - 
    3 $CellContext`x1 (-5 + 6 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208065641*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208141739*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    1, $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208283267*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208358226*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208434463*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{"2", "-", 
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{"x2", "+", "x3"}], ")"}]}], "2"]}]}],
  SequenceForm[
  "Function=", 2 + Rational[-3, 2] ($CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208510268*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120858514*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208661166*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208737463*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208813399*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x2", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", Rational[3, 2] (-2 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208888824*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941208961679*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    1, $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209033055*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209170834*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 1, ",", 3, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209245689*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x2", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", Rational[3, 2] (-2 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209320452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[1, 6], $CellContext`x1 >= 
    0, $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209392938*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "0"}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 0, $CellContext`x2 -> 
    1, $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209467029*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120954107*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209615624*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"3", " ", "x1"}], "-", 
      RowBox[{"3", " ", "x2"}], "-", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-1 + 3 $CellContext`x1 - 3 $CellContext`x2 - 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209691265*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209763534*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "0"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    0, $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394120983672*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941209910384*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210047156*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"9", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-1 - 9 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394121012164*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210193046*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["3", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-3, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210266429*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210340003*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210415047*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-2 - 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210489678*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210562277*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["3", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-3, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.4239412106349*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210709056*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210784025*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["9", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"8", " ", "x3"}], "-", 
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"4", "-", 
         RowBox[{"8", " ", "x3"}], "+", 
         RowBox[{"x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[9, 32] (-4 + 
    8 $CellContext`x3 - $CellContext`x2 (5 + 2 $CellContext`x3) + 
    2 $CellContext`x1 (4 - 
      8 $CellContext`x3 + $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210922196*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941210995452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x2", "\[Rule]", "0"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "2"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 2], $CellContext`x2 -> 
    0, $CellContext`x3 -> Rational[1, 2]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941211070932*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941211147221*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941211223256*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "11"}], "+", 
      RowBox[{"18", " ", "x3"}], "+", 
      RowBox[{"9", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"29", "-", 
         RowBox[{"30", " ", "x3"}], "+", 
         RowBox[{"3", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-11 + 18 $CellContext`x3 + 
    9 $CellContext`x2 (5 + 2 $CellContext`x3) - 
    6 $CellContext`x1 (29 - 30 $CellContext`x3 + 
     3 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941211299441*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941211374175*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[2, 3], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941215190919*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941215270561*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941215350487*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "11"}], "-", 
      RowBox[{"78", " ", "x3"}], "+", 
      RowBox[{"9", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"13", "-", 
         RowBox[{"30", " ", "x3"}], "+", 
         RowBox[{"3", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-11 - 78 $CellContext`x3 + 
    9 $CellContext`x2 (5 + 2 $CellContext`x3) - 
    6 $CellContext`x1 (13 - 30 $CellContext`x3 + 
     3 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941215429516*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941215505926*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 64], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941216627708*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941216709248*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941216801807*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"16", "-", 
      RowBox[{"15", " ", "x2"}], "+", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"3", " ", "x2"}]}], ")"}]}], "-", 
      RowBox[{"12", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (16 - 15 $CellContext`x2 + 
    6 $CellContext`x1 (-2 + 3 $CellContext`x2) - 12 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394121688382*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941216961787*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[2, 3], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941217389002*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941217476966*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941217563667*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "8"]}], " ", 
    RowBox[{"(", 
     RowBox[{"3", "-", 
      RowBox[{"5", " ", "x2"}], "+", 
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"6", " ", "x2"}]}], ")"}]}], "-", 
      RowBox[{"4", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 8] (3 - 
    5 $CellContext`x2 + $CellContext`x1 (2 + 6 $CellContext`x2) - 
    4 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941217653432*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941217742263*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394121802009*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218095384*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 1, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218173658*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "-", 
      RowBox[{"18", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x2"}], ")"}]}], "+", 
      RowBox[{"15", " ", "x2"}], "+", 
      RowBox[{"12", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 - 18 $CellContext`x1 (-1 + $CellContext`x2) + 
    15 $CellContext`x2 + 12 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218252667*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218328448*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218568965*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218643719*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218729258*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["9", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "-", 
      RowBox[{"2", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", "x3"}], ")"}]}], "-", 
      RowBox[{"5", " ", "x3"}], "+", 
      RowBox[{"2", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"4", "-", "x3", "+", 
         RowBox[{"x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "8"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[9, 32] (-4 - 2 $CellContext`x2 (-4 + $CellContext`x3) - 
    5 $CellContext`x3 + 
    2 $CellContext`x1 (
      4 - $CellContext`x3 + $CellContext`x2 (-8 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218810337*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941218886099*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x3", "\[Rule]", "0"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 2], $CellContext`x2 -> 
    Rational[1, 2], $CellContext`x3 -> 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941226109418*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941226190281*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941226271727*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "11"}], "+", 
      RowBox[{"45", " ", "x3"}], "+", 
      RowBox[{"18", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x3"}], ")"}]}], "-", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"29", "-", 
         RowBox[{"3", " ", "x3"}], "+", 
         RowBox[{"6", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-11 + 45 $CellContext`x3 + 
    18 $CellContext`x2 (1 + $CellContext`x3) - 
    6 $CellContext`x1 (29 - 3 $CellContext`x3 + 
     6 $CellContext`x2 (-5 + 3 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941226357489*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941226438257*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[2, 3], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394124120639*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941241281731*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941241366005*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "11"}], "+", 
      RowBox[{"45", " ", "x3"}], "+", 
      RowBox[{"6", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "13"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"13", "-", 
         RowBox[{"3", " ", "x3"}], "+", 
         RowBox[{"6", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-11 + 45 $CellContext`x3 + 
    6 $CellContext`x2 (-13 + 3 $CellContext`x3) - 
    6 $CellContext`x1 (13 - 3 $CellContext`x3 + 
     6 $CellContext`x2 (-5 + 3 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941241451994*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941241536169*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "64"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941246510865*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394124658699*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941246667607*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "20"}], "+", 
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        RowBox[{"33", "-", 
         RowBox[{"60", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"33", " ", "x3"}], "+", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"11", "-", 
         RowBox[{"20", " ", "x3"}], "+", 
         RowBox[{"4", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"9", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[3, 32] (-20 + $CellContext`x2 (33 - 60 $CellContext`x3) + 
    33 $CellContext`x3 + 
    3 $CellContext`x1 (11 - 20 $CellContext`x3 + 
      4 $CellContext`x2 (-5 + 9 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941246749212*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941246829047*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941248870159*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941248950874*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941249043011*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "10"}], "+", 
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        RowBox[{"39", "-", 
         RowBox[{"108", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"39", " ", "x3"}], "-", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"67", "-", 
         RowBox[{"60", " ", "x3"}], "+", 
         RowBox[{"12", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-10 + $CellContext`x2 (39 - 108 $CellContext`x3) + 
    39 $CellContext`x3 - 
    3 $CellContext`x1 (67 - 60 $CellContext`x3 + 
     12 $CellContext`x2 (-5 + 3 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941249139148*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941249221108*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941271823024*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941271912374*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941272016794*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "32"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        RowBox[{"37", "-", 
         RowBox[{"72", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"37", " ", "x3"}], "+", 
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{"37", "-", 
         RowBox[{"72", " ", "x3"}], "+", 
         RowBox[{"36", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 32] (-5 + $CellContext`x2 (37 - 72 $CellContext`x3) + 
    37 $CellContext`x3 + $CellContext`x1 (37 - 72 $CellContext`x3 + 
      36 $CellContext`x2 (-2 + 3 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941272115478*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941272201239*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941274114574*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941274200808*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941274286782*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    RowBox[{"(", 
     RowBox[{"20", "-", 
      RowBox[{"15", " ", "x3"}], "-", 
      RowBox[{"6", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "x3"}], ")"}]}], "+", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x2"}]}], ")"}], " ", "x3"}]}], ")"}]}]}], 
     ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[3, 32] (20 - 15 $CellContext`x3 - 
    6 $CellContext`x2 (2 + $CellContext`x3) + 
    6 $CellContext`x1 (-2 + (-1 + 6 $CellContext`x2) $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941274373364*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941274453548*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941296053231*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941296134535*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941296219769*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "32"]}], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        RowBox[{"22", "-", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"15", " ", "x3"}], "+", 
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{"22", "-", 
         RowBox[{"6", " ", "x3"}], "+", 
         RowBox[{"12", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 32] (5 + $CellContext`x2 (22 - 6 $CellContext`x3) - 
    15 $CellContext`x3 + $CellContext`x1 (22 - 6 $CellContext`x3 + 
      12 $CellContext`x2 (-5 + 3 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941296324201*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941296416332*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[1, 2], $CellContext`x2 -> 
    Rational[1, 2], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941312518634*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394131259241*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 2, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941312671913*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"18", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"3", "+", "x3"}], ")"}]}], "+", 
      RowBox[{"5", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "23"}], "+", 
         RowBox[{"9", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"18", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "-", "x3", "+", 
         RowBox[{"x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (18 $CellContext`x2 (3 + $CellContext`x3) + 
    5 (-23 + 9 $CellContext`x3) - 
    18 $CellContext`x1 (-3 - $CellContext`x3 + $CellContext`x2 (-2 + 
       6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.4239413127534*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941312830607*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941324306195*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941324398293*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941324508201*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"16", "-", 
      RowBox[{"12", " ", "x2"}], "-", 
      RowBox[{"15", " ", "x3"}], "+", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (16 - 12 $CellContext`x2 - 15 $CellContext`x3 + 
    6 $CellContext`x1 (-2 + 3 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941324596408*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941324680158*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[2, 3], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325126714*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325243451*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325332403*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"4", " ", "x2"}], "+", 
      RowBox[{"5", " ", "x3"}], "-", 
      RowBox[{"2", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[3, 8] (-3 + 4 $CellContext`x2 + 5 $CellContext`x3 - 
    2 $CellContext`x1 (1 + 3 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325408952*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325482139*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    1, $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325867061*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941325957467*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394132603511*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "+", 
      RowBox[{"12", " ", "x2"}], "-", 
      RowBox[{"18", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x3"}], ")"}]}], "+", 
      RowBox[{"15", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 + 12 $CellContext`x2 - 
    18 $CellContext`x1 (-1 + $CellContext`x3) + 15 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941326117066*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941326195996*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    1, $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941326475488*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941326647284*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941326934489*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    RowBox[{"(", 
     RowBox[{"20", "-", 
      RowBox[{"12", " ", "x3"}], "-", 
      RowBox[{"3", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"6", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[3, 32] (20 - 12 $CellContext`x3 - 
    3 $CellContext`x2 (5 + 2 $CellContext`x3) + 
    6 $CellContext`x1 (-2 + $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941327051848*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941327139372*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[59, 64], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941328599182*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394132867325*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941328750644*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "32"]}], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"22", " ", "x3"}], "-", 
      RowBox[{"3", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"x1", " ", 
       RowBox[{"(", 
        RowBox[{"22", "-", 
         RowBox[{"60", " ", "x3"}], "+", 
         RowBox[{"6", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 32] (5 + 22 $CellContext`x3 - 
    3 $CellContext`x2 (5 + 
     2 $CellContext`x3) + $CellContext`x1 (22 - 60 $CellContext`x3 + 
      6 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941328827623*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941328903491*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[59, 64], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941329899758*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941329976853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941330057786*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "115"}], "+", 
      RowBox[{"54", " ", "x3"}], "+", 
      RowBox[{"9", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"18", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-115 + 54 $CellContext`x3 + 
    9 $CellContext`x2 (5 + 2 $CellContext`x3) - 
    18 $CellContext`x1 (-3 - 
     2 $CellContext`x3 + $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941330133155*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941330213209*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["55", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[55, 64], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941331291686*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941331369334*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941331455341*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x1"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-5 + 6 $CellContext`x1) (-4 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133153531*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941331613438*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[59, 64], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941332568174*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941332650918*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941332747405*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "8"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x1"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x2", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 8] (-5 + 
    6 $CellContext`x1) (-2 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941332833684*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133291493*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["7", "8"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[7, 8], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941333774014*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941333856556*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 2, ",", 3, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941333949735*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "8"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x1"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x2", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 8] (-5 + 
    6 $CellContext`x1) (-2 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941334035466*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= Rational[5, 6], $CellContext`x1 >= 
    Rational[1, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941334120387*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["7", "8"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[7, 8], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941334878797*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941334963786*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335049231*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{"2", "-", 
    RowBox[{
     FractionBox["3", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]}]}],
  SequenceForm[
  "Function=", 2 + 
   Rational[-3, 2] ($CellContext`x1 + $CellContext`x2 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133513021*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335204947*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335280933*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335356584*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335433984*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "2"]}], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "x1", "-", "x2", "-", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 2] (2 + $CellContext`x1 - $CellContext`x2 - $CellContext`x3)],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335509591*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335645181*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335721709*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335796812*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335875891*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "7"}], "+", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 2] (-7 + 3 $CellContext`x1 + 3 $CellContext`x2 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941335954025*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336029317*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "\[Infinity]"}], 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x2", "\[Rule]", "Indeterminate"}], ",", 
     RowBox[{"x3", "\[Rule]", "Indeterminate"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   DirectedInfinity[-1], 
   " obtained at: ", {$CellContext`x1 -> Indeterminate, $CellContext`x2 -> 
    Indeterminate, $CellContext`x3 -> Indeterminate}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336105523*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336182518*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336261665*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"16", "-", 
      RowBox[{"12", " ", "x1"}], "-", 
      RowBox[{"12", " ", "x3"}], "+", 
      RowBox[{"3", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (16 - 12 $CellContext`x1 - 12 $CellContext`x3 + 
    3 $CellContext`x2 (-5 + 6 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336338504*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336417331*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["2", "3"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[2, 3]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133655701*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336634938*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336715152*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "-", 
      RowBox[{"12", " ", "x1"}], "+", 
      RowBox[{"42", " ", "x3"}], "-", 
      RowBox[{"3", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 - 12 $CellContext`x1 + 42 $CellContext`x3 - 
    3 $CellContext`x2 (-5 + 6 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133679271*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336868975*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["7", "128"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[7, 128], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941336940012*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337016962*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337097003*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "+", 
      RowBox[{"12", " ", "x1"}], "+", 
      RowBox[{"18", " ", "x3"}], "-", 
      RowBox[{"3", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 + 12 $CellContext`x1 + 18 $CellContext`x3 - 
    3 $CellContext`x2 (-5 + 6 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133718194*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337263726*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "1"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> 1, $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337345993*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337461644*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337538443*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{"2", "-", 
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{"x1", "+", "x3"}], ")"}]}], "2"]}]}],
  SequenceForm[
  "Function=", 2 + Rational[-3, 2] ($CellContext`x1 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337614348*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337687999*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "0"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    0, $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337763835*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337839737*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337915379*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", Rational[1, 2] (-1 - 3 $CellContext`x1 + 3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941337991813*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133806408*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[1, 6], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338138586*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338210482*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 1, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338350545*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x1", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", Rational[3, 2] (-2 + $CellContext`x1 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338431728*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[1, 6], $CellContext`x2 >= 
    0, $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338508425*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "1"}], ",", 
     RowBox[{"x2", "\[Rule]", "0"}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 1, $CellContext`x2 -> 
    0, $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338577897*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338655159*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338734126*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"16", "-", 
      RowBox[{"12", " ", "x1"}], "-", 
      RowBox[{"15", " ", "x3"}], "+", 
      RowBox[{"6", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (16 - 12 $CellContext`x1 - 15 $CellContext`x3 + 
    6 $CellContext`x2 (-2 + 3 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338809571*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338893349*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["5", "16"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-5, 16], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[2, 3], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941338978116*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394133906968*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.4239413392213*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "-", 
      RowBox[{"12", " ", "x1"}], "+", 
      RowBox[{"15", " ", "x3"}], "-", 
      RowBox[{"6", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "7"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 - 12 $CellContext`x1 + 15 $CellContext`x3 - 
    6 $CellContext`x2 (-7 + 3 $CellContext`x3))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941339310462*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941339393948*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "64"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941339746317*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941339825642*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941339902632*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "29"}], "+", 
      RowBox[{"12", " ", "x1"}], "-", 
      RowBox[{"18", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x3"}], ")"}]}], "+", 
      RowBox[{"15", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-29 + 12 $CellContext`x1 - 
    18 $CellContext`x2 (-1 + $CellContext`x3) + 15 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941339983091*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941340069939*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "1"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> 1, $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941340287631*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941340367588*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941340444224*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"3", " ", "x2"}], "+", 
         RowBox[{"3", " ", "x3"}]}], ")"}]}], "+", 
      RowBox[{"3", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"2", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[3, 32] ((-4) (-5 + 3 $CellContext`x2 + 3 $CellContext`x3) + 
    3 $CellContext`x1 (-5 - 2 $CellContext`x3 + 
      2 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941340521685*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941340597942*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394136183759*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941361849611*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941361862396*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"2", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"35", "-", 
         RowBox[{"51", " ", "x3"}], "+", 
         RowBox[{"x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "51"}], "+", 
            RowBox[{"72", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (
    9 $CellContext`x1 (-5 - 2 $CellContext`x3 + 
      2 $CellContext`x2 (-1 + 6 $CellContext`x3)) - 
    4 (35 - 51 $CellContext`x3 + $CellContext`x2 (-51 + 
       72 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941361878963*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.4239413618915*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941382019201*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394138203266*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941382043543*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "32"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "115"}], "+", 
      RowBox[{"54", " ", "x3"}], "+", 
      RowBox[{"18", " ", "x2", " ", 
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"2", " ", "x3"}]}], ")"}]}], "-", 
      RowBox[{"9", " ", "x1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"2", " ", "x3"}], "+", 
         RowBox[{"2", " ", "x2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"6", " ", "x3"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 32] (-115 + 54 $CellContext`x3 + 
    18 $CellContext`x2 (3 + 2 $CellContext`x3) - 
    9 $CellContext`x1 (-5 - 2 $CellContext`x3 + 
     2 $CellContext`x2 (-1 + 6 $CellContext`x3)))],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941382055074*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941382066632*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393205874*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393218731*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393232737*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x2"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-5 + 6 $CellContext`x2) (-4 + 3 $CellContext`x1 + 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393245261*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393256466*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393459035*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393472857*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393484966*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x2"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"3", " ", "x1"}], "-", 
      RowBox[{"3", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-5 + 6 $CellContext`x2) (1 + 3 $CellContext`x1 - 
    3 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393496279*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393507061*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["59", "64"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[59, 64]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393666917*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393679012*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 2, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393690774*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "8"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x2"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x1", "+", "x3"}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 8] (-5 + 
    6 $CellContext`x2) (-2 + $CellContext`x1 + $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393701153*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= Rational[5, 6], $CellContext`x2 >= 
    Rational[1, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393712501*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "1"}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["1", "4"]}], ",", 
     RowBox[{"x3", "\[Rule]", "1"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 1, $CellContext`x2 -> 
    Rational[1, 4], $CellContext`x3 -> 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393870556*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393881368*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 1, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393892915*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{"2", "-", 
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{"x1", "+", "x2"}], ")"}]}], "2"]}]}],
  SequenceForm[
  "Function=", 2 + Rational[-3, 2] ($CellContext`x1 + $CellContext`x2)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394139390474*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393916987*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", "0"}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 2], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393928915*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393940629*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 1, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393952748*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", Rational[1, 2] (-1 - 3 $CellContext`x1 + 3 $CellContext`x2)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393964835*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393976889*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], "\[InvisibleSpace]", "\<\" obtained at: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "6"]}]}], "}"}]}],
  SequenceForm["Maximum=", 
   Rational[-1, 4], 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    1, $CellContext`x3 -> Rational[1, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941393988974*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394000755*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 1, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394013256*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["3", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x1", "+", "x2"}], ")"}]}]}],
  SequenceForm[
  "Function=", Rational[3, 2] (-2 + $CellContext`x1 + $CellContext`x2)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394139402502*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[1, 6], $CellContext`x3 >= 
    0, $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, $CellContext`x2 <= \
$CellContext`x1 + $CellContext`x3, $CellContext`x3 <= $CellContext`x1 + \
$CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394036492*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "1"}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", "0"}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 1, $CellContext`x2 -> 
    1, $CellContext`x3 -> 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394047952*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394139405915*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 2, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394070621*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"3", " ", "x1"}], "+", 
      RowBox[{"3", " ", "x2"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (-4 + 3 $CellContext`x1 + 3 $CellContext`x2) (-5 + 
    6 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394139408199*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.42394139409831*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[59, 64], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394111866*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394123622*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 2, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394136308*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"3", " ", "x1"}], "-", 
      RowBox[{"3", " ", "x2"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[1, 8] (1 + 3 $CellContext`x1 - 3 $CellContext`x2) (-5 + 
    6 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394152416*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394164757*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["59", "64"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[59, 64], $CellContext`x2 -> 
    Rational[59, 64], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394335212*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394346995*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 2, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394357396*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "8"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x1", "+", "x2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"6", " ", "x3"}]}], ")"}]}]}],
  SequenceForm[
  "Function=", 
   Rational[-3, 8] (-2 + $CellContext`x1 + $CellContext`x2) (-5 + 
    6 $CellContext`x3)],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394367369*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["1", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= Rational[5, 6], $CellContext`x3 >= 
    Rational[1, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394377502*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", "1"}], ",", 
     RowBox[{"x2", "\[Rule]", "1"}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["1", "4"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> 1, $CellContext`x2 -> 
    1, $CellContext`x3 -> Rational[1, 4]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394388861*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394398704*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 3, ",", {0, 0, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394409452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm["Function=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394419193*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394429909*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394440625*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394450667*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 3, ",", {0, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394460627*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm["Function=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394470116*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394480312*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394490643*^9}],

Cell[BoxData["\<\"------------------------------------------------------------\
-----------------------------------------\"\>"], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394500711*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"i,j,k,tau = \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm["i,j,k,tau = ", 3, ",", 3, ",", 3, ",", {1, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394510661*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Function=\"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm["Function=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394520336*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Polytope=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x1", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x2", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[LessEqual]", "1"}], ",", 
     RowBox[{"x3", "\[GreaterEqual]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x1", "\[LessEqual]", 
      RowBox[{"x2", "+", "x3"}]}], ",", 
     RowBox[{"x2", "\[LessEqual]", 
      RowBox[{"x1", "+", "x3"}]}], ",", 
     RowBox[{"x3", "\[LessEqual]", 
      RowBox[{"x1", "+", "x2"}]}]}], "}"}]}],
  SequenceForm[
  "Polytope=", {$CellContext`x1 <= 1, $CellContext`x1 >= 
    Rational[5, 6], $CellContext`x2 <= 1, $CellContext`x2 >= 
    Rational[5, 6], $CellContext`x3 <= 1, $CellContext`x3 >= 
    Rational[5, 
      6], $CellContext`x1 <= $CellContext`x2 + $CellContext`x3, \
$CellContext`x2 <= $CellContext`x1 + $CellContext`x3, $CellContext`x3 <= \
$CellContext`x1 + $CellContext`x2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394530318*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Maximum=\"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" obtained at: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x2", "\[Rule]", 
      FractionBox["5", "6"]}], ",", 
     RowBox[{"x3", "\[Rule]", 
      FractionBox["5", "6"]}]}], "}"}]}],
  SequenceForm[
  "Maximum=", 0, 
   " obtained at: ", {$CellContext`x1 -> Rational[5, 6], $CellContext`x2 -> 
    Rational[5, 6], $CellContext`x3 -> Rational[5, 6]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.423926282226736*^9, 3.423927018194144*^9, 
  3.423927171398465*^9, 3.423927309968961*^9, 3.42392739679167*^9, 
  3.42392806225104*^9, 3.42392825276014*^9, 3.423933504770795*^9, 
  3.423933597304375*^9, 3.423934249407042*^9, 3.423934439196097*^9, 
  3.423934480395006*^9, 3.423934690856151*^9, 3.423934767012635*^9, 
  3.423941394540669*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.42392838718718*^9, 3.423928392574825*^9}}]
},
WindowSize->{1904, 991},
WindowMargins->{{Automatic, -2342}, {Automatic, 87}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
FrontEndVersion->"6.0 for Linux x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 663, 17, 55, "Input"],
Cell[1256, 42, 458, 14, 45, "Output"]
}, Open  ]],
Cell[1729, 59, 169, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[1923, 65, 541, 16, 32, "Input"],
Cell[2467, 83, 511, 15, 45, "Output"]
}, Open  ]],
Cell[2993, 101, 186, 2, 32, "Input"],
Cell[3182, 105, 164, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[3371, 111, 449, 11, 32, "Input"],
Cell[3823, 124, 349, 10, 31, "Output"]
}, Open  ]],
Cell[4187, 137, 383, 5, 55, "Input"],
Cell[CellGroupData[{
Cell[4595, 146, 2649, 78, 99, "Input"],
Cell[7247, 226, 2160, 71, 52, "Output"]
}, Open  ]],
Cell[9422, 300, 184, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[9631, 306, 1907, 56, 77, "Input"],
Cell[11541, 364, 1630, 53, 31, "Output"]
}, Open  ]],
Cell[13186, 420, 235, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[13446, 427, 450, 9, 55, "Input"],
Cell[13899, 438, 3933, 125, 87, "Output"]
}, Open  ]],
Cell[17847, 566, 564, 7, 77, "Input"],
Cell[18414, 575, 1751, 42, 77, "Input"],
Cell[CellGroupData[{
Cell[20190, 621, 376, 5, 55, "Input"],
Cell[20569, 628, 1686, 40, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22292, 673, 5012, 109, 341, "Input"],
Cell[CellGroupData[{
Cell[27329, 786, 499, 7, 24, "Print"],
Cell[27831, 795, 805, 15, 24, "Print"],
Cell[28639, 812, 723, 17, 38, "Print"],
Cell[29365, 831, 1502, 33, 38, "Print"],
Cell[30870, 866, 847, 19, 24, "Print"],
Cell[31720, 887, 499, 7, 24, "Print"],
Cell[32222, 896, 805, 15, 24, "Print"],
Cell[33030, 913, 830, 21, 38, "Print"],
Cell[33863, 936, 1501, 33, 38, "Print"],
Cell[35367, 971, 980, 23, 38, "Print"],
Cell[36350, 996, 499, 7, 24, "Print"],
Cell[36852, 1005, 805, 15, 24, "Print"],
Cell[37660, 1022, 741, 18, 38, "Print"],
Cell[38404, 1042, 1502, 33, 38, "Print"],
Cell[39909, 1077, 1018, 24, 38, "Print"],
Cell[40930, 1103, 499, 7, 24, "Print"],
Cell[41432, 1112, 805, 15, 24, "Print"],
Cell[42240, 1129, 830, 21, 38, "Print"],
Cell[43073, 1152, 1547, 35, 38, "Print"],
Cell[44623, 1189, 980, 23, 38, "Print"],
Cell[45606, 1214, 499, 7, 24, "Print"],
Cell[46108, 1223, 805, 15, 24, "Print"],
Cell[46916, 1240, 828, 21, 38, "Print"],
Cell[47747, 1263, 1546, 35, 38, "Print"],
Cell[49296, 1300, 979, 23, 38, "Print"],
Cell[50278, 1325, 499, 7, 24, "Print"],
Cell[50780, 1334, 805, 15, 24, "Print"],
Cell[51588, 1351, 830, 21, 38, "Print"],
Cell[52421, 1374, 1547, 35, 38, "Print"],
Cell[53971, 1411, 1018, 24, 38, "Print"],
Cell[54992, 1437, 499, 7, 24, "Print"],
Cell[55494, 1446, 805, 15, 24, "Print"],
Cell[56302, 1463, 734, 17, 38, "Print"],
Cell[57039, 1482, 1509, 34, 38, "Print"]
}, Open  ]],
Cell[58563, 1519, 1053, 18, 42, "Message"],
Cell[CellGroupData[{
Cell[59641, 1541, 968, 20, 24, "Print"],
Cell[60612, 1563, 499, 7, 24, "Print"],
Cell[61114, 1572, 805, 15, 24, "Print"],
Cell[61922, 1589, 830, 21, 38, "Print"],
Cell[62755, 1612, 1509, 34, 38, "Print"]
}, Open  ]],
Cell[64279, 1649, 1057, 18, 42, "Message"],
Cell[CellGroupData[{
Cell[65361, 1671, 968, 20, 24, "Print"],
Cell[66332, 1693, 499, 7, 24, "Print"],
Cell[66834, 1702, 805, 15, 24, "Print"],
Cell[67642, 1719, 829, 21, 38, "Print"],
Cell[68474, 1742, 1509, 34, 38, "Print"]
}, Open  ]],
Cell[69998, 1779, 1057, 18, 42, "Message"],
Cell[71058, 1799, 574, 11, 24, "Message"],
Cell[CellGroupData[{
Cell[71657, 1814, 968, 20, 24, "Print"],
Cell[72628, 1836, 499, 7, 24, "Print"],
Cell[73130, 1845, 805, 15, 24, "Print"],
Cell[73938, 1862, 830, 21, 38, "Print"],
Cell[74771, 1885, 1540, 34, 38, "Print"],
Cell[76314, 1921, 980, 23, 38, "Print"],
Cell[77297, 1946, 499, 7, 24, "Print"],
Cell[77799, 1955, 805, 15, 24, "Print"],
Cell[78607, 1972, 829, 21, 38, "Print"],
Cell[79439, 1995, 1540, 34, 38, "Print"],
Cell[80982, 2031, 980, 23, 38, "Print"],
Cell[81965, 2056, 499, 7, 24, "Print"],
Cell[82467, 2065, 804, 15, 24, "Print"],
Cell[83274, 2082, 830, 21, 38, "Print"],
Cell[84107, 2105, 1540, 34, 38, "Print"],
Cell[85650, 2141, 1017, 24, 38, "Print"],
Cell[86670, 2167, 499, 7, 24, "Print"],
Cell[87172, 2176, 804, 15, 24, "Print"],
Cell[87979, 2193, 1404, 39, 38, "Print"],
Cell[89386, 2234, 1585, 36, 38, "Print"],
Cell[90974, 2272, 923, 21, 38, "Print"],
Cell[91900, 2295, 499, 7, 24, "Print"],
Cell[92402, 2304, 805, 15, 24, "Print"],
Cell[93210, 2321, 1404, 39, 38, "Print"],
Cell[94617, 2362, 1585, 36, 38, "Print"],
Cell[96205, 2400, 923, 21, 38, "Print"],
Cell[97131, 2423, 499, 7, 24, "Print"],
Cell[97633, 2432, 805, 15, 24, "Print"],
Cell[98441, 2449, 1368, 36, 38, "Print"],
Cell[99812, 2487, 1585, 36, 38, "Print"],
Cell[101400, 2525, 1020, 24, 38, "Print"],
Cell[102423, 2551, 499, 7, 24, "Print"],
Cell[102925, 2560, 805, 15, 24, "Print"],
Cell[103733, 2577, 1065, 28, 38, "Print"],
Cell[104801, 2607, 1547, 35, 38, "Print"],
Cell[106351, 2644, 1020, 24, 38, "Print"],
Cell[107374, 2670, 498, 7, 24, "Print"],
Cell[107875, 2679, 805, 15, 24, "Print"],
Cell[108683, 2696, 1039, 27, 38, "Print"],
Cell[109725, 2725, 1547, 35, 38, "Print"],
Cell[111275, 2762, 980, 23, 38, "Print"],
Cell[112258, 2787, 499, 7, 24, "Print"],
Cell[112760, 2796, 805, 15, 24, "Print"],
Cell[113568, 2813, 984, 25, 38, "Print"],
Cell[114555, 2840, 1547, 35, 38, "Print"],
Cell[116105, 2877, 980, 23, 38, "Print"],
Cell[117088, 2902, 499, 7, 24, "Print"],
Cell[117590, 2911, 805, 15, 24, "Print"],
Cell[118398, 2928, 734, 17, 38, "Print"],
Cell[119135, 2947, 1502, 33, 38, "Print"],
Cell[120640, 2982, 968, 20, 24, "Print"],
Cell[121611, 3004, 499, 7, 24, "Print"],
Cell[122113, 3013, 805, 15, 24, "Print"],
Cell[122921, 3030, 830, 21, 38, "Print"],
Cell[123754, 3053, 1502, 33, 38, "Print"],
Cell[125259, 3088, 968, 20, 24, "Print"],
Cell[126230, 3110, 499, 7, 24, "Print"],
Cell[126732, 3119, 805, 15, 24, "Print"],
Cell[127540, 3136, 830, 21, 38, "Print"],
Cell[128373, 3159, 1502, 33, 38, "Print"],
Cell[129878, 3194, 968, 20, 24, "Print"],
Cell[130849, 3216, 498, 7, 24, "Print"],
Cell[131350, 3225, 805, 15, 24, "Print"],
Cell[132158, 3242, 1090, 29, 38, "Print"],
Cell[133251, 3273, 1547, 35, 38, "Print"],
Cell[134801, 3310, 1020, 24, 38, "Print"],
Cell[135824, 3336, 496, 7, 24, "Print"],
Cell[136323, 3345, 805, 15, 24, "Print"],
Cell[137131, 3362, 1065, 28, 38, "Print"],
Cell[138199, 3392, 1547, 35, 38, "Print"],
Cell[139749, 3429, 980, 23, 38, "Print"],
Cell[140732, 3454, 498, 7, 24, "Print"],
Cell[141233, 3463, 805, 15, 24, "Print"],
Cell[142041, 3480, 984, 25, 38, "Print"],
Cell[143028, 3507, 1547, 35, 38, "Print"],
Cell[144578, 3544, 980, 23, 38, "Print"],
Cell[145561, 3569, 499, 7, 24, "Print"],
Cell[146063, 3578, 805, 15, 24, "Print"],
Cell[146871, 3595, 703, 16, 38, "Print"],
Cell[147577, 3613, 1508, 34, 38, "Print"],
Cell[149088, 3649, 980, 23, 38, "Print"],
Cell[150071, 3674, 499, 7, 24, "Print"],
Cell[150573, 3683, 805, 15, 24, "Print"],
Cell[151381, 3700, 705, 16, 38, "Print"],
Cell[152089, 3718, 1509, 34, 38, "Print"],
Cell[153601, 3754, 847, 19, 24, "Print"],
Cell[154451, 3775, 499, 7, 24, "Print"],
Cell[154953, 3784, 805, 15, 24, "Print"],
Cell[155761, 3801, 705, 16, 38, "Print"],
Cell[156469, 3819, 1509, 34, 38, "Print"],
Cell[157981, 3855, 847, 19, 24, "Print"],
Cell[158831, 3876, 498, 7, 24, "Print"],
Cell[159332, 3885, 805, 15, 24, "Print"],
Cell[160140, 3902, 830, 21, 38, "Print"],
Cell[160973, 3925, 1540, 34, 38, "Print"],
Cell[162516, 3961, 979, 23, 38, "Print"],
Cell[163498, 3986, 499, 7, 24, "Print"],
Cell[164000, 3995, 805, 15, 24, "Print"],
Cell[164808, 4012, 829, 21, 38, "Print"],
Cell[165640, 4035, 1540, 34, 38, "Print"],
Cell[167183, 4071, 1018, 24, 38, "Print"],
Cell[168204, 4097, 499, 7, 24, "Print"],
Cell[168706, 4106, 805, 15, 24, "Print"],
Cell[169514, 4123, 830, 21, 38, "Print"],
Cell[170347, 4146, 1540, 34, 38, "Print"],
Cell[171890, 4182, 1016, 24, 38, "Print"],
Cell[172909, 4208, 499, 7, 24, "Print"],
Cell[173411, 4217, 805, 15, 24, "Print"],
Cell[174219, 4234, 1285, 34, 38, "Print"],
Cell[175507, 4270, 1585, 36, 38, "Print"],
Cell[177095, 4308, 923, 21, 38, "Print"],
Cell[178021, 4331, 499, 7, 24, "Print"],
Cell[178523, 4340, 805, 15, 24, "Print"],
Cell[179331, 4357, 1316, 34, 38, "Print"],
Cell[180650, 4393, 1585, 36, 38, "Print"],
Cell[182238, 4431, 1020, 24, 38, "Print"],
Cell[183261, 4457, 499, 7, 24, "Print"],
Cell[183763, 4466, 805, 15, 24, "Print"],
Cell[184571, 4483, 1316, 34, 38, "Print"],
Cell[185890, 4519, 1585, 36, 38, "Print"],
Cell[187478, 4557, 1020, 24, 38, "Print"],
Cell[188501, 4583, 499, 7, 24, "Print"],
Cell[189003, 4592, 805, 15, 24, "Print"],
Cell[189811, 4609, 960, 24, 38, "Print"],
Cell[190774, 4635, 1547, 35, 38, "Print"],
Cell[192324, 4672, 1020, 24, 38, "Print"],
Cell[193347, 4698, 499, 7, 24, "Print"],
Cell[193849, 4707, 805, 15, 24, "Print"],
Cell[194657, 4724, 944, 25, 38, "Print"],
Cell[195604, 4751, 1547, 35, 38, "Print"],
Cell[197154, 4788, 979, 23, 38, "Print"],
Cell[198136, 4813, 499, 7, 24, "Print"],
Cell[198638, 4822, 805, 15, 24, "Print"],
Cell[199446, 4839, 954, 24, 38, "Print"],
Cell[200403, 4865, 1547, 35, 38, "Print"],
Cell[201953, 4902, 980, 23, 38, "Print"],
Cell[202936, 4927, 499, 7, 24, "Print"],
Cell[203438, 4936, 805, 15, 24, "Print"],
Cell[204246, 4953, 1259, 33, 38, "Print"],
Cell[205508, 4988, 1578, 35, 38, "Print"],
Cell[207089, 5025, 923, 21, 38, "Print"],
Cell[208015, 5048, 499, 7, 24, "Print"],
Cell[208517, 5057, 805, 15, 24, "Print"],
Cell[209325, 5074, 1284, 33, 38, "Print"],
Cell[210612, 5109, 1578, 35, 38, "Print"],
Cell[212193, 5146, 1019, 24, 38, "Print"],
Cell[213215, 5172, 499, 7, 24, "Print"],
Cell[213717, 5181, 805, 15, 24, "Print"],
Cell[214525, 5198, 1342, 35, 38, "Print"],
Cell[215870, 5235, 1578, 35, 38, "Print"],
Cell[217451, 5272, 1020, 24, 38, "Print"],
Cell[218474, 5298, 498, 7, 24, "Print"],
Cell[218975, 5307, 805, 15, 24, "Print"],
Cell[219783, 5324, 1309, 34, 38, "Print"],
Cell[221095, 5360, 1623, 37, 38, "Print"],
Cell[222721, 5399, 961, 22, 38, "Print"],
Cell[223685, 5423, 499, 7, 24, "Print"],
Cell[224187, 5432, 805, 15, 24, "Print"],
Cell[224995, 5449, 1312, 34, 38, "Print"],
Cell[226310, 5485, 1623, 37, 38, "Print"],
Cell[227936, 5524, 961, 22, 38, "Print"],
Cell[228900, 5548, 499, 7, 24, "Print"],
Cell[229402, 5557, 805, 15, 24, "Print"],
Cell[230210, 5574, 1314, 34, 38, "Print"],
Cell[231527, 5610, 1623, 37, 38, "Print"],
Cell[233153, 5649, 961, 22, 38, "Print"],
Cell[234117, 5673, 499, 7, 24, "Print"],
Cell[234619, 5682, 805, 15, 24, "Print"],
Cell[235427, 5699, 1210, 32, 38, "Print"],
Cell[236640, 5733, 1585, 36, 38, "Print"],
Cell[238228, 5771, 965, 22, 38, "Print"],
Cell[239196, 5795, 499, 7, 24, "Print"],
Cell[239698, 5804, 805, 15, 24, "Print"],
Cell[240506, 5821, 1287, 33, 38, "Print"],
Cell[241796, 5856, 1585, 36, 38, "Print"],
Cell[243384, 5894, 923, 21, 38, "Print"],
Cell[244310, 5917, 498, 7, 24, "Print"],
Cell[244811, 5926, 805, 15, 24, "Print"],
Cell[245619, 5943, 1348, 36, 38, "Print"],
Cell[246970, 5981, 1585, 36, 38, "Print"],
Cell[248558, 6019, 965, 22, 38, "Print"],
Cell[249526, 6043, 499, 7, 24, "Print"],
Cell[250028, 6052, 805, 15, 24, "Print"],
Cell[250836, 6069, 961, 24, 38, "Print"],
Cell[251800, 6095, 1540, 34, 38, "Print"],
Cell[253343, 6131, 1020, 24, 38, "Print"],
Cell[254366, 6157, 499, 7, 24, "Print"],
Cell[254868, 6166, 805, 15, 24, "Print"],
Cell[255676, 6183, 952, 24, 38, "Print"],
Cell[256631, 6209, 1540, 34, 38, "Print"],
Cell[258174, 6245, 980, 23, 38, "Print"],
Cell[259157, 6270, 499, 7, 24, "Print"],
Cell[259659, 6279, 804, 15, 24, "Print"],
Cell[260466, 6296, 954, 24, 38, "Print"],
Cell[261423, 6322, 1540, 34, 38, "Print"],
Cell[262966, 6358, 980, 23, 38, "Print"],
Cell[263949, 6383, 499, 7, 24, "Print"],
Cell[264451, 6392, 805, 15, 24, "Print"],
Cell[265259, 6409, 1236, 32, 38, "Print"],
Cell[266498, 6443, 1585, 36, 38, "Print"],
Cell[268086, 6481, 965, 22, 38, "Print"],
Cell[269054, 6505, 498, 7, 24, "Print"],
Cell[269555, 6514, 805, 15, 24, "Print"],
Cell[270363, 6531, 1303, 34, 38, "Print"],
Cell[271669, 6567, 1585, 36, 38, "Print"],
Cell[273257, 6605, 965, 22, 38, "Print"],
Cell[274225, 6629, 499, 7, 24, "Print"],
Cell[274727, 6638, 805, 15, 24, "Print"],
Cell[275535, 6655, 1330, 35, 38, "Print"],
Cell[276868, 6692, 1585, 36, 38, "Print"],
Cell[278456, 6730, 965, 22, 38, "Print"],
Cell[279424, 6754, 499, 7, 24, "Print"],
Cell[279926, 6763, 805, 15, 24, "Print"],
Cell[280734, 6780, 907, 24, 38, "Print"],
Cell[281644, 6806, 1547, 35, 38, "Print"],
Cell[283194, 6843, 969, 22, 38, "Print"],
Cell[284166, 6867, 499, 7, 24, "Print"],
Cell[284668, 6876, 805, 15, 24, "Print"],
Cell[285476, 6893, 872, 23, 38, "Print"],
Cell[286351, 6918, 1546, 35, 38, "Print"],
Cell[287900, 6955, 965, 22, 38, "Print"],
Cell[288868, 6979, 499, 7, 24, "Print"],
Cell[289370, 6988, 805, 15, 24, "Print"],
Cell[290178, 7005, 872, 23, 38, "Print"],
Cell[291053, 7030, 1547, 35, 38, "Print"],
Cell[292603, 7067, 965, 22, 38, "Print"],
Cell[293571, 7091, 499, 7, 24, "Print"],
Cell[294073, 7100, 805, 15, 24, "Print"],
Cell[294881, 7117, 733, 17, 38, "Print"],
Cell[295617, 7136, 1502, 33, 38, "Print"],
Cell[297122, 7171, 968, 20, 24, "Print"],
Cell[298093, 7193, 499, 7, 24, "Print"],
Cell[298595, 7202, 805, 15, 24, "Print"],
Cell[299403, 7219, 740, 18, 38, "Print"],
Cell[300146, 7239, 1502, 33, 38, "Print"],
Cell[301651, 7274, 968, 20, 24, "Print"],
Cell[302622, 7296, 499, 7, 24, "Print"],
Cell[303124, 7305, 805, 15, 24, "Print"],
Cell[303932, 7322, 830, 21, 38, "Print"],
Cell[304765, 7345, 1502, 33, 38, "Print"],
Cell[306270, 7380, 968, 20, 24, "Print"],
Cell[307241, 7402, 499, 7, 24, "Print"],
Cell[307743, 7411, 805, 15, 24, "Print"],
Cell[308551, 7428, 961, 24, 38, "Print"],
Cell[309515, 7454, 1547, 35, 38, "Print"],
Cell[311065, 7491, 1019, 24, 38, "Print"],
Cell[312087, 7517, 499, 7, 24, "Print"],
Cell[312589, 7526, 805, 15, 24, "Print"],
Cell[313397, 7543, 983, 25, 38, "Print"],
Cell[314383, 7570, 1547, 35, 38, "Print"],
Cell[315933, 7607, 1022, 24, 38, "Print"],
Cell[316958, 7633, 499, 7, 24, "Print"],
Cell[317460, 7642, 805, 15, 24, "Print"],
Cell[318268, 7659, 983, 25, 38, "Print"],
Cell[319254, 7686, 1547, 35, 38, "Print"],
Cell[320804, 7723, 980, 23, 38, "Print"],
Cell[321787, 7748, 499, 7, 24, "Print"],
Cell[322289, 7757, 805, 15, 24, "Print"],
Cell[323097, 7774, 703, 16, 38, "Print"],
Cell[323803, 7792, 1509, 34, 38, "Print"],
Cell[325315, 7828, 980, 23, 38, "Print"],
Cell[326298, 7853, 499, 7, 24, "Print"],
Cell[326800, 7862, 805, 15, 24, "Print"],
Cell[327608, 7879, 763, 18, 38, "Print"],
Cell[328374, 7899, 1508, 34, 38, "Print"],
Cell[329885, 7935, 980, 23, 38, "Print"],
Cell[330868, 7960, 499, 7, 24, "Print"],
Cell[331370, 7969, 805, 15, 24, "Print"],
Cell[332178, 7986, 705, 16, 38, "Print"],
Cell[332886, 8004, 1509, 34, 38, "Print"],
Cell[334398, 8040, 847, 19, 24, "Print"],
Cell[335248, 8061, 499, 7, 24, "Print"],
Cell[335750, 8070, 805, 15, 24, "Print"],
Cell[336558, 8087, 961, 24, 38, "Print"],
Cell[337522, 8113, 1540, 34, 38, "Print"],
Cell[339065, 8149, 1020, 24, 38, "Print"],
Cell[340088, 8175, 498, 7, 24, "Print"],
Cell[340589, 8184, 803, 15, 24, "Print"],
Cell[341395, 8201, 984, 25, 38, "Print"],
Cell[342382, 8228, 1540, 34, 38, "Print"],
Cell[343925, 8264, 1020, 24, 38, "Print"],
Cell[344948, 8290, 499, 7, 24, "Print"],
Cell[345450, 8299, 805, 15, 24, "Print"],
Cell[346258, 8316, 954, 24, 38, "Print"],
Cell[347215, 8342, 1540, 34, 38, "Print"],
Cell[348758, 8378, 980, 23, 38, "Print"],
Cell[349741, 8403, 499, 7, 24, "Print"],
Cell[350243, 8412, 805, 15, 24, "Print"],
Cell[351051, 8429, 1321, 35, 38, "Print"],
Cell[352375, 8466, 1585, 36, 38, "Print"],
Cell[353963, 8504, 964, 22, 38, "Print"],
Cell[354930, 8528, 499, 7, 24, "Print"],
Cell[355432, 8537, 805, 15, 24, "Print"],
Cell[356240, 8554, 1438, 39, 38, "Print"],
Cell[357681, 8595, 1583, 36, 38, "Print"],
Cell[359267, 8633, 965, 22, 38, "Print"],
Cell[360235, 8657, 498, 7, 24, "Print"],
Cell[360736, 8666, 805, 15, 24, "Print"],
Cell[361544, 8683, 1342, 35, 38, "Print"],
Cell[362889, 8720, 1585, 36, 38, "Print"],
Cell[364477, 8758, 965, 22, 38, "Print"],
Cell[365445, 8782, 499, 7, 24, "Print"],
Cell[365947, 8791, 805, 15, 24, "Print"],
Cell[366755, 8808, 908, 24, 38, "Print"],
Cell[367666, 8834, 1547, 35, 38, "Print"],
Cell[369216, 8871, 969, 22, 38, "Print"],
Cell[370188, 8895, 499, 7, 24, "Print"],
Cell[370690, 8904, 805, 15, 24, "Print"],
Cell[371498, 8921, 885, 23, 38, "Print"],
Cell[372386, 8946, 1547, 35, 38, "Print"],
Cell[373936, 8983, 969, 22, 38, "Print"],
Cell[374908, 9007, 499, 7, 24, "Print"],
Cell[375410, 9016, 805, 15, 24, "Print"],
Cell[376218, 9033, 872, 23, 38, "Print"],
Cell[377093, 9058, 1547, 35, 38, "Print"],
Cell[378643, 9095, 885, 20, 38, "Print"],
Cell[379531, 9117, 499, 7, 24, "Print"],
Cell[380033, 9126, 805, 15, 24, "Print"],
Cell[380841, 9143, 702, 16, 38, "Print"],
Cell[381546, 9161, 1502, 33, 38, "Print"],
Cell[383051, 9196, 980, 23, 38, "Print"],
Cell[384034, 9221, 499, 7, 24, "Print"],
Cell[384536, 9230, 805, 15, 24, "Print"],
Cell[385344, 9247, 763, 18, 38, "Print"],
Cell[386110, 9267, 1502, 33, 38, "Print"],
Cell[387615, 9302, 980, 23, 38, "Print"],
Cell[388598, 9327, 499, 7, 24, "Print"],
Cell[389100, 9336, 805, 15, 24, "Print"],
Cell[389908, 9353, 704, 16, 38, "Print"],
Cell[390615, 9371, 1502, 33, 38, "Print"],
Cell[392120, 9406, 847, 19, 24, "Print"],
Cell[392970, 9427, 498, 7, 24, "Print"],
Cell[393471, 9436, 805, 15, 24, "Print"],
Cell[394279, 9453, 907, 24, 38, "Print"],
Cell[395189, 9479, 1546, 35, 38, "Print"],
Cell[396738, 9516, 969, 22, 38, "Print"],
Cell[397710, 9540, 499, 7, 24, "Print"],
Cell[398212, 9549, 805, 15, 24, "Print"],
Cell[399020, 9566, 885, 23, 38, "Print"],
Cell[399908, 9591, 1547, 35, 38, "Print"],
Cell[401458, 9628, 969, 22, 38, "Print"],
Cell[402430, 9652, 499, 7, 24, "Print"],
Cell[402932, 9661, 805, 15, 24, "Print"],
Cell[403740, 9678, 872, 23, 38, "Print"],
Cell[404615, 9703, 1547, 35, 38, "Print"],
Cell[406165, 9740, 885, 20, 38, "Print"],
Cell[407053, 9762, 499, 7, 24, "Print"],
Cell[407555, 9771, 805, 15, 24, "Print"],
Cell[408363, 9788, 516, 10, 24, "Print"],
Cell[408882, 9800, 1509, 34, 38, "Print"],
Cell[410394, 9836, 961, 22, 38, "Print"],
Cell[411358, 9860, 499, 7, 24, "Print"],
Cell[411860, 9869, 805, 15, 24, "Print"],
Cell[412668, 9886, 516, 10, 24, "Print"],
Cell[413187, 9898, 1509, 34, 38, "Print"],
Cell[414699, 9934, 961, 22, 38, "Print"],
Cell[415663, 9958, 499, 7, 24, "Print"],
Cell[416165, 9967, 805, 15, 24, "Print"],
Cell[416973, 9984, 516, 10, 24, "Print"],
Cell[417492, 9996, 1509, 34, 38, "Print"],
Cell[419004, 10032, 961, 22, 38, "Print"]
}, Open  ]]
}, Open  ]],
Cell[419992, 10058, 91, 1, 32, "Input"]
}
]
*)

(* End of internal cache information *)