Cell formatting and hiding code












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
    2 days 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 days 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
    2 days 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 days 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 2 days ago









WomblesWombles

955




955












  • $begingroup$
    tutorial/DefiningFunctions ?
    $endgroup$
    – Kuba
    2 days 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 days ago


















  • $begingroup$
    tutorial/DefiningFunctions ?
    $endgroup$
    – Kuba
    2 days 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 days ago
















$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba
2 days ago




$begingroup$
tutorial/DefiningFunctions ?
$endgroup$
– Kuba
2 days 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 days 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 days 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 2 days ago

























        answered 2 days 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

            數位音樂下載

            When can things happen in Etherscan, such as the picture below?

            格利澤436b