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
Two-sided logarithm inequality
Flux received by a negative charge
How do ground effect vehicles perform turns?
Database accidentally deleted with a bash script
Why does Async/Await work properly when the loop is inside the async function and not the other way around?
How can Trident be so inexpensive? Will it orbit Triton or just do a (slow) flyby?
Is camera lens focus an exact point or a range?
MAXDOP Settings for SQL Server 2014
Gibbs free energy in standard state vs. equilibrium
Some numbers are more equivalent than others
How do I implement a file system driver driver in Linux?
Find last 3 digits of this monster number
On a tidally locked planet, would time be quantized?
How can "mimic phobia" be cured or prevented?
Customize circled numbers
Reply 'no position' while the job posting is still there
We have a love-hate relationship
What (else) happened July 1st 1858 in London?
Have I saved too much for retirement so far?
Should I stop contributing to retirement accounts?
Drawing ramified coverings with tikz
Can we have a perfect cadence in a minor key?
How much character growth crosses the line into breaking the character
Can the Supreme Court overturn an impeachment?
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
$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