Overloading functions like Mean for distributions












4














I'd like to understand how functions like Mean are overloaded to provide the right behavior for the distributions in Mathematica (like NormalDistribution or PoissonDistribution).



I originally assumed it was through the use of UpValues, but now I'm not so sure...



So, if I wanted to implement a function or distribution and define a behavior for it when another function like Mean is applied to it, how would I go about it? I know it's not the following:



f[x_]:=2+x
f /: Mean[f[x_]] := 3 x


Desired behavior:



f[3]
Mean[f[3]]

(*
==> 5
==> 9
*)









share|improve this question



























    4














    I'd like to understand how functions like Mean are overloaded to provide the right behavior for the distributions in Mathematica (like NormalDistribution or PoissonDistribution).



    I originally assumed it was through the use of UpValues, but now I'm not so sure...



    So, if I wanted to implement a function or distribution and define a behavior for it when another function like Mean is applied to it, how would I go about it? I know it's not the following:



    f[x_]:=2+x
    f /: Mean[f[x_]] := 3 x


    Desired behavior:



    f[3]
    Mean[f[3]]

    (*
    ==> 5
    ==> 9
    *)









    share|improve this question

























      4












      4








      4







      I'd like to understand how functions like Mean are overloaded to provide the right behavior for the distributions in Mathematica (like NormalDistribution or PoissonDistribution).



      I originally assumed it was through the use of UpValues, but now I'm not so sure...



      So, if I wanted to implement a function or distribution and define a behavior for it when another function like Mean is applied to it, how would I go about it? I know it's not the following:



      f[x_]:=2+x
      f /: Mean[f[x_]] := 3 x


      Desired behavior:



      f[3]
      Mean[f[3]]

      (*
      ==> 5
      ==> 9
      *)









      share|improve this question













      I'd like to understand how functions like Mean are overloaded to provide the right behavior for the distributions in Mathematica (like NormalDistribution or PoissonDistribution).



      I originally assumed it was through the use of UpValues, but now I'm not so sure...



      So, if I wanted to implement a function or distribution and define a behavior for it when another function like Mean is applied to it, how would I go about it? I know it's not the following:



      f[x_]:=2+x
      f /: Mean[f[x_]] := 3 x


      Desired behavior:



      f[3]
      Mean[f[3]]

      (*
      ==> 5
      ==> 9
      *)






      upvalues






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 5 hours ago









      tgray

      30527




      30527






















          1 Answer
          1






          active

          oldest

          votes


















          2














          This works:



          Unprotect[Mean];
          SetAttributes[Mean, HoldFirst];
          Protect[Mean];
          f[x_] := 2 + x
          f /: Mean[f[x_]] := 3 x


          Since using Unprotect is not reccomended here's another way.



          mean[x_] := Mean[x]
          SetAttributes[mean, HoldFirst]
          f[x_] := 2 + x
          f /: mean[f[x_]] := 3 x





          share|improve this answer





















            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%2f188306%2foverloading-functions-like-mean-for-distributions%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














            This works:



            Unprotect[Mean];
            SetAttributes[Mean, HoldFirst];
            Protect[Mean];
            f[x_] := 2 + x
            f /: Mean[f[x_]] := 3 x


            Since using Unprotect is not reccomended here's another way.



            mean[x_] := Mean[x]
            SetAttributes[mean, HoldFirst]
            f[x_] := 2 + x
            f /: mean[f[x_]] := 3 x





            share|improve this answer


























              2














              This works:



              Unprotect[Mean];
              SetAttributes[Mean, HoldFirst];
              Protect[Mean];
              f[x_] := 2 + x
              f /: Mean[f[x_]] := 3 x


              Since using Unprotect is not reccomended here's another way.



              mean[x_] := Mean[x]
              SetAttributes[mean, HoldFirst]
              f[x_] := 2 + x
              f /: mean[f[x_]] := 3 x





              share|improve this answer
























                2












                2








                2






                This works:



                Unprotect[Mean];
                SetAttributes[Mean, HoldFirst];
                Protect[Mean];
                f[x_] := 2 + x
                f /: Mean[f[x_]] := 3 x


                Since using Unprotect is not reccomended here's another way.



                mean[x_] := Mean[x]
                SetAttributes[mean, HoldFirst]
                f[x_] := 2 + x
                f /: mean[f[x_]] := 3 x





                share|improve this answer












                This works:



                Unprotect[Mean];
                SetAttributes[Mean, HoldFirst];
                Protect[Mean];
                f[x_] := 2 + x
                f /: Mean[f[x_]] := 3 x


                Since using Unprotect is not reccomended here's another way.



                mean[x_] := Mean[x]
                SetAttributes[mean, HoldFirst]
                f[x_] := 2 + x
                f /: mean[f[x_]] := 3 x






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered 2 hours ago









                Andrew

                1,7161014




                1,7161014






























                    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.





                    Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


                    Please pay close attention to the following guidance:


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


                    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%2f188306%2foverloading-functions-like-mean-for-distributions%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

                    404 Error Contact Form 7 ajax form submitting

                    How to know if a Active Directory user can login interactively

                    Refactoring coordinates for Minecraft Pi buildings written in Python