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

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













2












$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.










share|improve this question









$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















2












$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.










share|improve this question









$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













2












2








2


2



$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.










share|improve this question









$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






share|improve this question













share|improve this question











share|improve this question




share|improve this question










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
















  • $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










1 Answer
1






active

oldest

votes


















2












$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


out_1



p1 = -5, 5;
m0 = 7/8;
resuts


out_2



Notes



  1. 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.


  2. 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.


  3. 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.






share|improve this answer











$endgroup$












    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
    );



    );













    draft saved

    draft discarded


















    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









    2












    $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


    out_1



    p1 = -5, 5;
    m0 = 7/8;
    resuts


    out_2



    Notes



    1. 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.


    2. 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.


    3. 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.






    share|improve this answer











    $endgroup$

















      2












      $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


      out_1



      p1 = -5, 5;
      m0 = 7/8;
      resuts


      out_2



      Notes



      1. 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.


      2. 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.


      3. 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.






      share|improve this answer











      $endgroup$















        2












        2








        2





        $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


        out_1



        p1 = -5, 5;
        m0 = 7/8;
        resuts


        out_2



        Notes



        1. 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.


        2. 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.


        3. 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.






        share|improve this answer











        $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


        out_1



        p1 = -5, 5;
        m0 = 7/8;
        resuts


        out_2



        Notes



        1. 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.


        2. 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.


        3. 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.







        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited 1 hour ago

























        answered 2 hours ago









        m_goldbergm_goldberg

        87.8k872198




        87.8k872198



























            draft saved

            draft discarded
















































            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.




            draft saved


            draft discarded














            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





















































            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







            Popular posts from this blog

            Are there any AGPL-style licences that require source code modifications to be public? Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?Force derivative works to be publicAre there any GPL like licenses for Apple App Store?Do you violate the GPL if you provide source code that cannot be compiled?GPL - is it distribution to use libraries in an appliance loaned to customers?Distributing App for free which uses GPL'ed codeModifications of server software under GPL, with web/CLI interfaceDoes using an AGPLv3-licensed library prevent me from dual-licensing my own source code?Can I publish only select code under GPLv3 from a private project?Is there published precedent regarding the scope of covered work that uses AGPL software?If MIT licensed code links to GPL licensed code what should be the license of the resulting binary program?If I use a public API endpoint that has its source code licensed under AGPL in my app, do I need to disclose my source?

            2013 GY136 Descoberta | Órbita | Referências Menu de navegação«List Of Centaurs and Scattered-Disk Objects»«List of Known Trans-Neptunian Objects»

            Mortes em março de 2019 Referências Menu de navegação«Zhores Alferov, Nobel de Física bielorrusso, morre aos 88 anos - Ciência»«Fallece Rafael Torija, o bispo emérito de Ciudad Real»«Peter Hurford dies at 88»«Keith Flint, vocalista do The Prodigy, morre aos 49 anos»«Luke Perry, ator de 'Barrados no baile' e 'Riverdale', morre aos 52 anos»«Former Rangers and Scotland captain Eric Caldow dies, aged 84»«Morreu, aos 61 anos, a antiga lenda do wrestling King Kong Bundy»«Fallece el actor y director teatral Abraham Stavans»«In Memoriam Guillaume Faye»«Sidney Sheinberg, a Force Behind Universal and Spielberg, Is Dead at 84»«Carmine Persico, Colombo Crime Family Boss, Is Dead at 85»«Dirigent Michael Gielen gestorben»«Ciclista tricampeã mundial e prata na Rio 2016 é encontrada morta em casa aos 23 anos»«Pagan Community Notes: Raven Grimassi dies, Indianapolis pop-up event cancelled, Circle Sanctuary announces new podcast, and more!»«Hal Blaine, Wrecking Crew Drummer, Dies at 90»«Morre Coutinho, que editou dupla lendária com Pelé no Santos»«Cantor Demétrius, ídolo da Jovem Guarda, morre em SP»«Ex-presidente do Vasco, Eurico Miranda morre no Rio de Janeiro»«Bronze no Mundial de basquete de 1971, Laís Elena morre aos 76 anos»«Diretor de Corridas da F1, Charlie Whiting morre aos 66 anos às vésperas do GP da Austrália»«Morreu o cardeal Danneels, da Bélgica»«Morreu o cartoonista Augusto Cid»«Morreu a atriz Maria Isabel de Lizandra, de "Vale Tudo" e novelas da Tupi»«WS Merwin, prize-winning poet of nature, dies at 91»«Atriz Márcia Real morre em São Paulo aos 88 anos»«Mauritanie: décès de l'ancien président Mohamed Mahmoud ould Louly»«Morreu Dick Dale, o rei da surf guitar e de "Pulp Fiction"»«Falleció Víctor Genes»«João Carlos Marinho, autor de 'O Gênio do Crime', morre em SP»«Legendary Horror Director and SFX Artist John Carl Buechler Dies at 66»«Morre em Salvador a religiosa Makota Valdina»«مرگ بازیکن‌ سابق نساجی بر اثر سقوط سنگ در مازندران»«Domingos Oliveira morre no Rio»«Morre Airton Ravagniani, ex-São Paulo, Fla, Vasco, Grêmio e Sport - Notícias»«Morre o escritor Flavio Moreira da Costa»«Larry Cohen, Writer-Director of 'It's Alive' and 'Hell Up in Harlem,' Dies at 77»«Scott Walker, experimental singer-songwriter, dead at 76»«Joseph Pilato, Day of the Dead Star and Horror Favorite, Dies at 70»«Sheffield United set to pay tribute to legendary goalkeeper Ted Burgin who has died at 91»«Morre Rafael Henzel, sobrevivente de acidente aéreo da Chapecoense»«Morre Valery Bykovsky, um dos primeiros cosmonautas da União Soviética»«Agnès Varda, cineasta da Nouvelle Vague, morre aos 90 anos»«Agnès Varda, cineasta francesa, morre aos 90 anos»«Tania Mallet, James Bond Actress and Helen Mirren's Cousin, Dies at 77»e