How can I make a webpage where people can evaluate my code?












6












$begingroup$


Inspired by JS Fiddle I'd like a way to write a little snippet of Mathematica code and then get it to show up on a website so people can play with it. I know I could put it into a cloud notebook, but I'd like this to be free.



So...how do?






wolfram-cloud







share|improve this question









$endgroup$

















    6












    $begingroup$


    Inspired by JS Fiddle I'd like a way to write a little snippet of Mathematica code and then get it to show up on a website so people can play with it. I know I could put it into a cloud notebook, but I'd like this to be free.



    So...how do?






    wolfram-cloud







    share|improve this question









    $endgroup$















      6












      6








      6


      3



      $begingroup$


      Inspired by JS Fiddle I'd like a way to write a little snippet of Mathematica code and then get it to show up on a website so people can play with it. I know I could put it into a cloud notebook, but I'd like this to be free.



      So...how do?






      wolfram-cloud







      share|improve this question









      $endgroup$




      Inspired by JS Fiddle I'd like a way to write a little snippet of Mathematica code and then get it to show up on a website so people can play with it. I know I could put it into a cloud notebook, but I'd like this to be free.



      So...how do?






      wolfram-cloud




      wolfram-cloud






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Jan 20 at 3:06









      b3m2a1b3m2a1

      27.8k357161




      27.8k357161






















          1 Answer
          1






          active

          oldest

          votes


















          8












          $begingroup$

          I made use of an undocumented API for Mathematica cloud notebooks to write a little set of JavaScript functions that can be used to do just this, parsing Mathematica cells out of a browser URL. I then put this up here: https://www.wolframcloud.com/objects/b3m2a1/WLFiddle



          I have to other versions of this for slightly different use cases, too:





          • https://www.wolframcloud.com/objects/b3m2a1/WLFiddleEmbed for embedding


          • https://www.wolframcloud.com/objects/b3m2a1/WLDelayedFiddle for onclick loading


          It uses a free sandbox cloud notebook, so it doesn't actually cost me anything (I think).



          Now all you need to do is basic64 encode your cell content and pass it in. Or you can use a little package I wrote for this:



          << https://github.com/b3m2a1/mathematica-tools/raw/master/WLFiddle.wl
          
MakeWLFiddle::usage
          

          
"MakeWLFiddle[nb] turns nb or its current selection into a fiddle URL
          
MakeWLFiddle[cells] turns a set of cells into a fiddle URL"


          We can call this on a notebook selection and it'll format a URL for us to use automatically, like say this one that provides the following Manipulate:



          Manipulate[
          
 ContourPlot[
          
  q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2, 
          
   2}, {y, -2, 2}, Contours -> 10], {{q1, -1}, -3, 3}, {{q2, 1}, -3, 
          
  3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator}, 
          
 Deployed -> True]


          I just put that in a notebook and called 



          MakeWLFiddle[EvaluationNotebook]


          You can also select a subsection of a notebook and evaluate the same in a Button and it'll just package up the selected cells. This should work for any number of cells, but won't work for big data since I cooked everything into the URL query.



          Also look at the Options:



          {"ShortenURL" -> True, "BaseURL" -> Automatic}


          "BaseURL" can be an arbitrary URL or "Delayed" or "Embed".



          Warning: if WRI gets mad at me about this at any point this may disappear






          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%2f189854%2fhow-can-i-make-a-webpage-where-people-can-evaluate-my-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









            8












            $begingroup$

            I made use of an undocumented API for Mathematica cloud notebooks to write a little set of JavaScript functions that can be used to do just this, parsing Mathematica cells out of a browser URL. I then put this up here: https://www.wolframcloud.com/objects/b3m2a1/WLFiddle



            I have to other versions of this for slightly different use cases, too:





            • https://www.wolframcloud.com/objects/b3m2a1/WLFiddleEmbed for embedding


            • https://www.wolframcloud.com/objects/b3m2a1/WLDelayedFiddle for onclick loading


            It uses a free sandbox cloud notebook, so it doesn't actually cost me anything (I think).



            Now all you need to do is basic64 encode your cell content and pass it in. Or you can use a little package I wrote for this:



            << https://github.com/b3m2a1/mathematica-tools/raw/master/WLFiddle.wl
            
MakeWLFiddle::usage
            

            
"MakeWLFiddle[nb] turns nb or its current selection into a fiddle URL
            
