opt2dfinal.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     44649,        986]
NotebookOptionsPosition[     43597,        949]
NotebookOutlinePosition[     44150,        970]
CellTagsIndexPosition[     44107,        967]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"<<", "AceGen`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nvoigt", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ndi", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nnodes", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ntotv", "=", 
   RowBox[{"ndi", "*", "nnodes"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.426186076125*^9, 3.426186080890625*^9}, {
   3.633505675351861*^9, 3.6335056790813913`*^9}, {3.633505765731646*^9, 
   3.633505769505602*^9}, {3.633505819953742*^9, 3.6335058233678102`*^9}, {
   3.633505859865068*^9, 3.6335058670195217`*^9}, {3.633510330456863*^9, 
   3.633510332930201*^9}, 3.633510877378813*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Set", "::", "\<\"write\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Times\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({\\\"None\\\", \
\\\"\\\"}\\)\\)\\\\ \\(\\({\\\"Linux GCC\\\", \\\"/usr/bin/gcc\\\", \
\\\"/usr/bin/gcc\\\"}\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is \
Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/write\\\", \
ButtonNote -> \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.487338918031162*^9, 3.623352988795377*^9, {3.633211642431384*^9, 
   3.633211651424848*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"name", "=", 
   RowBox[{"FileBaseName", "[", 
    RowBox[{"NotebookFileName", "[", "]"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SMSInitialize", "[", 
  RowBox[{"name", ",", 
   RowBox[{"\"\<Language\>\"", "\[Rule]", "\"\<Fortran90\>\""}], ",", 
   RowBox[{"\"\<Mode\>\"", "\[Rule]", "\"\<Optimal\>\""}], ",", 
   RowBox[{"\"\<VectorLength\>\"", "\[Rule]", "50000"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSModule", "[", 
   RowBox[{"name", ",", 
    RowBox[{"Real", "[", 
     RowBox[{
     "strainenergy$$", ",", "realvol$$", ",", "w$$", ",", "pen$$", ",", 
      "vol$$", ",", "p$$", ",", "optscale$$", ",", 
      RowBox[{"ffor$$", "[", "nnodes", 
       StyleBox["]", "Code"]}], 
      StyleBox[",", "Code"], 
      RowBox[{"varopt$$", "[", "nnodes", "]"}], 
      StyleBox[",", "Code"], 
      StyleBox["volmultiplier$$", "Code"], 
      StyleBox[",", "Code"], 
      StyleBox[
       RowBox[{"displacement$$", "[", 
        RowBox[{"nnodes", ",", "2"}], "]"}], "Code"], 
      StyleBox[",", "Code"], 
      RowBox[{"drelativestrain$$", "[", 
       RowBox[{"nvoigt", ",", "ntotv"}], "]"}], ",", 
      RowBox[{"dstressdstrainvoid$$", "[", 
       RowBox[{"nvoigt", ",", "nvoigt"}], "]"}], ",", 
      RowBox[{"dstressdstrainpristine$$", "[", 
       RowBox[{"nvoigt", ",", "nvoigt"}], "]"}], ",", 
      RowBox[{"bigforce$$", "[", 
       RowBox[{"ntotv", "+", "4"}], "]"}], ",", 
      RowBox[{"bigstiffness$$", "[", 
       RowBox[{
        RowBox[{"ntotv", "+", "4"}], ",", 
        RowBox[{"ntotv", "+", "4"}]}], "]"}]}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"strainenergy", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "strainenergy$$", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"realvol", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "realvol$$", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "w$$", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pen", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "pen$$", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"length", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "length$$", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vol", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "vol$$", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "p$$", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"optscale", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "optscale$$", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ffor", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"ffor$$", ",", 
      RowBox[{"{", "nnodes", "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varopt", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"varopt$$", ",", 
      RowBox[{"{", "nnodes", "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volmultiplier", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", "volmultiplier$$", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displacement", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"displacement$$", ",", 
      RowBox[{"{", 
       RowBox[{"nnodes", ",", "2"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drelativestrain", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"drelativestrain$$", ",", 
      RowBox[{"{", 
       RowBox[{"nvoigt", ",", "ntotv"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dstressdstrainvoid", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"dstressdstrainvoid$$", ",", 
      RowBox[{"{", 
       RowBox[{"nvoigt", ",", "nvoigt"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dstressdstrainpristine", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"dstressdstrainpristine$$", ",", 
      RowBox[{"{", 
       RowBox[{"nvoigt", ",", "nvoigt"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"force", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"force$$", ",", 
      RowBox[{"{", "ntotv", "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"stiffness", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"stiffness$$", ",", 
      RowBox[{"{", 
       RowBox[{"ntotv", ",", "ntotv"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bigforce", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"bigforce$$", ",", 
      RowBox[{"{", 
       RowBox[{"ntotv", "+", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bigstiffness", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"bigstiffness$$", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntotv", "+", "4"}], ",", 
        RowBox[{"ntotv", "+", "4"}]}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wtab", "\[DoubleRightTee]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"wtab", "[", 
      RowBox[{"[", "k", "]"}], "]"}], "\[DoubleRightTee]", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Tanh", "[", 
         RowBox[{"optscale", "*", 
          RowBox[{"varopt", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}]}], ")"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "nnodes"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"w", "=", 
  RowBox[{"ffor", ".", "wtab"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"disp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"disp", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"k", "*", "2"}], "-", "2", "+", "i"}], "]"}], "]"}], "=", 
      RowBox[{"displacement", "[", 
       RowBox[{"[", 
        RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "nnodes"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "ndi"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", " ", "starts", " ", "the", " ", "calculations"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etar", "=", 
   RowBox[{
    RowBox[{"Sinh", "[", 
     RowBox[{"pen", "*", "w"}], "]"}], "/", 
    RowBox[{"Sinh", "[", "pen", "]"}]}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"w", "=", 
    RowBox[{
     RowBox[{"0", "\[Rule]", "etar"}], "=", "0"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"etac", "=", 
   RowBox[{"1", "-", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"pen", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "w"}], ")"}]}], "]"}], "/", 
     RowBox[{"Sinh", "[", "pen", "]"}]}]}]}], ";", 
  RowBox[{"(*", " ", 
   RowBox[{"w", "=", 
    RowBox[{
     RowBox[{"0", "\[Rule]", " ", "etac"}], "=", "0"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"dstressdstrain", "\[DoubleRightTee]", 
   RowBox[{
    RowBox[{"etac", "*", "dstressdstrainvoid"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "etac"}], ")"}], "*", "dstressdstrainpristine"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"stiffness", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "6"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"stiffness", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"stiffness", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], "+", 
      RowBox[{
       RowBox[{"dstressdstrain", "[", 
        RowBox[{"[", 
         RowBox[{"k", ",", "l"}], "]"}], "]"}], "*", 
       RowBox[{"drelativestrain", "[", 
        RowBox[{"[", 
         RowBox[{"k", ",", "i"}], "]"}], "]"}], "*", 
       RowBox[{"drelativestrain", "[", 
        RowBox[{"[", 
         RowBox[{"l", ",", "j"}], "]"}], "]"}]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"l", ",", "4"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"force", "\[DoubleRightTee]", 
   RowBox[{"stiffness", ".", "disp"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "\[DoubleRightTee]", 
   RowBox[{"force", ".", "disp"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"strainenergy", "=", 
   RowBox[{"u", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"du", "\[DoubleRightTee]", 
   RowBox[{"-", 
    RowBox[{"SMSD", "[", 
     RowBox[{"u", ",", "varopt"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volmax", "\[DoubleRightTee]", 
   RowBox[{"p", "*", "vol"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volactual", "\[DoubleRightTee]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "etar"}], ")"}], "*", "vol"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"realvol", "=", "volactual"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dvol", "\[DoubleRightTee]", 
    RowBox[{"SMSD", "[", 
     RowBox[{"volactual", ",", "varopt"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Starts", " ", "of", " ", "dpif"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bigforce", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"k", "*", "3"}], "-", "3", "+", "i"}], "]"}], "]"}], "=", 
     RowBox[{"force", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"k", "*", "2"}], "-", "2", "+", "i"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "2"}], "}"}]}], "]"}], ";", 
  RowBox[{"(*", " ", 
   RowBox[{"seems", " ", "OK"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bigforce", "[", 
      RowBox[{"[", 
       RowBox[{"k", "*", "3"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"du", "[", 
       RowBox[{"[", "k", "]"}], "]"}], "+", 
      RowBox[{"volmultiplier", "*", 
       RowBox[{"dvol", "[", 
        RowBox[{"[", "k", "]"}], "]"}]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "3"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"bigforce", "[", 
    RowBox[{"[", "10", "]"}], "]"}], "=", 
   RowBox[{"volactual", "-", "volmax"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dofs", "\[DoubleRightTee]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"displacement", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"displacement", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"varopt", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"displacement", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"displacement", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"varopt", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"displacement", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"displacement", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"varopt", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", "volmultiplier"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bigforce", "=", 
   RowBox[{"bigforce", "*", "vol"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bigstiffness", "\[DoubleRightTee]", 
   RowBox[{"SMSD", "[", 
    RowBox[{"bigforce", ",", "dofs"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"w", ",", "w$$"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"strainenergy", ",", "strainenergy$$"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"realvol", ",", "realvol$$"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"bigforce", ",", "bigforce$$"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"bigstiffness", ",", "bigstiffness$$"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSWrite", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.4261861348125*^9, 3.426186161828125*^9}, {
   3.427542224*^9, 3.4275422243125*^9}, 3.4275453758125*^9, {
   3.42754623571875*^9, 3.42754626359375*^9}, 3.42754785565625*^9, 
   3.427548169671875*^9, {3.42927996009375*^9, 3.429279962296875*^9}, {
   3.438439387125*^9, 3.438439388*^9}, {3.4404361632930803`*^9, 
   3.440436166949026*^9}, {3.445870620584727*^9, 3.445870623790863*^9}, {
   3.446216228289334*^9, 3.446216282742811*^9}, {3.44621631868624*^9, 
   3.44621631885499*^9}, {3.446216351102205*^9, 3.446216351183056*^9}, {
   3.446293786104152*^9, 3.446293792183764*^9}, 3.446475967218207*^9, {
   3.446880843300035*^9, 3.446880844170237*^9}, 3.446890826068512*^9, {
   3.446893822274331*^9, 3.446893824059276*^9}, {3.447498629269288*^9, 
   3.447498632900706*^9}, {3.448042303102645*^9, 3.448042305542992*^9}, {
   3.44809135248275*^9, 3.448091353321991*^9}, {3.44811001211119*^9, 
   3.448110041936853*^9}, {3.448110145266873*^9, 3.448110147053007*^9}, {
   3.44811094662273*^9, 3.448110948517034*^9}, {3.448112278914509*^9, 
   3.448112285473276*^9}, {3.448123744745762*^9, 3.448123753042899*^9}, {
   3.44813502902954*^9, 3.448135030591645*^9}, 3.448139237885815*^9, {
   3.448142207768088*^9, 3.448142212708065*^9}, {3.448146572727599*^9, 
   3.448146580081447*^9}, 3.448147365156846*^9, {3.4481830845304*^9, 
   3.448183087333543*^9}, {3.448297404805592*^9, 3.448297410149173*^9}, {
   3.448299943601687*^9, 3.448299943781274*^9}, {3.448545221410957*^9, 
   3.448545240547647*^9}, {3.448558032541431*^9, 3.448558049429341*^9}, {
   3.448577645025915*^9, 3.44857765766511*^9}, 3.448646244269343*^9, 
   3.448646303633465*^9, 3.448650150323119*^9, 3.448650194397192*^9, {
   3.450986663069806*^9, 3.450986698661041*^9}, {3.450986784898303*^9, 
   3.450986790407636*^9}, {3.45103843644679*^9, 3.451038454318932*^9}, {
   3.451038959733551*^9, 3.451038967300267*^9}, {3.451055116551082*^9, 
   3.45105514580022*^9}, {3.451056853936622*^9, 3.451056898166103*^9}, {
   3.451056930046932*^9, 3.451056960541834*^9}, 3.451057078682105*^9, {
   3.451057636755808*^9, 3.451057737642023*^9}, {3.451057860991008*^9, 
   3.451057866211105*^9}, {3.451058114122273*^9, 3.451058174190255*^9}, {
   3.45105828772525*^9, 3.451058319340709*^9}, {3.45105938792707*^9, 
   3.451059418178435*^9}, {3.451059483159359*^9, 3.451059485981179*^9}, {
   3.451059587072235*^9, 3.45105962136382*^9}, {3.451107615179875*^9, 
   3.451107620457742*^9}, {3.451115408251421*^9, 3.45111541171154*^9}, 
   3.451115750908897*^9, 3.451115818129735*^9, {3.451115980880613*^9, 
   3.451116031212839*^9}, {3.451126950600027*^9, 3.451126980243674*^9}, {
   3.451127037721711*^9, 3.451127053884392*^9}, {3.451127806730613*^9, 
   3.451127822216624*^9}, {3.451128076675198*^9, 3.451128099022692*^9}, {
   3.451128757324267*^9, 3.451128758462233*^9}, {3.451287067579806*^9, 
   3.451287100839201*^9}, {3.451299867003715*^9, 3.451299903089595*^9}, {
   3.451301484362469*^9, 3.451301491688129*^9}, {3.451303265833068*^9, 
   3.451303272679346*^9}, 3.451367044615671*^9, 3.451577192156044*^9, 
   3.451583714178725*^9, 3.451597162697447*^9, 3.451671931392434*^9, {
   3.45173512749507*^9, 3.451735128498657*^9}, {3.451991089529819*^9, 
   3.451991110666354*^9}, {3.451991144046453*^9, 3.45199114587802*^9}, {
   3.451991462846256*^9, 3.451991500362782*^9}, {3.451997916067656*^9, 
   3.451997916972168*^9}, {3.45199890129247*^9, 3.451998915997358*^9}, {
   3.45200670935004*^9, 3.452006715874024*^9}, {3.452012469910067*^9, 
   3.452012490173022*^9}, {3.456834853771174*^9, 3.456834855049622*^9}, {
   3.457254849180555*^9, 3.457254849655453*^9}, {3.457262386447555*^9, 
   3.457262421881778*^9}, {3.45726279128421*^9, 3.457262797305015*^9}, {
   3.457262841759947*^9, 3.457262846067908*^9}, {3.457263404382782*^9, 
   3.457263409199305*^9}, {3.457266457136763*^9, 3.45726646766391*^9}, {
   3.457267035582186*^9, 3.45726704163021*^9}, {3.457270087475956*^9, 
   3.457270103695919*^9}, {3.457270221117715*^9, 3.457270242777457*^9}, {
   3.457270745161356*^9, 3.457270746962593*^9}, 3.457272451595813*^9, {
   3.457272644930151*^9, 3.457272645570836*^9}, {3.457272842194768*^9, 
   3.457272842912609*^9}, {3.457273016027723*^9, 3.457273018103411*^9}, {
   3.457344956229929*^9, 3.457344957044853*^9}, {3.457345279448009*^9, 
   3.457345310101467*^9}, {3.457346557602675*^9, 3.457346558899008*^9}, {
   3.457351598835738*^9, 3.457351603910381*^9}, 3.457352361031333*^9, {
   3.457429905535572*^9, 3.457429906293728*^9}, 3.457769376744449*^9, {
   3.457782697718182*^9, 3.457782698992462*^9}, {3.457782908631504*^9, 
   3.457783004991385*^9}, {3.457783036491727*^9, 3.457783048514168*^9}, {
   3.457791318440554*^9, 3.457791320730181*^9}, {3.459591288632172*^9, 
   3.459591305681431*^9}, {3.459596642591884*^9, 3.459596652561107*^9}, {
   3.459597155683266*^9, 3.459597161835298*^9}, {3.459699400918235*^9, 
   3.45969940483994*^9}, 3.459699653553062*^9, {3.4596999207252*^9, 
   3.459699932561174*^9}, {3.459700591181047*^9, 3.459700592712694*^9}, {
   3.459700794907302*^9, 3.459700796404009*^9}, {3.459700899131591*^9, 
   3.459700902381678*^9}, 3.466151719058118*^9, {3.466152733054849*^9, 
   3.466152735813437*^9}, {3.466153344049096*^9, 3.466153352190165*^9}, 
   3.466153863479047*^9, {3.466153894892956*^9, 3.466153895123059*^9}, {
   3.466154039385586*^9, 3.466154043080144*^9}, {3.466154459896009*^9, 
   3.466154485883275*^9}, {3.466167328783002*^9, 3.466167357320884*^9}, 
   3.466167851581121*^9, {3.466169862212552*^9, 3.466169872033107*^9}, {
   3.466246197443149*^9, 3.466246200364558*^9}, {3.466271718668324*^9, 
   3.466271725427105*^9}, {3.466280497375553*^9, 3.466280506692231*^9}, {
   3.466342108091231*^9, 3.466342109292054*^9}, 3.466593247941474*^9, {
   3.468828705700693*^9, 3.468828725929084*^9}, 3.468828941220716*^9, {
   3.468921462092437*^9, 3.468921470354116*^9}, {3.474043501832173*^9, 
   3.474043519027277*^9}, {3.474043569395389*^9, 3.474043637493796*^9}, {
   3.474043765157254*^9, 3.474043866487606*^9}, {3.47404399487804*^9, 
   3.474044023758338*^9}, {3.474044657191828*^9, 3.474044702467668*^9}, {
   3.474047123323532*^9, 3.474047185032992*^9}, {3.474059999531765*^9, 
   3.474060001945677*^9}, {3.474061177628653*^9, 3.474061184789781*^9}, {
   3.474061865641941*^9, 3.474061873091734*^9}, {3.474062723208189*^9, 
   3.474062744258012*^9}, {3.474067506061337*^9, 3.474067506822393*^9}, {
   3.474067676357455*^9, 3.47406769448774*^9}, {3.474069492082337*^9, 
   3.474069493003804*^9}, {3.474069854903051*^9, 3.47406985547289*^9}, {
   3.474107703062398*^9, 3.474107708163212*^9}, {3.474108204932829*^9, 
   3.474108226673815*^9}, 3.474108522672617*^9, {3.474109566936646*^9, 
   3.474109579462998*^9}, {3.474110608566763*^9, 3.474110616577734*^9}, {
   3.474116619268959*^9, 3.4741166204678*^9}, 3.474125659010163*^9, {
   3.474188668815318*^9, 3.474188669303377*^9}, {3.478849533800956*^9, 
   3.478849537531636*^9}, {3.478849569743783*^9, 3.478849570997253*^9}, 
   3.479483219849529*^9, 3.479483260236949*^9, {3.623350685482924*^9, 
   3.6233506879201937`*^9}, {3.62335217830285*^9, 3.623352178670568*^9}, {
   3.623352779501381*^9, 3.6233527987078342`*^9}, {3.623352905426886*^9, 
   3.62335293809486*^9}, {3.62335298503487*^9, 3.6233529870476503`*^9}, {
   3.623353174548135*^9, 3.6233532074927797`*^9}, 3.623353239496044*^9, {
   3.623364388123123*^9, 3.623364404657198*^9}, {3.623364477003613*^9, 
   3.623364479875504*^9}, {3.623397866214465*^9, 3.623397884693262*^9}, {
   3.623398893391448*^9, 3.623398916426627*^9}, {3.6234959925706797`*^9, 
   3.623495992623004*^9}, 3.623496999271368*^9, 3.623497046472343*^9, {
   3.623506215436852*^9, 3.62350621625029*^9}, {3.623507134604549*^9, 
   3.623507140106915*^9}, 3.623507547005621*^9, {3.623509869387718*^9, 
   3.623509883739275*^9}, {3.623671744704914*^9, 3.623671760467641*^9}, {
   3.623671931075844*^9, 3.62367193901578*^9}, {3.623672011397779*^9, 
   3.6236720566052713`*^9}, {3.623672201917864*^9, 3.623672334437096*^9}, {
   3.623672403043641*^9, 3.623672561988954*^9}, {3.623672645334565*^9, 
   3.6236727362295732`*^9}, 3.62367297787388*^9, {3.623673920007008*^9, 
   3.623673959203126*^9}, {3.623675107147929*^9, 3.6236751248169317`*^9}, {
   3.623675189371151*^9, 3.623675203423944*^9}, {3.6236753308382397`*^9, 
   3.62367536626222*^9}, {3.633181105264208*^9, 3.63318111972281*^9}, {
   3.633181352935338*^9, 3.633181468054562*^9}, {3.6331818868837423`*^9, 
   3.633181918455461*^9}, 3.6332076987485332`*^9, 3.633211580915062*^9, {
   3.633211671709235*^9, 3.633211729000967*^9}, {3.633211759230466*^9, 
   3.633211790443005*^9}, 3.633211841369318*^9, {3.633471034425125*^9, 
   3.6334711018572083`*^9}, {3.63350497501215*^9, 3.633505047861884*^9}, {
   3.633505179781303*^9, 3.633505189918906*^9}, {3.6335054219214687`*^9, 
   3.633505506949073*^9}, {3.6335056149339447`*^9, 3.633505663999712*^9}, {
   3.633505703401958*^9, 3.6335057889491463`*^9}, {3.6335058445839243`*^9, 
   3.633505851132563*^9}, {3.633505992859291*^9, 3.633506250724085*^9}, {
   3.633509231154737*^9, 3.6335092331846447`*^9}, {3.633520783018941*^9, 
   3.633520794715095*^9}, {3.63352099151061*^9, 3.633521002369421*^9}, {
   3.633521202865965*^9, 3.633521215603702*^9}, {3.786094096306038*^9, 
   3.786094109004179*^9}, {3.786094142845127*^9, 3.786094147842201*^9}, {
   3.786094178848234*^9, 3.786094276092918*^9}, {3.7860943117581882`*^9, 
   3.786094418492827*^9}, {3.786094480988958*^9, 3.786094500096984*^9}, {
   3.786862917690199*^9, 3.786862959567819*^9}, {3.786863056486188*^9, 
   3.7868631246574783`*^9}, {3.786863181753387*^9, 3.786863187835134*^9}, {
   3.78686321952562*^9, 3.7868632230142393`*^9}, {3.7868663202444763`*^9, 
   3.7868663643193827`*^9}, {3.786891115081745*^9, 3.7868911274351883`*^9}, {
   3.786891954802383*^9, 3.786891975154585*^9}, {3.786893671152051*^9, 
   3.786893674517626*^9}, {3.7868946183920116`*^9, 3.7868946531357*^9}, {
   3.7868949061119337`*^9, 3.786895014771378*^9}, {3.786895423758771*^9, 
   3.786895461004738*^9}, {3.786895507586247*^9, 3.7868955228646593`*^9}, {
   3.786895960406198*^9, 3.7868960052321243`*^9}, {3.786896778447336*^9, 
   3.7868967963956137`*^9}, {3.786897115164958*^9, 3.786897115633255*^9}, {
   3.786898839499755*^9, 3.786898856607293*^9}, {3.786898972055217*^9, 
   3.7868989823413486`*^9}, {3.786899220603985*^9, 3.7868992319552507`*^9}, {
   3.7868993904118443`*^9, 3.786899497613679*^9}, {3.786900145651318*^9, 
   3.786900214976101*^9}, {3.786900420581636*^9, 3.786900423640758*^9}, {
   3.786900483510297*^9, 3.786900510406253*^9}, {3.786900813994562*^9, 
   3.7869008222819147`*^9}, {3.786901684546989*^9, 3.786901738646669*^9}, {
   3.78696524940001*^9, 3.7869652506298847`*^9}, {3.786965482846649*^9, 
   3.786965493243538*^9}, {3.786966530953803*^9, 3.78696653302289*^9}, {
   3.786966600383112*^9, 3.7869666046743298`*^9}, {3.786966961745336*^9, 
   3.786966991089644*^9}, 3.7869670850687647`*^9, {3.7869671664606323`*^9, 
   3.786967170667735*^9}, {3.7869672148607903`*^9, 3.786967214869101*^9}, {
   3.786967282874847*^9, 3.786967282888521*^9}, {3.7869673131126337`*^9, 
   3.78696737911415*^9}, 3.7869674562091217`*^9, {3.786967567958735*^9, 
   3.7869676443524637`*^9}, {3.786967842157312*^9, 3.786967901992332*^9}, {
   3.786967974440864*^9, 3.786967984705204*^9}, {3.786968022264246*^9, 
   3.786968032420978*^9}, {3.787058477891798*^9, 3.787058481009685*^9}, {
   3.7870587441709423`*^9, 3.787058757494173*^9}, {3.787119365958041*^9, 
   3.787119367894412*^9}, {3.787119399881976*^9, 3.787119412998602*^9}, {
   3.7871346340561523`*^9, 3.787134635945794*^9}, {3.787143206556177*^9, 
   3.787143214038175*^9}, {3.7871434766089897`*^9, 3.787143486700653*^9}, 
   3.787148336843845*^9, {3.787148780085361*^9, 3.78714878127871*^9}, {
   3.787158838201756*^9, 3.787158838210826*^9}, {3.7871612596973057`*^9, 
   3.787161292249177*^9}, {3.787163834293227*^9, 3.787163837559346*^9}, {
   3.787210684524818*^9, 3.7872107016213818`*^9}, 3.7872112504206533`*^9, {
   3.787211285442239*^9, 3.787211306924739*^9}, {3.787211652694735*^9, 
   3.787211669739995*^9}, {3.787214460181117*^9, 3.787214461037715*^9}, 
   3.787227556340597*^9, 3.787233954659184*^9, 3.787234307993191*^9, {
   3.787244619194268*^9, 3.787244668591545*^9}, {3.787287757281637*^9, 
   3.787287795109182*^9}, {3.787290642179956*^9, 3.787290668885665*^9}, {
   3.787633880523713*^9, 3.787633902208869*^9}, {3.787633976727274*^9, 
   3.787634044148718*^9}, {3.787634485453409*^9, 3.787634501099256*^9}, {
   3.787635871557852*^9, 3.7876358776522007`*^9}, 3.7876442503159723`*^9, 
   3.7876462620077744`*^9, {3.787667921239459*^9, 3.787667926649479*^9}, {
   3.787668352014618*^9, 3.787668352554392*^9}, {3.787668702579254*^9, 
   3.787668720374144*^9}, 3.78767266550712*^9, {3.7876777482607737`*^9, 
   3.7876777696689262`*^9}, {3.7876789719009037`*^9, 3.787679024138125*^9}, {
   3.78767961831291*^9, 3.7876796185077133`*^9}, {3.787732159713471*^9, 
   3.7877321663926573`*^9}, {3.787744121340433*^9, 3.787744121779324*^9}, {
   3.787763103727927*^9, 3.787763130089188*^9}, {3.787764159770872*^9, 
   3.787764170788673*^9}, {3.787764208053747*^9, 3.787764272267256*^9}, {
   3.787811345376718*^9, 3.787811350342523*^9}, {3.787817359606333*^9, 
   3.787817449337439*^9}, {3.787817577459271*^9, 3.787817580681583*^9}, {
   3.7878183453754177`*^9, 3.787818403066669*^9}, {3.787820320244364*^9, 
   3.787820338916992*^9}, {3.78782039730977*^9, 3.787820456825281*^9}, {
   3.787820499077695*^9, 3.787820521976986*^9}, 3.7878205960371513`*^9, {
   3.787820641739627*^9, 3.787820644673429*^9}, {3.78782077894531*^9, 
   3.787820782859008*^9}, 3.787822260856124*^9, {3.787822714146112*^9, 
   3.787822759558529*^9}, {3.78782279825037*^9, 3.787822812234104*^9}, {
   3.787824423705368*^9, 3.787824510794636*^9}, {3.787825322573501*^9, 
   3.787825377828514*^9}, {3.787905798975218*^9, 3.787905800132647*^9}, {
   3.7879058594622717`*^9, 3.787905883999103*^9}, {3.7879062891490088`*^9, 
   3.7879063069477367`*^9}, 3.7879099733755617`*^9, {3.787910501469706*^9, 
   3.787910519030005*^9}, {3.787910718382176*^9, 3.7879107192085114`*^9}, {
   3.7879107865773067`*^9, 3.787910815136485*^9}, 3.787911729105411*^9, {
   3.787915040286104*^9, 3.787915051992962*^9}, 3.787915082436692*^9, {
   3.787915355100162*^9, 3.7879153575335417`*^9}, {3.7879161451480513`*^9, 
   3.787916150337596*^9}, {3.787916182088491*^9, 3.7879161918204117`*^9}, {
   3.787917003732123*^9, 3.787917158831753*^9}, {3.78791723155849*^9, 
   3.787917303109633*^9}, {3.787917428608885*^9, 3.7879174463566427`*^9}, {
   3.7879174911582336`*^9, 3.7879175150986967`*^9}, {3.787917656365052*^9, 
   3.787917691008787*^9}, {3.787917908884152*^9, 3.7879179171836777`*^9}, {
   3.7879182035368443`*^9, 3.7879182063415117`*^9}, {3.7879182905663157`*^9, 
   3.78791833464919*^9}, 3.7879183756807833`*^9, {3.787918452935614*^9, 
   3.7879184714121113`*^9}, {3.787918628024517*^9, 3.7879187841166763`*^9}, {
   3.787919119036956*^9, 3.7879191922849894`*^9}, {3.787919232291347*^9, 
   3.787919243642042*^9}, {3.787919274925025*^9, 3.787919291706931*^9}, {
   3.787919335970831*^9, 3.7879194046406717`*^9}, {3.787919484445408*^9, 
   3.787919531757041*^9}, {3.787919579377973*^9, 3.787919601926601*^9}, 
   3.787921510956088*^9, {3.787923207389175*^9, 3.78792320910958*^9}, {
   3.788163155492196*^9, 3.788163156150999*^9}, 3.788173246348588*^9, {
   3.78817452524482*^9, 3.788174577948283*^9}, {3.788175881643816*^9, 
   3.788175882660758*^9}, {3.788273356294965*^9, 3.7882734059463778`*^9}, {
   3.7882735528498*^9, 3.788273739949209*^9}, {3.788338452945541*^9, 
   3.788338463503935*^9}, {3.788338611933096*^9, 3.7883386616184673`*^9}, {
   3.788338693933937*^9, 3.788338695740823*^9}, {3.7894664604582767`*^9, 
   3.789466464931587*^9}, 3.789466505461382*^9, {3.789466539569789*^9, 
   3.789466547720509*^9}, {3.789803205029026*^9, 3.789803211042831*^9}, {
   3.789803281870892*^9, 3.78980330158434*^9}, {3.789803356382247*^9, 
   3.7898033983072367`*^9}, {3.789806631112056*^9, 3.789806638661397*^9}, {
   3.7898074290348787`*^9, 3.7898074515188427`*^9}, {3.7898075222956333`*^9, 
   3.7898075263860073`*^9}, {3.789807667492949*^9, 3.789807679607526*^9}, {
   3.7898079219961042`*^9, 3.7898079473390417`*^9}, {3.789808030550655*^9, 
   3.78980803914148*^9}, {3.789816095322297*^9, 3.789816100027192*^9}, {
   3.789816213725091*^9, 3.789816218028015*^9}, 3.789822687506262*^9, {
   3.789822785221962*^9, 3.789822790016217*^9}, {3.793080028969659*^9, 
   3.79308002898562*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.623676817349906*^9, 3.6236796288221684`*^9, {3.633181138467085*^9, 
   3.633181170261001*^9}, 3.633181323387053*^9, 3.6331813586827087`*^9, 
   3.6331818597362223`*^9, 3.633181922973483*^9, 3.633212214272945*^9, 
   3.6335050550015907`*^9, 3.63350520350387*^9, 3.633506311843285*^9, 
   3.633510338097499*^9, 3.633510880074025*^9, 3.633519700295865*^9, 
   3.633520420113976*^9, 3.633520766216907*^9, 3.6335207974580193`*^9, 
   3.633520896778717*^9, 3.633525401496825*^9, 3.786968001558004*^9, 
   3.7869680393053417`*^9, 3.7870594631423197`*^9, 3.787119422550466*^9, 
   3.787135712582191*^9, 3.7871435493425283`*^9, 3.7871460799190187`*^9, 
   3.7871483738590918`*^9, 3.7871487844903717`*^9, 3.787159186818946*^9, 
   3.787163915734022*^9, 3.7872107062245092`*^9, 3.7872113132691708`*^9, 
   3.78721167351683*^9, 3.787214465310419*^9, 3.7872275600919657`*^9, 
   3.787233959373474*^9, {3.787244652368438*^9, 3.787244672099218*^9}, 
   3.787290672652504*^9, 3.7876340546247797`*^9, 3.7876345558761387`*^9, 
   3.787644262442596*^9, 3.7876462809341583`*^9, 3.78766793001674*^9, 
   3.787668357088153*^9, 3.787668724726721*^9, 3.787672672373021*^9, 
   3.78767906400567*^9, 3.787732253709434*^9, 3.787744125328094*^9, 
   3.787763140198472*^9, 3.787764277403595*^9, 3.787811356772435*^9, 
   3.7878204723150167`*^9, 3.7878205312364388`*^9, 3.787820599628728*^9, 
   3.787820714204322*^9, 3.787820860802947*^9, 3.787822313323244*^9, 
   3.7878228331129227`*^9, 3.787824514351399*^9, 3.7878253820453873`*^9, 
   3.7879195538866253`*^9, 3.787919605993552*^9, 3.7879215349487534`*^9, 
   3.7879233986717987`*^9, 3.788023557095072*^9, 3.7881631729788713`*^9, 
   3.7881745821692657`*^9, 3.788175889312779*^9, 3.788273759767748*^9, 
   3.788338489942239*^9, 3.788338665467206*^9, 3.7898076929598427`*^9, 
   3.789808056940077*^9, 3.789816226677376*^9, 3.78981806428294*^9, 
   3.789823217068885*^9, 3.793081247709774*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    ButtonBox[
     StyleBox[
      SubscriptBox["\<\"ffor\"\>", "1"],
      StripOnInput->False,
      FontColor->RGBColor[0, 0, 1]],
     Appearance->"Palette",
     ButtonFunction:>AceGen`SMSButtonFunction["", {30, 9, 1}],
     Evaluator->Automatic,
     FrameMargins->None,
     ImageMargins->None,
     ImageSize->All,
     Method->"Preemptive"],
    AceGen`$V[9, 1]], " ", 
   InterpretationBox[
    ButtonBox[
     StyleBox[
      SubscriptBox["\<\"wtab\"\>", "1"],
      StripOnInput->False,
      FontColor->RGBColor[0, 0, 1]],
     Appearance->"Palette",
     ButtonFunction:>AceGen`SMSButtonFunction["", {30, 230, 1}],
     Evaluator->Automatic,
     FrameMargins->None,
     ImageMargins->None,
     ImageSize->All,
     Method->"Preemptive"],
    AceGen`$V[230, 1]]}], "+", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     StyleBox[
      SubscriptBox["\<\"ffor\"\>", "2"],
      StripOnInput->False,
      FontColor->RGBColor[0, 0, 1]],
     Appearance->"Palette",
     ButtonFunction:>AceGen`SMSButtonFunction["", {30, 10, 1}],
     Evaluator->Automatic,
     FrameMargins->None,
     ImageMargins->None,
     ImageSize->All,
     Method->"Preemptive"],
    AceGen`$V[10, 1]], " ", 
   InterpretationBox[
    ButtonBox[
     StyleBox[
      SubscriptBox["\<\"wtab\"\>", "2"],
      StripOnInput->False,
      FontColor->RGBColor[0, 0, 1]],
     Appearance->"Palette",
     ButtonFunction:>AceGen`SMSButtonFunction["", {30, 231, 1}],
     Evaluator->Automatic,
     FrameMargins->None,
     ImageMargins->None,
     ImageSize->All,
     Method->"Preemptive"],
    AceGen`$V[231, 1]]}], "+", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     StyleBox[
      SubscriptBox["\<\"ffor\"\>", "3"],
      StripOnInput->False,
      FontColor->RGBColor[0, 0, 1]],
     Appearance->"Palette",
     ButtonFunction:>AceGen`SMSButtonFunction["", {30, 11, 1}],
     Evaluator->Automatic,
     FrameMargins->None,
     ImageMargins->None,
     ImageSize->All,
     Method->"Preemptive"],
    AceGen`$V[11, 1]], " ", 
   InterpretationBox[
    ButtonBox[
     StyleBox[
      SubscriptBox["\<\"wtab\"\>", "3"],
      StripOnInput->False,
      FontColor->RGBColor[0, 0, 1]],
     Appearance->"Palette",
     ButtonFunction:>AceGen`SMSButtonFunction["", {30, 232, 1}],
     Evaluator->Automatic,
     FrameMargins->None,
     ImageMargins->None,
     ImageSize->All,
     Method->"Preemptive"],
    AceGen`$V[232, 1]]}]}]], "Output",
 CellChangeTimes->{
  3.623676817349906*^9, 3.6236796288221684`*^9, {3.633181138467085*^9, 
   3.633181170261001*^9}, 3.633181323387053*^9, 3.6331813586827087`*^9, 
   3.6331818597362223`*^9, 3.633181922973483*^9, 3.633212214272945*^9, 
   3.6335050550015907`*^9, 3.63350520350387*^9, 3.633506311843285*^9, 
   3.633510338097499*^9, 3.633510880074025*^9, 3.633519700295865*^9, 
   3.633520420113976*^9, 3.633520766216907*^9, 3.6335207974580193`*^9, 
   3.633520896778717*^9, 3.633525401496825*^9, 3.786968001558004*^9, 
   3.7869680393053417`*^9, 3.7870594631423197`*^9, 3.787119422550466*^9, 
   3.787135712582191*^9, 3.7871435493425283`*^9, 3.7871460799190187`*^9, 
   3.7871483738590918`*^9, 3.7871487844903717`*^9, 3.787159186818946*^9, 
   3.787163915734022*^9, 3.7872107062245092`*^9, 3.7872113132691708`*^9, 
   3.78721167351683*^9, 3.787214465310419*^9, 3.7872275600919657`*^9, 
   3.787233959373474*^9, {3.787244652368438*^9, 3.787244672099218*^9}, 
   3.787290672652504*^9, 3.7876340546247797`*^9, 3.7876345558761387`*^9, 
   3.787644262442596*^9, 3.7876462809341583`*^9, 3.78766793001674*^9, 
   3.787668357088153*^9, 3.787668724726721*^9, 3.787672672373021*^9, 
   3.78767906400567*^9, 3.787732253709434*^9, 3.787744125328094*^9, 
   3.787763140198472*^9, 3.787764277403595*^9, 3.787811356772435*^9, 
   3.7878204723150167`*^9, 3.7878205312364388`*^9, 3.787820599628728*^9, 
   3.787820714204322*^9, 3.787820860802947*^9, 3.787822313323244*^9, 
   3.7878228331129227`*^9, 3.787824514351399*^9, 3.7878253820453873`*^9, 
   3.7879195538866253`*^9, 3.787919605993552*^9, 3.7879215349487534`*^9, 
   3.7879233986717987`*^9, 3.788023557095072*^9, 3.7881631729788713`*^9, 
   3.7881745821692657`*^9, 3.788175889312779*^9, 3.788273759767748*^9, 
   3.788338489942239*^9, 3.788338665467206*^9, 3.7898076929598427`*^9, 
   3.789808056940077*^9, 3.789816226677376*^9, 3.78981806428294*^9, 
   3.789823217068885*^9, 3.793081248201437*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     StyleBox["\<\"File:\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontWeight->Bold,
      FontColor->RGBColor[0, 0, 1]], "\<\"opt2dfinal.f90\"\>", 
     StyleBox["\<\"Size:\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontWeight->Bold,
      FontColor->RGBColor[0, 0, 1]], "140440"},
    {"\<\"Methods\"\>", "\<\"No.Formulae\"\>", "\<\"No.Leafs\"\>", 
     "\[SpanFromLeft]"},
    {
     StyleBox["\<\"opt2dfinal\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontWeight->Bold,
      FontColor->RGBColor[0, 0, 1]], "1084", "48230", "\[SpanFromLeft]"}
   },
   AutoDelete->False,
   GridBoxDividers->{"Rows" -> {1, 2}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Print",
 CellChangeTimes->{3.788175655509357*^9, 3.788176903958791*^9, 
  3.788273769098383*^9, 3.7883384986343403`*^9, 3.788338673647106*^9, 
  3.789807773420561*^9, 3.789808190241881*^9, 3.7898163634832697`*^9, 
  3.789818204098178*^9, 3.789823356808544*^9, 3.793081387736175*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.474197825235133*^9, 3.47420161346106*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.47418909142737*^9, 3.474189091470191*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.474188700946312*^9, 3.474188729602556*^9}, 
   3.4741891635218*^9, 3.47418948306068*^9, 3.474189685561896*^9, 
   3.474189801993022*^9, 3.474190500265791*^9, 3.474195650854939*^9, 
   3.474196348916482*^9, 3.478853707930504*^9, 3.4788894368152*^9, 
   3.47889012631805*^9, 3.478924451710711*^9, 3.479482323750732*^9, 
   3.479483149276924*^9, 3.479483302954696*^9, 3.479483631551895*^9, 
   3.479483776158913*^9, 3.479483828705929*^9, 3.479484836929735*^9, 
   3.479484895072572*^9, 3.479550017961924*^9, 3.479550892194786*^9, 
   3.479646020346574*^9, 3.479663028594002*^9, 3.479738833295507*^9, 
   3.479739468218192*^9, 3.487338991194268*^9, 3.623427190841576*^9, 
   3.6234971430461197`*^9, 3.62350586294328*^9, 3.62351042510102*^9, 
   3.623510515398631*^9, 3.6236768548209267`*^9, 3.623679672382414*^9, 
   3.63318193652949*^9, 3.633212244749817*^9, 3.633505114962913*^9, 
   3.6335103685562897`*^9, 3.633525415487137*^9, 3.7869680028330593`*^9, 
   3.786968271025524*^9, 3.787059696747711*^9, 3.787135948036755*^9, 
   3.787143782372727*^9, 3.7871463031023083`*^9, 3.787148608076342*^9, 
   3.787149008393546*^9, 3.787159416134193*^9, 3.787164079463788*^9, 
   3.787210846059698*^9, 3.787211513304998*^9, 3.7872118531272984`*^9, 
   3.787214659279395*^9, 3.787227828460827*^9, 3.787234155807354*^9, 
   3.787244855316176*^9, 3.7872908421490107`*^9, 3.787634230056988*^9, 
   3.787634734096661*^9, 3.787644467377522*^9, 3.7876464637029676`*^9, 
   3.787668106530992*^9, 3.787668539690949*^9, 3.787668922909227*^9, 
   3.787672856697275*^9, 3.787679293916502*^9, 3.787732458387735*^9, 
   3.787744384963991*^9, 3.787763378232843*^9, 3.787764528368929*^9, 
   3.787811645008952*^9, 3.787821092853754*^9, 3.787822571800806*^9, 
   3.787823062105686*^9, 3.787824713835286*^9, 3.787825628553793*^9, 
   3.7879200284302597`*^9, 3.7879219846852427`*^9, 3.787924049687723*^9, 
   3.78802416893476*^9, 3.788175655580142*^9, 3.7881769041749363`*^9, 
   3.788273769157658*^9, 3.788338498856159*^9, 3.788338673854589*^9, 
   3.789807829921123*^9, 3.789808190444933*^9, 3.789816363691874*^9, 
   3.7898182043015013`*^9, 3.7898233570315104`*^9, 3.793081387964855*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.474055265107882*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.447508077983658*^9, 3.447508078145165*^9}, {
   3.447508114486775*^9, 3.447508114821829*^9}, 3.451057126616637*^9, 
   3.457782306250087*^9, {3.474115444361475*^9, 3.474115444537497*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.466348308323692*^9, 3.466348314383057*^9}}]
},
WindowSize->{2558, 1490},
WindowMargins->{{432, Automatic}, {-316, Automatic}},
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{611.28, 789.57},
"PostScriptOutputFile"->"/home/pedro/print.pdf"},
Magnification->3.,
FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 709, 15, 371, "Input"],
Cell[1279, 39, 923, 18, 65, "Message"]
}, Open  ]],
Cell[2217, 60, 150, 4, 143, "Input"],
Cell[CellGroupData[{
Cell[2392, 68, 29917, 620, 4050, "Input"],
Cell[32312, 690, 1971, 28, 134, "Output"],
Cell[34286, 720, 4437, 116, 136, "Output"],
Cell[38726, 838, 1552, 39, 185, "Print"]
}, Open  ]],
Cell[40293, 880, 89, 1, 134, "Input"],
Cell[CellGroupData[{
Cell[40407, 885, 324, 9, 134, "Input"],
Cell[40734, 896, 2442, 39, 134, "Output"]
}, Open  ]],
Cell[43191, 938, 68, 1, 134, "Input"],
Cell[43262, 941, 236, 3, 134, "Input"],
Cell[43501, 946, 92, 1, 134, "Input"]
}
]
*)