Skip to main content

version 10 - How to recover a notebook?



I was closing a notebook, luckily Mathematica (10!) asked me if I really wanted to quit without saving, so I saved, but now when I open that notebook this is what I see:


enter image description here



Is there a way to recover the content of the notebook?


EDIT


Mathematica showed me this dialog:


enter image description here


and I clicked on "Save".


EDIT2 As requested:


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

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


(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     28123,        729]
NotebookOptionsPosition[     26564,        684]

NotebookOutlinePosition[     27872,        720]
CellTagsIndexPosition[     27829,        717]
WindowTitle->Wolfram Mathematica 10.0
WindowFrame->ModelessDialog*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 PaneBox["\<\"\"\>",
  ImageSize->{Full, 9}]],

 CellMargins->0,
 CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]},
 CellElementSpacings->{"CellMinHeight"->1},
 CellHorizontalScrolling->True,
 PageBreakAbove->True,
 PageBreakWithin->False,
 CellLabelMargins->0,
 CellFrameMargins->0,
 CellFrameLabelMargins->0,
 ShowAutoStyles->True,

 LineSpacing->{1.25, 0},
 AutoItalicWords->{},
 ScriptMinSize->9,
 ShowStringCharacters->False,
 FontFamily:>CurrentValue["PanelFontFamily"],
 FontSize->1,
 Background->RGBColor[
  0.8980392156862745, 0.09803921568627451, 0.10980392156862745`]],

Cell[BoxData[

 PaneBox[
  DynamicBox[FEPrivate`ImportImage[
    FrontEnd`ToFileName[{"Dialogs", "Closing"}, "TitleBanner.png"]],
   ImageSizeCache->{334., {14., 18.}}],
  Alignment->Center,
  ImageMargins->{{0, 0}, {0, 20}},
  ImageSize->Full]],
 CellMargins->0,
 CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]},
 CellElementSpacings->{"CellMinHeight"->1},

 CellHorizontalScrolling->True,
 PageBreakAbove->True,
 PageBreakWithin->False,
 CellLabelMargins->0,
 CellFrameMargins->0,
 CellFrameLabelMargins->0,
 ShowAutoStyles->True,
 LineSpacing->{1.25, 0},
 AutoItalicWords->{},
 ScriptMinSize->9,

 ShowStringCharacters->False,
 FontFamily:>CurrentValue["PanelFontFamily"],
 FontSize->1],

Cell[BoxData[
 PaneBox[
  TagBox[GridBox[{
     {
      TagBox[
       PaneSelectorBox[{"Default"->

        TagBox[GridBox[{
           {
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "File.png"]],
             ImageSizeCache->{39., {17., 22.}}]},
           {
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[

               "MathematicaClosingDialog", "NewNotebook"],
               ImageSizeCache->{81., {1., 9.}}],
              StripOnInput->False,

              LineColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],

              FrontFaceColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 

                0.42745098039215684`],

              BackFaceColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],

              GraphicsColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],
              FontFamily->"Helvetica",

              FontSize:>FrontEnd`CurrentValue["ControlsFontSize"],

              FontColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`]],
             StripOnInput->False,
             FontWeight->Bold]}
          },
          AutoDelete->False,


          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
         "Grid"], "Hover"->
        TagBox[GridBox[{
           {
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "File-Hover.png"]],
             ImageSizeCache->{39., {17., 22.}}]},
           {

            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[
               "MathematicaClosingDialog", "NewNotebook"],
               ImageSizeCache->{81., {1., 9.}}],
              StripOnInput->False,

              LineColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],


              FrontFaceColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],

              BackFaceColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],

              GraphicsColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],
              FontFamily->"Helvetica",

              FontSize:>FrontEnd`CurrentValue["ControlsFontSize"],

              FontColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392]],
             StripOnInput->False,
             FontWeight->Bold]}
          },
          AutoDelete->False,

          GridBoxItemSize->{

           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
         "Grid"]}, FEPrivate`If[
         FrontEnd`CurrentValue["MouseOver"], "Hover", "Default"]],
       EventHandlerTag[{"MouseClicked" :> DialogReturn[
           FrontEndTokenExecute["New"]], PassEventsDown -> Automatic, 
         PassEventsUp -> True}]], 
      TagBox[
       PaneSelectorBox[{"Default"->
        TagBox[GridBox[{

           {
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "Open.png"]],
             ImageSizeCache->{45., {15., 20.}}]},
           {
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[
               "WelcomeScreen", "OpenDialogText"],

               ImageSizeCache->{42., {2., 9.}}],
              StripOnInput->False,

              LineColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],

              FrontFaceColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],


              BackFaceColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],

              GraphicsColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],
              FontFamily->"Helvetica",
              FontSize:>FrontEnd`CurrentValue["ControlsFontSize"],


              FontColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`]],
             StripOnInput->False,
             FontWeight->Bold]}
          },
          AutoDelete->False,

          GridBoxItemSize->{

           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
         "Grid"], "Hover"->
        TagBox[GridBox[{
           {
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "Open-Hover.png"]],
             ImageSizeCache->{45., {15., 20.}}]},
           {
            StyleBox[

             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[
               "WelcomeScreen", "OpenDialogText"],
               ImageSizeCache->{42., {2., 9.}}],
              StripOnInput->False,

              LineColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],


              FrontFaceColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],

              BackFaceColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],

              GraphicsColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],
              FontFamily->"Helvetica",
              FontSize:>FrontEnd`CurrentValue["ControlsFontSize"],


              FontColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392]],
             StripOnInput->False,
             FontWeight->Bold]}
          },
          AutoDelete->False,

          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},

          GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
         "Grid"]}, FEPrivate`If[
         FrontEnd`CurrentValue["MouseOver"], "Hover", "Default"]],
       EventHandlerTag[{"MouseClicked" :> If[
           CurrentValue["LocalFileSystemAccessAllowed"], 
           FrontEndTokenExecute["Open"], 
           FrontEndTokenExecute["OpenCloudObject"]], PassEventsDown -> 
         Automatic, PassEventsUp -> True}]], 
      TagBox[
       PaneSelectorBox[{"Default"->

        TagBox[GridBox[{
           {
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "Quit.png"]],
             ImageSizeCache->{32., {14., 18.}}]},
           {
            StyleBox[
             StyleBox[
              DynamicBox[FEPrivate`FrontEndResourceString["quitButtonText"],
               ImageSizeCache->{23., {1., 9.}}],

              StripOnInput->False,

              LineColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],

              FrontFaceColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],


              BackFaceColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],

              GraphicsColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`],
              FontFamily->"Helvetica",
              FontSize:>FrontEnd`CurrentValue["ControlsFontSize"],


              FontColor->RGBColor[
               0.43137254901960786`, 0.42745098039215684`, 
                0.42745098039215684`]],
             StripOnInput->False,
             FontWeight->Bold]}
          },
          AutoDelete->False,

          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},

          GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
         "Grid"], "Hover"->
        TagBox[GridBox[{
           {
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "Quit-Hover.png"]],
             ImageSizeCache->{32., {14., 18.}}]},
           {
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResourceString["quitButtonText"],
               ImageSizeCache->{23., {1., 9.}}],
              StripOnInput->False,

              LineColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],

              FrontFaceColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],


              BackFaceColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],

              GraphicsColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392],
              FontFamily->"Helvetica",
              FontSize:>FrontEnd`CurrentValue["ControlsFontSize"],

              FontColor->RGBColor[
               0.9294117647058824, 0.1803921568627451, 0.01568627450980392]],

             StripOnInput->False,
             FontWeight->Bold]}
          },
          AutoDelete->False,

          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
         "Grid"]}, FEPrivate`If[
         FrontEnd`CurrentValue["MouseOver"], "Hover", "Default"]],

       EventHandlerTag[{"MouseClicked" :> DialogReturn[
           FrontEndTokenExecute["FrontEndQuit"]], PassEventsDown -> Automatic,
          PassEventsUp -> True}]]}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxItemSize->{"Columns" -> {{
         Scaled[0.33]}}}],
   "Grid"],
  Alignment->{Center, Center},

  ImageMargins->{{20, 20}, {30, 20}}]],
 ShowCellBracket->False,
 CellMargins->0,
 CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]},
 CellHorizontalScrolling->True,
 PageBreakAbove->True,
 PageBreakWithin->False,
 ShowAutoStyles->True,
 LineSpacing->{1.25, 0},
 AutoItalicWords->{},

 ScriptMinSize->9,
 ShowStringCharacters->False,
 FontFamily:>CurrentValue["PanelFontFamily"],
 FontSize:>CurrentValue["PanelFontSize"]],

Cell[BoxData[
 PaneBox[
  PaneSelectorBox[{True->
   PaneSelectorBox[{"Default"->
    TagBox[GridBox[{

       {
        TagBox[
         DynamicBox[FEPrivate`ImportImage[
           FrontEnd`ToFileName[{"Dialogs", "Closing"}, "CheckboxOff.png"]],
          ImageSizeCache->{14., {5., 9.}}],
         EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
             FrontEnd`CurrentValue[
              FrontEndObject[
               LinkObject["yw9au_shm", 3, 1]], {
              PrivateNotebookOptions, "FinalWindowPrompt"}], 

             FEPrivate`Not[
              FrontEnd`CurrentValue[
               FrontEndObject[
                LinkObject["yw9au_shm", 3, 1]], {
               PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
           PassEventsDown -> Automatic, PassEventsUp -> True}]], 
        TagBox[
         StyleBox[
          StyleBox[


           DynamicBox[FEPrivate`FrontEndResource[
            "MathematicaClosingDialog", "ToggleText"],
            ImageSizeCache->{187., {3., 9.}}], "DialogStyle",
           StripOnInput->False,
           FontColor->GrayLevel[0.8]],
          StripOnInput->False,
          LineSpacing->{1, 0},
          LineIndent->0],
         EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
             FrontEnd`CurrentValue[

              FrontEndObject[
               LinkObject["yw9au_shm", 3, 1]], {
              PrivateNotebookOptions, "FinalWindowPrompt"}], 
             FEPrivate`Not[
              FrontEnd`CurrentValue[
               FrontEndObject[
                LinkObject["yw9au_shm", 3, 1]], {
               PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
           PassEventsDown -> Automatic, PassEventsUp -> True}]]}
      },

      AutoDelete->False,
      GridBoxAlignment->{"Rows" -> {{Bottom}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings->{"Columns" -> {{0.5}}}],
     "Grid"], "Hover"->
    DynamicModuleBox[{$CellContext`pressedQ$$ = False}, 
     TagBox[
      PaneSelectorBox[{False->
       TagBox[GridBox[{
          {

           TagBox[
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "CheckboxOff.png"]],
             ImageSizeCache->{14., {5., 9.}}],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[
                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[

                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {
                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           TagBox[
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[

               "MathematicaClosingDialog", "ToggleText"],
               ImageSizeCache->{187., {3., 9.}}], "DialogStyle",
              StripOnInput->False,
              FontColor->GrayLevel[0.8]],
             StripOnInput->False,
             LineSpacing->{1, 0},
             LineIndent->0],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[

                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[
                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {
                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]]}
         },
         AutoDelete->False,

         GridBoxAlignment->{"Rows" -> {{Bottom}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
         GridBoxSpacings->{"Columns" -> {{0.5}}}],
        "Grid"], True->
       TagBox[GridBox[{
          {
           TagBox[
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "CheckboxOff.png"]],

             ImageSizeCache->{14., {5., 9.}}],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[
                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[
                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {

                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           TagBox[
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[
               "MathematicaClosingDialog", "ToggleText"],
               ImageSizeCache->{187., {3., 9.}}], "DialogStyle",
              StripOnInput->False,

              FontColor->GrayLevel[0.8]],
             StripOnInput->False,
             LineSpacing->{1, 0},
             LineIndent->0],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[
                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[

                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {
                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]]}
         },
         AutoDelete->False,
         GridBoxAlignment->{"Rows" -> {{Bottom}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},

         GridBoxSpacings->{"Columns" -> {{0.5}}}],
        "Grid"]}, Dynamic[$CellContext`pressedQ$$]],
      EventHandlerTag[{
       "MouseUp" :> ($CellContext`pressedQ$$ = False), 
        "MouseDown" :> ($CellContext`pressedQ$$ = True), PassEventsUp -> True,
         PassEventsDown -> Automatic, PassEventsUp -> True}]],
     DynamicModuleValues:>{}]}, FEPrivate`If[
     FrontEnd`CurrentValue["MouseOver"], "Hover", "Default"]], False->
   PaneSelectorBox[{"Default"->
    TagBox[GridBox[{

       {
        TagBox[
         DynamicBox[FEPrivate`ImportImage[
           FrontEnd`ToFileName[{"Dialogs", "Closing"}, "CheckboxOn.png"]],
          ImageSizeCache->{14., {5., 9.}}],
         EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
             FrontEnd`CurrentValue[
              FrontEndObject[
               LinkObject["yw9au_shm", 3, 1]], {
              PrivateNotebookOptions, "FinalWindowPrompt"}], 

             FEPrivate`Not[
              FrontEnd`CurrentValue[
               FrontEndObject[
                LinkObject["yw9au_shm", 3, 1]], {
               PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
           PassEventsDown -> Automatic, PassEventsUp -> True}]], 
        TagBox[
         StyleBox[
          StyleBox[


           DynamicBox[FEPrivate`FrontEndResource[
            "MathematicaClosingDialog", "ToggleText"],
            ImageSizeCache->{187., {3., 9.}}], "DialogStyle",
           StripOnInput->False,
           FontColor->GrayLevel[0.8]],
          StripOnInput->False,
          LineSpacing->{1, 0},
          LineIndent->0],
         EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
             FrontEnd`CurrentValue[

              FrontEndObject[
               LinkObject["yw9au_shm", 3, 1]], {
              PrivateNotebookOptions, "FinalWindowPrompt"}], 
             FEPrivate`Not[
              FrontEnd`CurrentValue[
               FrontEndObject[
                LinkObject["yw9au_shm", 3, 1]], {
               PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
           PassEventsDown -> Automatic, PassEventsUp -> True}]]}
      },

      AutoDelete->False,
      GridBoxAlignment->{"Rows" -> {{Bottom}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings->{"Columns" -> {{0.5}}}],
     "Grid"], "Hover"->
    DynamicModuleBox[{$CellContext`pressedQ$$ = False}, 
     TagBox[
      PaneSelectorBox[{False->
       TagBox[GridBox[{
          {

           TagBox[
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "CheckboxOn.png"]],
             ImageSizeCache->{14., {5., 9.}}],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[
                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[

                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {
                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           TagBox[
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[

               "MathematicaClosingDialog", "ToggleText"],
               ImageSizeCache->{187., {3., 9.}}], "DialogStyle",
              StripOnInput->False,
              FontColor->GrayLevel[0.8]],
             StripOnInput->False,
             LineSpacing->{1, 0},
             LineIndent->0],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[

                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[
                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {
                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]]}
         },
         AutoDelete->False,

         GridBoxAlignment->{"Rows" -> {{Bottom}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
         GridBoxSpacings->{"Columns" -> {{0.5}}}],
        "Grid"], True->
       TagBox[GridBox[{
          {
           TagBox[
            DynamicBox[FEPrivate`ImportImage[
              FrontEnd`ToFileName[{"Dialogs", "Closing"}, "CheckboxOn.png"]],

             ImageSizeCache->{14., {5., 9.}}],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[
                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[
                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {

                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           TagBox[
            StyleBox[
             StyleBox[

              DynamicBox[FEPrivate`FrontEndResource[
               "MathematicaClosingDialog", "ToggleText"],
               ImageSizeCache->{187., {3., 9.}}], "DialogStyle",
              StripOnInput->False,

              FontColor->GrayLevel[0.8]],
             StripOnInput->False,
             LineSpacing->{1, 0},
             LineIndent->0],
            EventHandlerTag[{"MouseClicked" :> FEPrivate`Set[
                FrontEnd`CurrentValue[
                 FrontEndObject[
                  LinkObject["yw9au_shm", 3, 1]], {
                 PrivateNotebookOptions, "FinalWindowPrompt"}], 
                FEPrivate`Not[

                 FrontEnd`CurrentValue[
                  FrontEndObject[
                   LinkObject["yw9au_shm", 3, 1]], {
                  PrivateNotebookOptions, "FinalWindowPrompt"}]]], 
              PassEventsDown -> Automatic, PassEventsUp -> True}]]}
         },
         AutoDelete->False,
         GridBoxAlignment->{"Rows" -> {{Bottom}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},

         GridBoxSpacings->{"Columns" -> {{0.5}}}],
        "Grid"]}, Dynamic[$CellContext`pressedQ$$]],
      EventHandlerTag[{
       "MouseUp" :> ($CellContext`pressedQ$$ = False), 
        "MouseDown" :> ($CellContext`pressedQ$$ = True), PassEventsUp -> True,
         PassEventsDown -> Automatic, PassEventsUp -> True}]],
     DynamicModuleValues:>{}]}, FEPrivate`If[
     FrontEnd`CurrentValue["MouseOver"], "Hover", "Default"]]}, Dynamic[
    FrontEnd`CurrentValue[$FrontEnd, {
     PrivateNotebookOptions, "FinalWindowPrompt"}]],

   ImageSize->All],
  Alignment->{Right, Center},
  ImageMargins->0,
  ImageSize->{Full, 30}]],


Comments

Post a Comment

Popular posts from this blog

plotting - How to draw lines between specified dots on ListPlot?

I would like to create a plot where I have unconnected dots and some connected. So far, I have figured out how to draw the dots. My code is the following: ListPlot[{{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4,13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full] I have thought using ListLinePlot command, but I don't know how to specify to the command to draw only selected lines between the dots. Do have any suggestions/hints on how to do that? Thank you. Answer One possibility would be to use Epilog with Line : ListPlot[ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4, 13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full, Epilog -> { Line[ ...
Post a Comment
Read more

dynamic - How can I make a clickable ArrayPlot that returns input?

I would like to create a dynamic ArrayPlot so that the rectangles, when clicked, provide the input. Can I use ArrayPlot for this? Or is there something else I should have to use? Answer ArrayPlot is much more than just a simple array like Grid : it represents a ranged 2D dataset, and its visualization can be finetuned by options like DataReversed and DataRange . These features make it quite complicated to reproduce the same layout and order with Grid . Here I offer AnnotatedArrayPlot which comes in handy when your dataset is more than just a flat 2D array. The dynamic interface allows highlighting individual cells and possibly interacting with them. AnnotatedArrayPlot works the same way as ArrayPlot and accepts the same options plus Enabled , HighlightCoordinates , HighlightStyle and HighlightElementFunction . data = {{Missing["HasSomeMoreData"], GrayLevel[ 1], {RGBColor[0, 1, 1], RGBColor[0, 0, 1], GrayLevel[1]}, RGBColor[0, 1, 0]}, {GrayLevel[0], GrayLevel...
Post a Comment
Read more

list manipulation - Selecting multiple columns from a matrix?

Sample data: data = { {{2013, 1, 1}, 24.13, 167.67, 231.82}, {{2013, 1, 2}, 32.15, 170.92, 225.99}, {{2013, 1, 3}, 35.43, 172.68, 221.67}, {{2013, 1, 4}, 36.73, 173.05, 218.32}, {{2013, 1, 5}, 58.19, 165.96, 197.05}, {{2013, 1, 6}, 69.99, 163.50, 187.52}, {{2013, 1, 7}, 71.37, 154.21, 175.58}, {{2013, 1, 8}, 72.51, 149.66, 163.25}}; I want a DateListPlot with three graphs, so for a matrix formed by columns 1 and 2, one for columns 1 and 3, and 1 for columns 1 and 4. At the moment I'm using this code: data2 = Transpose[{data[[All, 1]], data[[All, 2]]}]; data3 = Transpose[{data[[All, 1]], data[[All, 3]]}]; data4 = Transpose[{data[[All, 1]], data[[All, 4]]}]; DateListPlot[{data2, data3, data4}, Joined -> True, Filling -> {3 -> {1}}] but I have a hunch that this can be done more efficiently. I don't like the Transpose s in particular. Any ideas? edit (for extra credit) What if I need to multiply the second column by 2, which in my solution is simp...
Post a Comment
Read more