Mfcttrf

Is it right to extend flaps only in the white arc?

How do I deal with too many NPCs in my campaign?

Co-Supervisor comes to office to help her students which distracts me

How can this Stack Exchange site have an animated favicon?

When is it acceptable to write a bad letter of recommendation?

Functional analysis of the Pink Panther

How to deal with my team leader who keeps calling me about project updates even though I am on leave for personal reasons?

What is the meaning of "heutig" in this sentence?

Cut a cake into 3 equal portions with only a knife

What benefits does the Power Word Kill spell have?

Is it possible to encode a message in such a way that can only be read by someone or something capable of seeing into the very near future?

How can I repair this gas leak on my new range? Teflon tape isn't working

What is the size of a set of sets of the empty set , , ?

Hiking with a mule or two?

Why are there two fundamental laws of logic?

A high quality contribution but an annoying error is present in my published article

1, 2, 4, 8, 16, ... 33?

Would there theoretically be an accompanying effect to something moving beyond the speed of light?

What exactly did this mechanic sabotage on the American Airlines 737, and how dangerous was it?

Should the average user with no special access rights be worried about SMS-based 2FA being theoretically interceptable?

Why weren't the Death Star plans transmitted electronically?

Is this Portent-like spell balanced?

Which place in our solar system is the most fit for terraforming?

Does Sitecore have support for Sitecore products in containers?

Drawing line in notebook with Mathematica command

Opening a notebook from command line in an existing front end instanceHow to run all command with same name into a notebookNotebookEvaluate with InsertResults -> True from the command lineRunning Mathematica Notebook files in command modeDo-Command around entire Notebook (by iterating it from another notebook?)Hide all code cells in notebook with Style: InputSharing kernel between interactive command line and notebook?Robust line numbers in Mathematica notebookExport in slave notebook

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

2

$begingroup$

I have a for loop that makes plots iteratively, in between the plots, I would like to draw a line in the notebook. Is there a command that is the equivalent of doing this:

https://reference.wolfram.com/language/workflow/InsertAHorizontalLineInANotebook.html

front-end notebooks

share|improve this question

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Any other method to divide my notebook up would be appreciated as well
  $endgroup$
  – Jin
  9 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Why not use GraphicsColumn and Table instead of For (and Print, I guess?)?
  $endgroup$
  – xzczd
  9 hours ago
  

  
  
  
  

add a comment
 | 

2

$begingroup$

I have a for loop that makes plots iteratively, in between the plots, I would like to draw a line in the notebook. Is there a command that is the equivalent of doing this:

https://reference.wolfram.com/language/workflow/InsertAHorizontalLineInANotebook.html

front-end notebooks

share|improve this question

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Any other method to divide my notebook up would be appreciated as well
  $endgroup$
  – Jin
  9 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Why not use GraphicsColumn and Table instead of For (and Print, I guess?)?
  $endgroup$
  – xzczd
  9 hours ago
  

  
  
  
  

add a comment
 | 

$begingroup$

I have a for loop that makes plots iteratively, in between the plots, I would like to draw a line in the notebook. Is there a command that is the equivalent of doing this:

https://reference.wolfram.com/language/workflow/InsertAHorizontalLineInANotebook.html

front-end notebooks

share|improve this question

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

$endgroup$

share|improve this question

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

share|improve this question

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

edited 9 hours ago

xzczd

29.5k66 gold badges8383 silver badges273273 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

asked 9 hours ago

JinJin

8966 bronze badges

2 Answers
2

active

oldest

votes

3

$begingroup$

There's many ways to achieve something like this, but a start for programmatically creating a line to go across your notebook would be something like this:

CellPrint[
 Cell["", "Text", Editable -> False, Selectable -> False, 
 CellFrame -> 0, 0, 0, 0.5, ShowCellBracket -> False, 
 CellMargins -> 0, 0, 1, 1, 
 CellElementSpacings -> "CellMinHeight" -> 1, 
 CellFrameMargins -> 0, CellFrameColor -> RGBColor[0, 0, 1], 
 CellSize -> Inherited, 3]]

Of course the options can be edited, if you want it thicker, a different color, etc...

Hope this helps!

share|improve this answer

edited 9 hours ago

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

$endgroup$

add a comment
 | 

4

$begingroup$

An alternative approach is to print the cells with graphics contents with a line at the bottom:

ClearAll[thickLineBelow]
thickLineBelow = CellPrint[ExpressionCell[#, "Output", CellFrame -> 0, 0, 3, 0, 
 CellFrameColor -> RGBColor[0, 0, 1]]] &;

You can wrap each graphics object you produce in the loop with thickLineBelow:

thickLineBelow /@ Plot[Sin[x], x, 0, 2 Pi, AspectRatio -> 1/4], 
 Row[Framed /@ Graphics[Red, Disk[], ImageSize -> 100], 
 Plot[x Sin[x], x, 0, 5 Pi, ImageSize -> 200], Spacer[10]], 
 MatrixPlot[RandomReal[1, 5, 30], ImageSize -> 300];

share|improve this answer

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges

$endgroup$

add a comment
 | 

Your Answer

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/4.0/"u003ecc by-sa 4.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f206550%2fdrawing-line-in-notebook-with-mathematica-command%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

3

$begingroup$

There's many ways to achieve something like this, but a start for programmatically creating a line to go across your notebook would be something like this:

CellPrint[
 Cell["", "Text", Editable -> False, Selectable -> False, 
 CellFrame -> 0, 0, 0, 0.5, ShowCellBracket -> False, 
 CellMargins -> 0, 0, 1, 1, 
 CellElementSpacings -> "CellMinHeight" -> 1, 
 CellFrameMargins -> 0, CellFrameColor -> RGBColor[0, 0, 1], 
 CellSize -> Inherited, 3]]

