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

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 9.0' *)

(*************************************************************************)
(*                                                                       *)
(*  The Mathematica License under which this file was created prohibits  *)
(*  restricting third parties in receipt of this file from republishing  *)
(*  or redistributing it by any means, including but not limited to      *)
(*  rights management or terms of use, without the express consent of    *)
(*  Wolfram Research, Inc. For additional information concerning CDF     *)
(*  licensing and redistribution see:                                    *)
(*                                                                       *)
(*        www.wolfram.com/cdf/adopting-cdf/licensing-options.html        *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1063,         20]
NotebookDataLength[      8705,        250]
NotebookOptionsPosition[      9365,        250]
NotebookOutlinePosition[      9710,        265]
CellTagsIndexPosition[      9667,        262]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"t", "=", 
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"1", ";;", "h"}], ",", 
         RowBox[{"1", ";;", "h"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nums", "=", 
      RowBox[{"p", "[", 
       RowBox[{"t", ",", 
        RowBox[{"_", "?", "NumberQ"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"fx", "=", 
      RowBox[{"Nearest", "[", 
       RowBox[{"p", "[", 
        RowBox[{"t", ",", "x"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"flagMinus", "/@", 
      RowBox[{"p", "[", 
       RowBox[{"t", ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"eqs", "=", 
      RowBox[{"MapIndexed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"t", "[", 
           RowBox[{"[", 
            RowBox[{"c", "@@", 
             RowBox[{
              RowBox[{"nums", "[", 
               RowBox[{"[", "#2", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "\[Equal]", 
          RowBox[{"g", "@", "#1"}]}], "&"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"fx", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1.5"}], "}"}]}], "]"}], "&"}], "/@", 
         "nums"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"vars", "=", 
      RowBox[{"Union", "@", 
       RowBox[{"Cases", "[", 
        RowBox[{"eqs", ",", "_q", ",", "4"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"s", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{"eqs", ",", 
          RowBox[{"Thread", "[", 
           RowBox[{"0", "\[LessEqual]", "vars", "<", "2"}], "]"}]}], "]"}], 
        ",", "vars", ",", "Integers"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"s", "\[Equal]", 
        RowBox[{"{", 
         RowBox[{"{", "}"}], "}"}]}], ",", 
       RowBox[{"ns", "=", "\"\<No Solutions\>\""}], ",", 
       RowBox[{"ns", "=", "\"\<\>\""}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"numSols", "=", 
      RowBox[{"Length", "@", "s"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"numSols", "\[NotEqual]", "0"}], ",", 
       RowBox[{"res", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Transpose", "@", "s"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "]"}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"numSols", "\[NotEqual]", "0"}], ",", 
       RowBox[{"colMap", "=", 
        RowBox[{"Grid", "[", 
         RowBox[{
          RowBox[{"Union", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Graphics", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Blend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Green", ",", "Red"}], "}"}], ",", "#"}], "]"}], 
                   ",", 
                   RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", 
                 RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", 
               RowBox[{"N", "@", "#"}]}], "}"}], "&"}], "/@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tr", "/@", "res"}], "/", "numSols"}], ")"}]}], "]"}], 
          ",", 
          RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]}], ",", 
       RowBox[{"colMap", "=", "\"\<\>\""}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "Store", " ", "Prob", " ", "of", " ", "bomb", " ", "in", " ", "h"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"numSols", "\[NotEqual]", "0"}], ",", 
       RowBox[{"cols", "=", 
        RowBox[{"Thread", "[", 
         RowBox[{"Rule", "[", 
          RowBox[{
           RowBox[{"First", "/@", 
            RowBox[{"List", "@@@", "vars"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Blend", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"Green", ",", "Red"}], "}"}], ",", "#"}], "]"}], 
             "&"}], "/@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tr", "/@", "res"}], "/", "numSols"}], ")"}]}]}], "]"}],
          "]"}]}], ",", 
       RowBox[{"cols", "=", 
        RowBox[{"{", "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Row", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Grid", "[", 
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{"data", ",", "h", ",", "h"}], "]"}], ",", 
          RowBox[{"Background", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"None", ",", "None", ",", "cols"}], "}"}]}], ",", 
          RowBox[{"Alignment", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Center", ",", "Center"}], "}"}]}], ",", 
          RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}], ",", "\"\<  \>\"", 
        ",", 
        RowBox[{"Column", "[", 
         RowBox[{"{", 
          RowBox[{"\"\<Probability\>\"", ",", "colMap"}], "}"}], "]"}], ",", 
        "\"\<  \>\"", ",", "ns"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
    ")"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"data", ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"x", ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "10"}], "}"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"h", ",", "5"}], "}"}], ",", "1", ",", "10", ",", "1"}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Dynamic", "[", 
    RowBox[{"Panel", "[", 
     RowBox[{"Grid", "[", 
      RowBox[{"Outer", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", 
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x", ",", "F"}], "}"}], ",", 
             RowBox[{"Range", "[", 
              RowBox[{"0", ",", "8"}], "]"}]}], "]"}]}], "]"}], "&"}], ",", 
        RowBox[{"Range", "[", "h", "]"}], ",", 
        RowBox[{"Range", "[", "h", "]"}]}], "]"}], "]"}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"c", "=", "Sequence"}], ";", "\[IndentingNewLine]", 
      RowBox[{"p", "=", "Position"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"flagMinus", "[", "flag_", "]"}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Norm", "[", 
             RowBox[{"#", "-", "flag"}], "]"}], "<", "1.5"}], ",", 
           RowBox[{
            RowBox[{"t", "[", 
             RowBox[{"[", 
              RowBox[{"c", "@@", "#"}], "]"}], "]"}], "--"}]}], "]"}], "&"}], 
        "/@", "nums"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"g", "@", "x_List"}], ":=", 
       RowBox[{"Tr", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"q", "[", "#", "]"}], "&"}], "/@", "x"}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", ")"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"data", ",", "h"}], "}"}]}]}], "]"}]], "Input"]
},
WindowSize->{715, 655},
WindowMargins->{{144, Automatic}, {Automatic, 30}},
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1463, 33, 7898, 215, 812, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature 2wTDTMpMbF488DgSEz3tFiLs *)