isoDisplayAll.nb

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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2858,         91]
NotebookOptionsPosition[      2611,         78]
NotebookOutlinePosition[      2960,         93]
CellTagsIndexPosition[      2917,         90]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", 
   RowBox[{"\"\<ea18GF`\>\"", ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<ea18GF.m\>\""}], 
      "}"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vMin", "=", "10"}], ";", 
  RowBox[{"vMax", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PopupMenu", "[", 
  RowBox[{
   RowBox[{"Dynamic", "[", "vx", "]"}], ",", 
   RowBox[{"Range", "[", 
    RowBox[{"vMin", ",", "vMax"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Button", "[", 
  RowBox[{"\"\<getPairs\>\"", ",", 
   RowBox[{"Dynamic", "[", 
    RowBox[{
     RowBox[{"px", "=", 
      RowBox[{"getPairs", "[", "vx", "]"}]}], ";", 
     RowBox[{"pxi", "=", 
      RowBox[{"px", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", 
  RowBox[{"PopupMenu", "[", 
   RowBox[{
    RowBox[{"Dynamic", "[", "pxi", "]"}], ",", "px"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<V\>\"", ",", " ", "\"\<pairs\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"vx", ",", "pxi"}], "}"}]}], "}"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Button", "[", 
  RowBox[{"\"\<get isoDisplay\>\"", ",", 
   RowBox[{
    RowBox[{"disp", "=", 
     RowBox[{"isoDisplay", "[", 
      RowBox[{"vx", ",", "pxi"}], "]"}]}], ";", 
    RowBox[{"disp2", "=", 
     RowBox[{"isoDisplayV", "[", 
      RowBox[{"vx", ",", "pxi"}], "]"}]}]}], ",", 
   RowBox[{"Method", "\[Rule]", "\"\<Queued\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "disp", "]"}]}], "Input",
 CellChangeTimes->{{3.697167995732571*^9, 3.697168178434868*^9}, {
  3.697169558208501*^9, 3.6971695725684323`*^9}, {3.6971852073160253`*^9, 
  3.6971852588459845`*^9}, {3.6971852908790445`*^9, 3.6971853370151*^9}, {
  3.6975095441347733`*^9, 3.6975095470003586`*^9}}]
},
WindowSize->{1088, 531},
WindowMargins->{{-1096, Automatic}, {102, Automatic}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2049, 56, 172, "Input"]
}
]
*)

(* End of internal cache information *)