MakeWLFiddle[cells] turns a set of cells into a fiddle URL"


            We can call this on a notebook selection and it'll format a URL for us to use automatically, like say this one that provides the following Manipulate:



            Manipulate[
            
 ContourPlot[
            
  q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2, 
            
   2}, {y, -2, 2}, Contours -> 10], {{q1, -1}, -3, 3}, {{q2, 1}, -3, 
            
  3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator}, 
            
 Deployed -> True]


            I just put that in a notebook and called 



            MakeWLFiddle[EvaluationNotebook]


            You can also select a subsection of a notebook and evaluate the same in a Button and it'll just package up the selected cells. This should work for any number of cells, but won't work for big data since I cooked everything into the URL query.



            Also look at the Options:



            {"ShortenURL" -> True, "BaseURL" -> Automatic}


            "BaseURL" can be an arbitrary URL or "Delayed" or "Embed".



            Warning: if WRI gets mad at me about this at any point this may disappear






            share|improve this answer









            $endgroup$


















              8












              $begingroup$

              I made use of an undocumented API for Mathematica cloud notebooks to write a little set of JavaScript functions that can be used to do just this, parsing Mathematica cells out of a browser URL. I then put this up here: https://www.wolframcloud.com/objects/b3m2a1/WLFiddle



              I have to other versions of this for slightly different use cases, too:





              • https://www.wolframcloud.com/objects/b3m2a1/WLFiddleEmbed for embedding


              • https://www.wolframcloud.com/objects/b3m2a1/WLDelayedFiddle for onclick loading


              It uses a free sandbox cloud notebook, so it doesn't actually cost me anything (I think).



              Now all you need to do is basic64 encode your cell content and pass it in. Or you can use a little package I wrote for this:



              << https://github.com/b3m2a1/mathematica-tools/raw/master/WLFiddle.wl
              
MakeWLFiddle::usage
              

              
"MakeWLFiddle[nb] turns nb or its current selection into a fiddle URL
              
MakeWLFiddle[cells] turns a set of cells into a fiddle URL"


              We can call this on a notebook selection and it'll format a URL for us to use automatically, like say this one that provides the following Manipulate:



              Manipulate[
              
 ContourPlot[
              
  q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2, 
              
   2}, {y, -2, 2}, Contours -> 10], {{q1, -1}, -3, 3}, {{q2, 1}, -3, 
              
  3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator}, 
              
 Deployed -> True]


              I just put that in a notebook and called 



              MakeWLFiddle[EvaluationNotebook]


              You can also select a subsection of a notebook and evaluate the same in a Button and it'll just package up the selected cells. This should work for any number of cells, but won't work for big data since I cooked everything into the URL query.



              Also look at the Options:



              {"ShortenURL" -> True, "BaseURL" -> Automatic}


              "BaseURL" can be an arbitrary URL or "Delayed" or "Embed".



              Warning: if WRI gets mad at me about this at any point this may disappear






              share|improve this answer









              $endgroup$
















                8












                8








                8





                $begingroup$

                I made use of an undocumented API for Mathematica cloud notebooks to write a little set of JavaScript functions that can be used to do just this, parsing Mathematica cells out of a browser URL. I then put this up here: https://www.wolframcloud.com/objects/b3m2a1/WLFiddle



                I have to other versions of this for slightly different use cases, too:





                • https://www.wolframcloud.com/objects/b3m2a1/WLFiddleEmbed for embedding


                • https://www.wolframcloud.com/objects/b3m2a1/WLDelayedFiddle for onclick loading


                It uses a free sandbox cloud notebook, so it doesn't actually cost me anything (I think).



                Now all you need to do is basic64 encode your cell content and pass it in. Or you can use a little package I wrote for this:



                << https://github.com/b3m2a1/mathematica-tools/raw/master/WLFiddle.wl
                
MakeWLFiddle::usage
                

                
"MakeWLFiddle[nb] turns nb or its current selection into a fiddle URL
                
