Tag Info

New answers tagged

4

Put this code after your merged cell and evaluate, it should print below all expressions separately. I don't know how solid it is but worth a try: Composition[ Scan[CellPrint[Cell[#, "Input"]] &, #] &, Thread, DeleteCases[#, "\[IndentingNewLine]" | "\n", {2}] &, First, NotebookRead ]@PreviousCell[]


1

Here is another try, this time more close to what you actually wanted: It generates a list of buttons for the largest cells (button is labeled with size in kB). If you press a button, the corresponding cell will be selected. You can change the number of rows to show if you wish. The code needs the CellIDs to be set, so it has buttons to create and delete ...


2

The code below does not exactly what you have asked for, but it should contain the relevant stuff. To create an index ordered by cell sizes I think it would be easiest to set CreateCellID to True for your notebook. To create ids for the existing cells you'd have to "Cut" and "Paste" all of them once, new cells will automatically get an unique CellID. Then ...


14

In either the Display or the Color Management control panel navigate to the calibration option and change some settings and revert back. Click Apply to see if it helps. Pasted from question: Problem resolved. Thanks to suggestion by SjoerdC.deVries in comments. I run the windows color calibration and clicked apply, then restarted Mathematica, and now the ...


4

SetDirectory changes the kernels working directory, and as long as several notebooks share the same kernel, what you describe is what is expected. You could use different kernels for the different notebooks you have opened, but of course that is limited by kernel licenses and has many other consequences. Alternatively you could use the CellProlog option to ...


4

I will try to add a more general function later, meanwhile you can use this procedure: Module[{cells, data}, cells = Cells[CellStyle -> "Section"]; data = ( SelectionMove[#, All, CellGroup, AutoScroll -> False]; NotebookRead[EvaluationNotebook[]] ) & /@ SortBy[cells, First@NotebookRead[#] &]; Do[ ...



Top 50 recent answers are included