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












7














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





























    7














    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



























      7












      7








      7







      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 Dec 12 '18 at 12:25









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

      4,0441928




      4,0441928










      asked Dec 12 '18 at 11:48









      sonicboom

      1383




      1383






















          2 Answers
          2






          active

          oldest

          votes


















          10














          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































            5














            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',
              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%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









              10














              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




























                10














                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


























                  10












                  10








                  10






                  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 Dec 12 '18 at 19:02

























                  answered Dec 12 '18 at 12:41









                  Henrik Schumacher

                  48.8k467139




                  48.8k467139























                      5














                      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




























                        5














                        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


























                          5












                          5








                          5






                          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 Dec 12 '18 at 12:41

























                          answered Dec 12 '18 at 12:40









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

                          4,0441928




                          4,0441928






























                              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

                              "Incorrect syntax near the keyword 'ON'. (on update cascade, on delete cascade,)

                              Alcedinidae

                              RAC Tourist Trophy