MakeWLFiddle[cells] turns a set of cells into a fiddle URL"


                We can call this on a notebook selection and it'll format a URL for us to use automatically, like say this one that provides the following Manipulate:



                Manipulate[
                
 ContourPlot[
                
  q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2, 
                
   2}, {y, -2, 2}, Contours -> 10], {{q1, -1}, -3, 3}, {{q2, 1}, -3, 
                
  3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator}, 
                
 Deployed -> True]


                I just put that in a notebook and called 



                MakeWLFiddle[EvaluationNotebook]


                You can also select a subsection of a notebook and evaluate the same in a Button and it'll just package up the selected cells. This should work for any number of cells, but won't work for big data since I cooked everything into the URL query.



                Also look at the Options:



                {"ShortenURL" -> True, "BaseURL" -> Automatic}


                "BaseURL" can be an arbitrary URL or "Delayed" or "Embed".



                Warning: if WRI gets mad at me about this at any point this may disappear






                share|improve this answer









                $endgroup$



                I made use of an undocumented API for Mathematica cloud notebooks to write a little set of JavaScript functions that can be used to do just this, parsing Mathematica cells out of a browser URL. I then put this up here: https://www.wolframcloud.com/objects/b3m2a1/WLFiddle



                I have to other versions of this for slightly different use cases, too:





                • https://www.wolframcloud.com/objects/b3m2a1/WLFiddleEmbed for embedding


                • https://www.wolframcloud.com/objects/b3m2a1/WLDelayedFiddle for onclick loading


                It uses a free sandbox cloud notebook, so it doesn't actually cost me anything (I think).



                Now all you need to do is basic64 encode your cell content and pass it in. Or you can use a little package I wrote for this:



                << https://github.com/b3m2a1/mathematica-tools/raw/master/WLFiddle.wl
                
MakeWLFiddle::usage
                

                
"MakeWLFiddle[nb] turns nb or its current selection into a fiddle URL
                
MakeWLFiddle[cells] turns a set of cells into a fiddle URL"


                We can call this on a notebook selection and it'll format a URL for us to use automatically, like say this one that provides the following Manipulate:



                Manipulate[
                
 ContourPlot[
                
  q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2, 
                
   2}, {y, -2, 2}, Contours -> 10], {{q1, -1}, -3, 3}, {{q2, 1}, -3, 
                
  3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator}, 
                
 Deployed -> True]


                I just put that in a notebook and called 



                MakeWLFiddle[EvaluationNotebook]


                You can also select a subsection of a notebook and evaluate the same in a Button and it'll just package up the selected cells. This should work for any number of cells, but won't work for big data since I cooked everything into the URL query.



                Also look at the Options:



                {"ShortenURL" -> True, "BaseURL" -> Automatic}


                "BaseURL" can be an arbitrary URL or "Delayed" or "Embed".



                Warning: if WRI gets mad at me about this at any point this may disappear







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Jan 20 at 3:06









                b3m2a1b3m2a1

                27.8k357161




                27.8k357161






























                    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%2f189854%2fhow-can-i-make-a-webpage-where-people-can-evaluate-my-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

                    Mario Kart Wii

                    Image
                    Please consider supporting The Cutting Room Floor on Patreon. Thanks for all your support! Mario Kart Wii From The Cutting Room Floor Jump to: navigation, search Mario Kart Wii Developer : Nintendo Publisher : Nintendo Platform : Wii Released in JP : April 10, 2008 Released in US : April 27, 2008 Released in EU : April 11, 2008 Released in AU : April 24, 2008 Released in KR : April 30, 2009 This game has unused animations. This game has unused areas. This game has unused code. This game has unused objects. This game has unused modes / minigames. This game has unused graphics. This game has unused models. This game has unused items. This game has unused music. This game has regional differences. This game has a notes page This game has a prerelease article Mario Kart Wii is the sixth game in the series (not counting Arcade editions), which intro...
                    Read more

                    The Binding of Isaac: Rebirth/Afterbirth

                    Image
                    Please consider supporting The Cutting Room Floor on Patreon. Thanks for all your support! The Binding of Isaac: Rebirth/Afterbirth From The Cutting Room Floor < The Binding of Isaac: Rebirth Jump to: navigation, search This is a sub-page of The Binding of Isaac: Rebirth . Afterbirth is the first expansion pack for Rebirth and features a variety of improvements. Contents 1 Unused Graphics 1.1 Old Man Keeper 1.2 Skinless Hush 1.3 Miscellaneous Unused Hush Sprites 1.4 Generosity achievement 1.5 Afterbirth+ Room Editor 1.6 Bearded Ultra Greed 1.7 Early Ultra Greed 1.8 Unused Brownie Expression 1.9 Frail's Spinning Head 1.10 Mom's Dead Hand Alt 2 Unused Audio 2.1 Unused Dead Womb Layer 2.2 Unused Hush Battle Outro 2.3 The Stain Grunt Unused Graphics Old Man Keeper Image file: gfxuimain me...
                    Read more

                    What does “Dominus providebit” mean?

                    Image
                    5 Does "Dominus providebit" mean "The Lord will provide" or "The Lord provides"? I once had a bit of an argument with a guy who studied Latin over that. It's an inscription that appears on the rim of some old Swiss coins that I have. meaning latin-to-english-translation grammar-identification share | improve this question edited Jan 18 at 15:27 V2Blast 105 4 asked Jan 17 at 22:49 Donald K. Donald K. 26 1 ...
                    Read more