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 - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Adding a thick curve to a regionplot

Suppose we have the following simple RegionPlot: f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}] Now I'm trying to change the curve defined by $y=g[x]$ into a thick black curve, while leaving all other boundaries in the plot unchanged. I've tried adding the region $y=g[x]$ and playing with the plotstyle, which didn't work, and I've tried BoundaryStyle, which changed all the boundaries in the plot. Now I'm kinda out of ideas... Any help would be appreciated! Answer With f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 You can use Epilog to add the thick line: RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}, PlotPoints -> 50, Epilog -> (Plot[g[x], {x, 0, 2}, PlotStyle -> {Black, Thick}][[1]]), PlotStyle -> {Directive[Yellow, Opacity[0.4]], Directive[Pink, Opacity[0.4]],
Post a Comment
Read more