Of course the options can be edited, if you want it thicker, a different color, etc...

Hope this helps!

share|improve this answer

edited 9 hours ago

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

$endgroup$

add a comment
 | 

3

$begingroup$

There's many ways to achieve something like this, but a start for programmatically creating a line to go across your notebook would be something like this:

CellPrint[
 Cell["", "Text", Editable -> False, Selectable -> False, 
 CellFrame -> 0, 0, 0, 0.5, ShowCellBracket -> False, 
 CellMargins -> 0, 0, 1, 1, 
 CellElementSpacings -> "CellMinHeight" -> 1, 
 CellFrameMargins -> 0, CellFrameColor -> RGBColor[0, 0, 1], 
 CellSize -> Inherited, 3]]

Of course the options can be edited, if you want it thicker, a different color, etc...

Hope this helps!

share|improve this answer

edited 9 hours ago

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

There's many ways to achieve something like this, but a start for programmatically creating a line to go across your notebook would be something like this:

CellPrint[
 Cell["", "Text", Editable -> False, Selectable -> False, 
 CellFrame -> 0, 0, 0, 0.5, ShowCellBracket -> False, 
 CellMargins -> 0, 0, 1, 1, 
 CellElementSpacings -> "CellMinHeight" -> 1, 
 CellFrameMargins -> 0, CellFrameColor -> RGBColor[0, 0, 1], 
 CellSize -> Inherited, 3]]

Of course the options can be edited, if you want it thicker, a different color, etc...

Hope this helps!

share|improve this answer

edited 9 hours ago

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

$endgroup$

CellPrint[
 Cell["", "Text", Editable -> False, Selectable -> False, 
 CellFrame -> 0, 0, 0, 0.5, ShowCellBracket -> False, 
 CellMargins -> 0, 0, 1, 1, 
 CellElementSpacings -> "CellMinHeight" -> 1, 
 CellFrameMargins -> 0, CellFrameColor -> RGBColor[0, 0, 1], 
 CellSize -> Inherited, 3]]

share|improve this answer

edited 9 hours ago

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

answered 9 hours ago

user6014user6014

3,6341414 silver badges2525 bronze badges

4

$begingroup$

An alternative approach is to print the cells with graphics contents with a line at the bottom:

ClearAll[thickLineBelow]
thickLineBelow = CellPrint[ExpressionCell[#, "Output", CellFrame -> 0, 0, 3, 0, 
 CellFrameColor -> RGBColor[0, 0, 1]]] &;

You can wrap each graphics object you produce in the loop with thickLineBelow:

thickLineBelow /@ Plot[Sin[x], x, 0, 2 Pi, AspectRatio -> 1/4], 
 Row[Framed /@ Graphics[Red, Disk[], ImageSize -> 100], 
 Plot[x Sin[x], x, 0, 5 Pi, ImageSize -> 200], Spacer[10]], 
 MatrixPlot[RandomReal[1, 5, 30], ImageSize -> 300];

share|improve this answer

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges

$endgroup$

add a comment
 | 

4

$begingroup$

An alternative approach is to print the cells with graphics contents with a line at the bottom:

ClearAll[thickLineBelow]
thickLineBelow = CellPrint[ExpressionCell[#, "Output", CellFrame -> 0, 0, 3, 0, 
 CellFrameColor -> RGBColor[0, 0, 1]]] &;

You can wrap each graphics object you produce in the loop with thickLineBelow:

thickLineBelow /@ Plot[Sin[x], x, 0, 2 Pi, AspectRatio -> 1/4], 
 Row[Framed /@ Graphics[Red, Disk[], ImageSize -> 100], 
 Plot[x Sin[x], x, 0, 5 Pi, ImageSize -> 200], Spacer[10]], 
 MatrixPlot[RandomReal[1, 5, 30], ImageSize -> 300];

share|improve this answer

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

An alternative approach is to print the cells with graphics contents with a line at the bottom:

ClearAll[thickLineBelow]
thickLineBelow = CellPrint[ExpressionCell[#, "Output", CellFrame -> 0, 0, 3, 0, 
 CellFrameColor -> RGBColor[0, 0, 1]]] &;

You can wrap each graphics object you produce in the loop with thickLineBelow:

thickLineBelow /@ Plot[Sin[x], x, 0, 2 Pi, AspectRatio -> 1/4], 
 Row[Framed /@ Graphics[Red, Disk[], ImageSize -> 100], 
 Plot[x Sin[x], x, 0, 5 Pi, ImageSize -> 200], Spacer[10]], 
 MatrixPlot[RandomReal[1, 5, 30], ImageSize -> 300];

share|improve this answer

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges

$endgroup$

ClearAll[thickLineBelow]
thickLineBelow = CellPrint[ExpressionCell[#, "Output", CellFrame -> 0, 0, 3, 0, 
 CellFrameColor -> RGBColor[0, 0, 1]]] &;

thickLineBelow /@ Plot[Sin[x], x, 0, 2 Pi, AspectRatio -> 1/4], 
 Row[Framed /@ Graphics[Red, Disk[], ImageSize -> 100], 
 Plot[x Sin[x], x, 0, 5 Pi, ImageSize -> 200], Spacer[10]], 
 MatrixPlot[RandomReal[1, 5, 30], ImageSize -> 300];

share|improve this answer

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges

answered 7 hours ago

kglrkglr

218k1010 gold badges248248 silver badges499499 bronze badges