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

mathematical optimization - Minimizing using indices, error: Part::pkspec1: The expression cannot be used as a part specification

I want to use Minimize where the variables to minimize are indices pointing into an array. Here a MWE that hopefully shows what my problem is. vars = u@# & /@ Range[3]; cons = Flatten@ { Table[(u[j] != #) & /@ vars[[j + 1 ;; -1]], {j, 1, 3 - 1}], 1 vec1 = {1, 2, 3}; vec2 = {1, 2, 3}; Minimize[{Total@((vec1[[#]] - vec2[[u[#]]])^2 & /@ Range[1, 3]), cons}, vars, Integers] The error I get: Part::pkspec1: The expression u[1] cannot be used as a part specification. >> Answer Ok, it seems that one can get around Mathematica trying to evaluate vec2[[u[1]]] too early by using the function Indexed[vec2,u[1]] . The working MWE would then look like the following: vars = u@# & /@ Range[3]; cons = Flatten@{ Table[(u[j] != #) & /@ vars[[j + 1 ;; -1]], {j, 1, 3 - 1}], 1 vec1 = {1, 2, 3}; vec2 = {1, 2, 3}; NMinimize[ {Total@((vec1[[#]] - Indexed[vec2, u[#]])^2 & /@ R...
Post a Comment
Read more

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...
Post a Comment
Read more

What is and isn't a valid variable specification for Manipulate?

I have an expression whose terms have arguments (representing subscripts), like this: myExpr = A[0] + V[1,T] I would like to put it inside a Manipulate to see its value as I move around the parameters. (The goal is eventually to plot it wrt one of the variables inside.) However, Mathematica complains when I set V[1,T] as a manipulated variable: Manipulate[Evaluate[myExpr], {A[0], 0, 1}, {V[1, T], 0, 1}] (*Manipulate::vsform: Manipulate argument {V[1,T],0,1} does not have the correct form for a variable specification. >> *) As a workaround, if I get rid of the symbol T inside the argument, it works fine: Manipulate[ Evaluate[myExpr /. T -> 15], {A[0], 0, 1}, {V[1, 15], 0, 1}] Why this behavior? Can anyone point me to the documentation that says what counts as a valid variable? And is there a way to get Manpiulate to accept an expression with a symbolic argument as a variable? Investigations I've done so far: I tried using variableQ from this answer , but it says V[1...
Post a Comment
Read more