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

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...
Post a Comment
Read more

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...
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