Cell formatting and hiding codeProgrammatic formatting for Mathematica code - possible?How to change default settings of cell formatting?Mathematica Presentation Cell FormattingHow to prevent a definition from overwriting my inputFormatting of partial and ddCode formattingWould like input and output printed on same line, w/o needing extra syntaxCode indenting of // postfix functionsIs there any code formatting style reference?Formatting an input cell

Multi tool use
Fuse symbol on toroidal transformer
Proving a function is onto where f(x)=|x|.
Indicating multiple different modes of speech (fantasy language or telepathy)
How do ground effect vehicles perform turns?
Why did the EU agree to delay the Brexit deadline?
Could solar power be utilized and substitute coal in the 19th Century
Can we have a perfect cadence in a minor key?
What (else) happened July 1st 1858 in London?
Why is Arduino resetting while driving motors?
Can a significant change in incentives void an employment contract?
Can I sign legal documents with a smiley face?
How do I repair my stair bannister?
Has Darkwing Duck ever met Scrooge McDuck?
Is a model fitted to data or is data fitted to a model?
What's the difference between 違法 and 不法?
How to align and center standalone amsmath equations?
Why did the HMS Bounty go back to a time when whales are already rare?
Why does Async/Await work properly when the loop is inside the async function and not the other way around?
How must one send away the mother bird?
Can the Supreme Court overturn an impeachment?
Customize circled numbers
How to decide convergence of Integrals
How to color a curve
Did US corporations pay demonstrators in the German demonstrations against article 13?
Cell formatting and hiding code
Programmatic formatting for Mathematica code - possible?How to change default settings of cell formatting?Mathematica Presentation Cell FormattingHow to prevent a definition from overwriting my inputFormatting of partial and ddCode formattingWould like input and output printed on same line, w/o needing extra syntaxCode indenting of // postfix functionsIs there any code formatting style reference?Formatting an input cell
$begingroup$
I've written some code that's been getting longer and longer, Is there a way to "hide" the section of the code that does not require input so that i can just give it my two inputs and jump straight to the results?
p1 = -5, 4;
m = 9/8;
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
StringForm["The slope is: `1`", First[m]]
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]]
StringForm["Slope Intercept form: y=`1`x`3``2`", First[m],
Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]]
denom = Max[Denominator[m]];
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]]
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m],
denom*First[m]], -If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]]
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]], Max[m], Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]
I would like to hide or collapse the code after the first 2 lines and still be able to run it.
functions formatting code-review
$endgroup$
add a comment |
$begingroup$
I've written some code that's been getting longer and longer, Is there a way to "hide" the section of the code that does not require input so that i can just give it my two inputs and jump straight to the results?
p1 = -5, 4;
m = 9/8;
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
StringForm["The slope is: `1`", First[m]]
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]]
StringForm["Slope Intercept form: y=`1`x`3``2`", First[m],
Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]]
denom = Max[Denominator[m]];
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]]
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m],
denom*First[m]], -If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]]
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]], Max[m], Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]
I would like to hide or collapse the code after the first 2 lines and still be able to run it.
functions formatting code-review
$endgroup$
$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba♦
4 hours ago
$begingroup$
If you are using the Notebook Front End GUI you can insert a new cell, perhaps "Section" and give it a descprition. Place the code suggested by the goldberg answer in the next cell. Finally insert another new "Section" with a description and place the code that calls the previous code in the next cell. You can "collapse sections" and hide cells groups by enabling "Show open/close icon for cell groups" in the "Edit" > "Preferences" > "Interface" menu.
$endgroup$
– Somos
2 hours ago
add a comment |
$begingroup$
I've written some code that's been getting longer and longer, Is there a way to "hide" the section of the code that does not require input so that i can just give it my two inputs and jump straight to the results?
p1 = -5, 4;
m = 9/8;
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
StringForm["The slope is: `1`", First[m]]
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]]
StringForm["Slope Intercept form: y=`1`x`3``2`", First[m],
Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]]
denom = Max[Denominator[m]];
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]]
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m],
denom*First[m]], -If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]]
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]], Max[m], Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]
I would like to hide or collapse the code after the first 2 lines and still be able to run it.
functions formatting code-review
$endgroup$
I've written some code that's been getting longer and longer, Is there a way to "hide" the section of the code that does not require input so that i can just give it my two inputs and jump straight to the results?
p1 = -5, 4;
m = 9/8;
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
StringForm["The slope is: `1`", First[m]]
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]]
StringForm["Slope Intercept form: y=`1`x`3``2`", First[m],
Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]]
denom = Max[Denominator[m]];
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]]
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m],
denom*First[m]], -If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]],
denom*First[bb[[All, 1, 2]]]], If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]]
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]], Max[m], Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]
I would like to hide or collapse the code after the first 2 lines and still be able to run it.
functions formatting code-review
functions formatting code-review
asked 4 hours ago
WomblesWombles
954
954
$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba♦
4 hours ago
$begingroup$
If you are using the Notebook Front End GUI you can insert a new cell, perhaps "Section" and give it a descprition. Place the code suggested by the goldberg answer in the next cell. Finally insert another new "Section" with a description and place the code that calls the previous code in the next cell. You can "collapse sections" and hide cells groups by enabling "Show open/close icon for cell groups" in the "Edit" > "Preferences" > "Interface" menu.
$endgroup$
– Somos
2 hours ago
add a comment |
$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba♦
4 hours ago
$begingroup$
If you are using the Notebook Front End GUI you can insert a new cell, perhaps "Section" and give it a descprition. Place the code suggested by the goldberg answer in the next cell. Finally insert another new "Section" with a description and place the code that calls the previous code in the next cell. You can "collapse sections" and hide cells groups by enabling "Show open/close icon for cell groups" in the "Edit" > "Preferences" > "Interface" menu.
$endgroup$
– Somos
2 hours ago
$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba♦
4 hours ago
$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba♦
4 hours ago
$begingroup$
If you are using the Notebook Front End GUI you can insert a new cell, perhaps "Section" and give it a descprition. Place the code suggested by the goldberg answer in the next cell. Finally insert another new "Section" with a description and place the code that calls the previous code in the next cell. You can "collapse sections" and hide cells groups by enabling "Show open/close icon for cell groups" in the "Edit" > "Preferences" > "Interface" menu.
$endgroup$
– Somos
2 hours ago
$begingroup$
If you are using the Notebook Front End GUI you can insert a new cell, perhaps "Section" and give it a descprition. Place the code suggested by the goldberg answer in the next cell. Finally insert another new "Section" with a description and place the code that calls the previous code in the next cell. You can "collapse sections" and hide cells groups by enabling "Show open/close icon for cell groups" in the "Edit" > "Preferences" > "Interface" menu.
$endgroup$
– Somos
2 hours ago
add a comment |
1 Answer
1
active
oldest
votes
$begingroup$
Perhaps this will work for you.
Make the part of code you want to ignore into a command with SetDelayed
( :=
), like so;
resuts := (
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m0;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
denom = Max[Denominator[mm]];
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
Column[
StringForm["The slope is: `1`", First[m]],
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]],
StringForm["Slope Intercept form: y=`1`x`3``2`",
First[m], Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]],
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]],
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
-If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]],
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]],
Max[m],
Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]])
You won't be able to hide the code, but you can ignore it pretty easily and run cases like this:
p1 = -5, 4;
m0 = 9/8;
resuts
p1 = -5, 5;
m0 = 7/8;
resuts
Notes
You could put the
results
code in one notebook and the do computations in a 2nd notebook. It is even possible for the 2nd notebook to load the 1st notebook automatically when it is opened.This isn't best Mathematica practice, but there is nothing really wrong with it. It is pretty much a minimal revision of you current code. It should satisfy your needs.
Modifying your code to bring it up to best practice levels would require a much greater effort and, unless you are going to use the code in an industrial level application, I don't think it worth your effort to carry out that level of revision. Later on, when you have more Mathematica experience best, or at least better, practice methods will become second nature.
$endgroup$
add a comment |
Your Answer
StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");
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/3.0/"u003ecc by-sa 3.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
);
);
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
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193884%2fcell-formatting-and-hiding-code%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
Perhaps this will work for you.
Make the part of code you want to ignore into a command with SetDelayed
( :=
), like so;
resuts := (
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m0;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
denom = Max[Denominator[mm]];
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
Column[
StringForm["The slope is: `1`", First[m]],
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]],
StringForm["Slope Intercept form: y=`1`x`3``2`",
First[m], Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]],
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]],
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
-If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]],
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]],
Max[m],
Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]])
You won't be able to hide the code, but you can ignore it pretty easily and run cases like this:
p1 = -5, 4;
m0 = 9/8;
resuts
p1 = -5, 5;
m0 = 7/8;
resuts
Notes
You could put the
results
code in one notebook and the do computations in a 2nd notebook. It is even possible for the 2nd notebook to load the 1st notebook automatically when it is opened.This isn't best Mathematica practice, but there is nothing really wrong with it. It is pretty much a minimal revision of you current code. It should satisfy your needs.
Modifying your code to bring it up to best practice levels would require a much greater effort and, unless you are going to use the code in an industrial level application, I don't think it worth your effort to carry out that level of revision. Later on, when you have more Mathematica experience best, or at least better, practice methods will become second nature.
$endgroup$
add a comment |
$begingroup$
Perhaps this will work for you.
Make the part of code you want to ignore into a command with SetDelayed
( :=
), like so;
resuts := (
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m0;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
denom = Max[Denominator[mm]];
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
Column[
StringForm["The slope is: `1`", First[m]],
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]],
StringForm["Slope Intercept form: y=`1`x`3``2`",
First[m], Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]],
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]],
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
-If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]],
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]],
Max[m],
Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]])
You won't be able to hide the code, but you can ignore it pretty easily and run cases like this:
p1 = -5, 4;
m0 = 9/8;
resuts
p1 = -5, 5;
m0 = 7/8;
resuts
Notes
You could put the
results
code in one notebook and the do computations in a 2nd notebook. It is even possible for the 2nd notebook to load the 1st notebook automatically when it is opened.This isn't best Mathematica practice, but there is nothing really wrong with it. It is pretty much a minimal revision of you current code. It should satisfy your needs.
Modifying your code to bring it up to best practice levels would require a much greater effort and, unless you are going to use the code in an industrial level application, I don't think it worth your effort to carry out that level of revision. Later on, when you have more Mathematica experience best, or at least better, practice methods will become second nature.
$endgroup$
add a comment |
$begingroup$
Perhaps this will work for you.
Make the part of code you want to ignore into a command with SetDelayed
( :=
), like so;
resuts := (
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m0;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
denom = Max[Denominator[mm]];
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
Column[
StringForm["The slope is: `1`", First[m]],
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]],
StringForm["Slope Intercept form: y=`1`x`3``2`",
First[m], Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]],
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]],
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
-If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]],
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]],
Max[m],
Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]])
You won't be able to hide the code, but you can ignore it pretty easily and run cases like this:
p1 = -5, 4;
m0 = 9/8;
resuts
p1 = -5, 5;
m0 = 7/8;
resuts
Notes
You could put the
results
code in one notebook and the do computations in a 2nd notebook. It is even possible for the 2nd notebook to load the 1st notebook automatically when it is opened.This isn't best Mathematica practice, but there is nothing really wrong with it. It is pretty much a minimal revision of you current code. It should satisfy your needs.
Modifying your code to bring it up to best practice levels would require a much greater effort and, unless you are going to use the code in an industrial level application, I don't think it worth your effort to carry out that level of revision. Later on, when you have more Mathematica experience best, or at least better, practice methods will become second nature.
$endgroup$
Perhaps this will work for you.
Make the part of code you want to ignore into a command with SetDelayed
( :=
), like so;
resuts := (
p2 = First[Take[p1, 1]] + 1, First[Drop[p1, 1]] + m0;
m = (Drop[p1, 1] - Drop[p2, 1])/(Take[p1, 1] - Take[p2, 1]);
denom = Max[Denominator[mm]];
bb = Solve[Drop[p1, 1] == m*Take[p1, 1] + b];
Column[
StringForm["The slope is: `1`", First[m]],
StringForm["The y intercept is `1`", First[bb[[All, 1, 2]]]],
StringForm["Slope Intercept form: y=`1`x`3``2`",
First[m], Abs[First[bb[[All, 1, 2]]]],
If[First[bb[[All, 1, 2]]] >= 0, "+", "-"]],
StringForm["Standard Form: `1`x`4``3`y=`2`",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"]],
StringForm["General Form: `1`x`4``3`y`5``2`=0",
If[Max[m] < 0, -denom*First[m], denom*First[m]],
-If[Max[m] > 0, -denom*First[bb[[All, 1, 2]]], denom*First[bb[[All, 1, 2]]]],
If[Max[m] > 0, -denom, denom],
If[Max[m] > 0, "", "+"],
If[If[Max[m] < 0, -denom*First[m], denom*First[m]] > 0, "+", ""]],
StringForm["Point Slope Form: y`4``1`=`2`(x`5``3`)",
Abs[Max[Drop[p1, 1]]],
Max[m],
Abs[Max[Take[p1, 1]]],
If[Max[Drop[p1, 1]] >= 0, "-", "+"],
If[Max[Take[p1, 1]] >= 0, "-", "+"]]])
You won't be able to hide the code, but you can ignore it pretty easily and run cases like this:
p1 = -5, 4;
m0 = 9/8;
resuts
p1 = -5, 5;
m0 = 7/8;
resuts
Notes
You could put the
results
code in one notebook and the do computations in a 2nd notebook. It is even possible for the 2nd notebook to load the 1st notebook automatically when it is opened.This isn't best Mathematica practice, but there is nothing really wrong with it. It is pretty much a minimal revision of you current code. It should satisfy your needs.
Modifying your code to bring it up to best practice levels would require a much greater effort and, unless you are going to use the code in an industrial level application, I don't think it worth your effort to carry out that level of revision. Later on, when you have more Mathematica experience best, or at least better, practice methods will become second nature.
edited 1 hour ago
answered 2 hours ago


m_goldbergm_goldberg
87.8k872198
87.8k872198
add a comment |
add a comment |
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
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
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193884%2fcell-formatting-and-hiding-code%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
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
Required, but never shown
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
Required, but never shown
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
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Ad872ximl,h5ZGl4oBYcz9yR3ZDNsIcRzxOE MYYk7Cxxf
$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba♦
4 hours ago
$begingroup$
If you are using the Notebook Front End GUI you can insert a new cell, perhaps "Section" and give it a descprition. Place the code suggested by the goldberg answer in the next cell. Finally insert another new "Section" with a description and place the code that calls the previous code in the next cell. You can "collapse sections" and hide cells groups by enabling "Show open/close icon for cell groups" in the "Edit" > "Preferences" > "Interface" menu.
$endgroup$
– Somos
2 hours ago