Calculating the volume of a sphere after switching to spherical coordinates?











up vote
5
down vote

favorite












I used the code in the second answer on this page to switch from Cartesian to Spherical coordinates and integrate a function over the sphere. I would like to use this code to calculate the volume of a sphere. However if I set $ f(x, y, z) = 1 $, I get the following output:




$ -frac{1}{3}r^3 varphicos(theta) $




Here is the code I used:



Needs["VectorAnalysis`"]

JacobianDeterminant[Spherical[r, θ, ϕ]]

f[x_, y_, z_] := 1

Integrate[
f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[
Spherical @@ #] &@{r, θ, ϕ},
r, θ, ϕ]


How can I make the code return the volume of a sphere which is $frac{4}{3}pi r^3$?










share|improve this question




























    up vote
    5
    down vote

    favorite












    I used the code in the second answer on this page to switch from Cartesian to Spherical coordinates and integrate a function over the sphere. I would like to use this code to calculate the volume of a sphere. However if I set $ f(x, y, z) = 1 $, I get the following output:




    $ -frac{1}{3}r^3 varphicos(theta) $




    Here is the code I used:



    Needs["VectorAnalysis`"]

    JacobianDeterminant[Spherical[r, θ, ϕ]]

    f[x_, y_, z_] := 1

    Integrate[
    f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[
    Spherical @@ #] &@{r, θ, ϕ},
    r, θ, ϕ]


    How can I make the code return the volume of a sphere which is $frac{4}{3}pi r^3$?










    share|improve this question


























      up vote
      5
      down vote

      favorite









      up vote
      5
      down vote

      favorite











      I used the code in the second answer on this page to switch from Cartesian to Spherical coordinates and integrate a function over the sphere. I would like to use this code to calculate the volume of a sphere. However if I set $ f(x, y, z) = 1 $, I get the following output:




      $ -frac{1}{3}r^3 varphicos(theta) $




      Here is the code I used:



      Needs["VectorAnalysis`"]

      JacobianDeterminant[Spherical[r, θ, ϕ]]

      f[x_, y_, z_] := 1

      Integrate[
      f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[
      Spherical @@ #] &@{r, θ, ϕ},
      r, θ, ϕ]


      How can I make the code return the volume of a sphere which is $frac{4}{3}pi r^3$?










      share|improve this question















      I used the code in the second answer on this page to switch from Cartesian to Spherical coordinates and integrate a function over the sphere. I would like to use this code to calculate the volume of a sphere. However if I set $ f(x, y, z) = 1 $, I get the following output:




      $ -frac{1}{3}r^3 varphicos(theta) $




      Here is the code I used:



      Needs["VectorAnalysis`"]

      JacobianDeterminant[Spherical[r, θ, ϕ]]

      f[x_, y_, z_] := 1

      Integrate[
      f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[
      Spherical @@ #] &@{r, θ, ϕ},
      r, θ, ϕ]


      How can I make the code return the volume of a sphere which is $frac{4}{3}pi r^3$?







      calculus-and-analysis coordinate-transformation






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 16 hours ago









      Αλέξανδρος Ζεγγ

      3,8021927




      3,8021927










      asked 16 hours ago









      sonicboom

      1283




      1283






















          2 Answers
          2






          active

          oldest

          votes

















          up vote
          7
          down vote



          accepted










          Employing most of your own code;



          Integrate[
          f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[Spherical @@ #] &@{r, θ, ϕ},
          {r, 0, R}, {θ, 0, π}, {ϕ, -π, π}
          ]



          (4 π R^3)/3




          That is, you just have to add the integral boundaries.






          share|improve this answer






























            up vote
            5
            down vote













            Try this



            transform[f : (_Function | _Symbol), coordi_: {x, y, z}, coordf_: {r, θ, ϕ}] := Module[{rules, jdet},
            rules = Thread[coordi -> CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", coordf]];
            jdet = CoordinateTransformData["Spherical" -> "Cartesian", "MappingJacobianDeterminant", coordf];
            jdet f @@ coordi /. rules
            ]

            f[x_, y_, z_] := 1

            Integrate[transform[f], r, {θ, 0, π}, {ϕ, 0, 2 π}]



            (4 π r^3)/3






            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',
              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%2f187765%2fcalculating-the-volume-of-a-sphere-after-switching-to-spherical-coordinates%23new-answer', 'question_page');
              }
              );

              Post as a guest















              Required, but never shown

























              2 Answers
              2






              active

              oldest

              votes








              2 Answers
              2






              active

              oldest

              votes









              active

              oldest

              votes






              active

              oldest

              votes








              up vote
              7
              down vote



              accepted










              Employing most of your own code;



              Integrate[
              f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[Spherical @@ #] &@{r, θ, ϕ},
              {r, 0, R}, {θ, 0, π}, {ϕ, -π, π}
              ]



              (4 π R^3)/3




              That is, you just have to add the integral boundaries.






              share|improve this answer



























                up vote
                7
                down vote



                accepted










                Employing most of your own code;



                Integrate[
                f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[Spherical @@ #] &@{r, θ, ϕ},
                {r, 0, R}, {θ, 0, π}, {ϕ, -π, π}
                ]



                (4 π R^3)/3




                That is, you just have to add the integral boundaries.






                share|improve this answer

























                  up vote
                  7
                  down vote



                  accepted







                  up vote
                  7
                  down vote



                  accepted






                  Employing most of your own code;



                  Integrate[
                  f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[Spherical @@ #] &@{r, θ, ϕ},
                  {r, 0, R}, {θ, 0, π}, {ϕ, -π, π}
                  ]



                  (4 π R^3)/3




                  That is, you just have to add the integral boundaries.






                  share|improve this answer














                  Employing most of your own code;



                  Integrate[
                  f @@ CoordinatesToCartesian[#, Spherical @@ #] JacobianDeterminant[Spherical @@ #] &@{r, θ, ϕ},
                  {r, 0, R}, {θ, 0, π}, {ϕ, -π, π}
                  ]



                  (4 π R^3)/3




                  That is, you just have to add the integral boundaries.







                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited 9 hours ago

























                  answered 15 hours ago









                  Henrik Schumacher

                  47.2k466134




                  47.2k466134






















                      up vote
                      5
                      down vote













                      Try this



                      transform[f : (_Function | _Symbol), coordi_: {x, y, z}, coordf_: {r, θ, ϕ}] := Module[{rules, jdet},
                      rules = Thread[coordi -> CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", coordf]];
                      jdet = CoordinateTransformData["Spherical" -> "Cartesian", "MappingJacobianDeterminant", coordf];
                      jdet f @@ coordi /. rules
                      ]

                      f[x_, y_, z_] := 1

                      Integrate[transform[f], r, {θ, 0, π}, {ϕ, 0, 2 π}]



                      (4 π r^3)/3






                      share|improve this answer



























                        up vote
                        5
                        down vote













                        Try this



                        transform[f : (_Function | _Symbol), coordi_: {x, y, z}, coordf_: {r, θ, ϕ}] := Module[{rules, jdet},
                        rules = Thread[coordi -> CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", coordf]];
                        jdet = CoordinateTransformData["Spherical" -> "Cartesian", "MappingJacobianDeterminant", coordf];
                        jdet f @@ coordi /. rules
                        ]

                        f[x_, y_, z_] := 1

                        Integrate[transform[f], r, {θ, 0, π}, {ϕ, 0, 2 π}]



                        (4 π r^3)/3






                        share|improve this answer

























                          up vote
                          5
                          down vote










                          up vote
                          5
                          down vote









                          Try this



                          transform[f : (_Function | _Symbol), coordi_: {x, y, z}, coordf_: {r, θ, ϕ}] := Module[{rules, jdet},
                          rules = Thread[coordi -> CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", coordf]];
                          jdet = CoordinateTransformData["Spherical" -> "Cartesian", "MappingJacobianDeterminant", coordf];
                          jdet f @@ coordi /. rules
                          ]

                          f[x_, y_, z_] := 1

                          Integrate[transform[f], r, {θ, 0, π}, {ϕ, 0, 2 π}]



                          (4 π r^3)/3






                          share|improve this answer














                          Try this



                          transform[f : (_Function | _Symbol), coordi_: {x, y, z}, coordf_: {r, θ, ϕ}] := Module[{rules, jdet},
                          rules = Thread[coordi -> CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", coordf]];
                          jdet = CoordinateTransformData["Spherical" -> "Cartesian", "MappingJacobianDeterminant", coordf];
                          jdet f @@ coordi /. rules
                          ]

                          f[x_, y_, z_] := 1

                          Integrate[transform[f], r, {θ, 0, π}, {ϕ, 0, 2 π}]



                          (4 π r^3)/3







                          share|improve this answer














                          share|improve this answer



                          share|improve this answer








                          edited 15 hours ago

























                          answered 15 hours ago









                          Αλέξανδρος Ζεγγ

                          3,8021927




                          3,8021927






























                              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%2f187765%2fcalculating-the-volume-of-a-sphere-after-switching-to-spherical-coordinates%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

                              Ellipse (mathématiques)

                              Quarter-circle Tiles

                              Mont Emei