Can I inscribe a regular tetrahedron to a torus?












4














What kind of regular tetrahedra can we inscribe into a given torus?



For example, is it possible to inscribe a unit edge length regular tetrahedron to a spindle torus with major radius $R=frac{sqrt 2}2$ and minor radius $r=frac{sqrt 3}2$?



It seems to me that such an inscription should be doable for any $R$ and $r$ in a reasonable range, but I'm having a very hard time imagining it; I hope someone with some knowledge/vision in spatial geometry can answer this from the top of their head.










share|cite|improve this question




















  • 1




    The tetrahedron needs to be wholly inside of the torus? And every point of the tetrahedron needs to be on the torus' surface? And the dimensions of both the torus and the tetrahedron are given , so the only degrees of freedom are the location and orientation of the tetrahedron?
    – Wouter
    Dec 7 at 8:54












  • No, yes, and yes.
    – domotorp
    Dec 7 at 9:27
















4














What kind of regular tetrahedra can we inscribe into a given torus?



For example, is it possible to inscribe a unit edge length regular tetrahedron to a spindle torus with major radius $R=frac{sqrt 2}2$ and minor radius $r=frac{sqrt 3}2$?



It seems to me that such an inscription should be doable for any $R$ and $r$ in a reasonable range, but I'm having a very hard time imagining it; I hope someone with some knowledge/vision in spatial geometry can answer this from the top of their head.










share|cite|improve this question




















  • 1




    The tetrahedron needs to be wholly inside of the torus? And every point of the tetrahedron needs to be on the torus' surface? And the dimensions of both the torus and the tetrahedron are given , so the only degrees of freedom are the location and orientation of the tetrahedron?
    – Wouter
    Dec 7 at 8:54












  • No, yes, and yes.
    – domotorp
    Dec 7 at 9:27














4












4








4







What kind of regular tetrahedra can we inscribe into a given torus?



For example, is it possible to inscribe a unit edge length regular tetrahedron to a spindle torus with major radius $R=frac{sqrt 2}2$ and minor radius $r=frac{sqrt 3}2$?



It seems to me that such an inscription should be doable for any $R$ and $r$ in a reasonable range, but I'm having a very hard time imagining it; I hope someone with some knowledge/vision in spatial geometry can answer this from the top of their head.










share|cite|improve this question















What kind of regular tetrahedra can we inscribe into a given torus?



For example, is it possible to inscribe a unit edge length regular tetrahedron to a spindle torus with major radius $R=frac{sqrt 2}2$ and minor radius $r=frac{sqrt 3}2$?



It seems to me that such an inscription should be doable for any $R$ and $r$ in a reasonable range, but I'm having a very hard time imagining it; I hope someone with some knowledge/vision in spatial geometry can answer this from the top of their head.







geometry






share|cite|improve this question















share|cite|improve this question













share|cite|improve this question




share|cite|improve this question








edited Dec 7 at 8:44

























asked Dec 3 at 11:42









domotorp

910515




910515








  • 1




    The tetrahedron needs to be wholly inside of the torus? And every point of the tetrahedron needs to be on the torus' surface? And the dimensions of both the torus and the tetrahedron are given , so the only degrees of freedom are the location and orientation of the tetrahedron?
    – Wouter
    Dec 7 at 8:54












  • No, yes, and yes.
    – domotorp
    Dec 7 at 9:27














  • 1




    The tetrahedron needs to be wholly inside of the torus? And every point of the tetrahedron needs to be on the torus' surface? And the dimensions of both the torus and the tetrahedron are given , so the only degrees of freedom are the location and orientation of the tetrahedron?
    – Wouter
    Dec 7 at 8:54












  • No, yes, and yes.
    – domotorp
    Dec 7 at 9:27








1




1




The tetrahedron needs to be wholly inside of the torus? And every point of the tetrahedron needs to be on the torus' surface? And the dimensions of both the torus and the tetrahedron are given , so the only degrees of freedom are the location and orientation of the tetrahedron?
– Wouter
Dec 7 at 8:54






The tetrahedron needs to be wholly inside of the torus? And every point of the tetrahedron needs to be on the torus' surface? And the dimensions of both the torus and the tetrahedron are given , so the only degrees of freedom are the location and orientation of the tetrahedron?
– Wouter
Dec 7 at 8:54














No, yes, and yes.
– domotorp
Dec 7 at 9:27




No, yes, and yes.
– domotorp
Dec 7 at 9:27










1 Answer
1






active

oldest

votes


















2





+50









One solution has the vertices:
$$begin{array}{ccc}
(-0.42, & , 0.28, & 0.84 )\
(-0.03, & -0.16, & 0.04 )\
(-0.19, & -0.69, & 0.87 )\
( , 0.54, & , 0.00, & 0.85 )\
end{array}$$

which lead to this view looking up at the region with $z>0$:
torus with inscribed tetradhedron



This comes from Mathematica using NMinimize, which surprisingly worked better than NSolve or FindInstance. The code is below, and you could get other solutions by rotating this or by adding a term like $(a_2-frac32)^2$ to the sum of squares.



xyz[a_, b_] := {(Sqrt[2] + Sqrt[3] Cos[b]) Cos[a],
(Sqrt[2] + Sqrt[3] Cos[b]) Sin[a], Sqrt[3] Sin[b]} / 2

d[t_, u_, v_, w_] := (xyz[t, u] - xyz[v, w]).(xyz[t, u] - xyz[v, w])

sol = NMinimize[
(d[a1, b1, a2, b2] - 1)^2 + (d[a2, b2, a3, b3] - 1)^2 +
(d[a3, b3, a1, b1] - 1)^2 + (d[a1, b1, 0, b0] - 1)^2 +
(d[a2, b2, 0, b0] - 1)^2 + (d[a3, b3, 0, b0] - 1)^2,
{a1, a2, a3, b1, b2, b3, b0}][[2]]

Round[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3], xyz[0, b0]} /. sol, .01]

tetra = ListPlot3D[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3],
xyz[0, b0]} /. sol, PlotTheme -> Business,
PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

torus = ParametricPlot3D[xyz[a, b], {a, 0, 2 Pi}, {b, 0, 2 Pi},
PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

Show[tetra, torus]





share|cite|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: "69"
    };
    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: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    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
    },
    noCode: true, onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmath.stackexchange.com%2fquestions%2f3023941%2fcan-i-inscribe-a-regular-tetrahedron-to-a-torus%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





    +50









    One solution has the vertices:
    $$begin{array}{ccc}
    (-0.42, & , 0.28, & 0.84 )\
    (-0.03, & -0.16, & 0.04 )\
    (-0.19, & -0.69, & 0.87 )\
    ( , 0.54, & , 0.00, & 0.85 )\
    end{array}$$

    which lead to this view looking up at the region with $z>0$:
    torus with inscribed tetradhedron



    This comes from Mathematica using NMinimize, which surprisingly worked better than NSolve or FindInstance. The code is below, and you could get other solutions by rotating this or by adding a term like $(a_2-frac32)^2$ to the sum of squares.



    xyz[a_, b_] := {(Sqrt[2] + Sqrt[3] Cos[b]) Cos[a],
    (Sqrt[2] + Sqrt[3] Cos[b]) Sin[a], Sqrt[3] Sin[b]} / 2

    d[t_, u_, v_, w_] := (xyz[t, u] - xyz[v, w]).(xyz[t, u] - xyz[v, w])

    sol = NMinimize[
    (d[a1, b1, a2, b2] - 1)^2 + (d[a2, b2, a3, b3] - 1)^2 +
    (d[a3, b3, a1, b1] - 1)^2 + (d[a1, b1, 0, b0] - 1)^2 +
    (d[a2, b2, 0, b0] - 1)^2 + (d[a3, b3, 0, b0] - 1)^2,
    {a1, a2, a3, b1, b2, b3, b0}][[2]]

    Round[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3], xyz[0, b0]} /. sol, .01]

    tetra = ListPlot3D[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3],
    xyz[0, b0]} /. sol, PlotTheme -> Business,
    PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

    torus = ParametricPlot3D[xyz[a, b], {a, 0, 2 Pi}, {b, 0, 2 Pi},
    PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

    Show[tetra, torus]





    share|cite|improve this answer


























      2





      +50









      One solution has the vertices:
      $$begin{array}{ccc}
      (-0.42, & , 0.28, & 0.84 )\
      (-0.03, & -0.16, & 0.04 )\
      (-0.19, & -0.69, & 0.87 )\
      ( , 0.54, & , 0.00, & 0.85 )\
      end{array}$$

      which lead to this view looking up at the region with $z>0$:
      torus with inscribed tetradhedron



      This comes from Mathematica using NMinimize, which surprisingly worked better than NSolve or FindInstance. The code is below, and you could get other solutions by rotating this or by adding a term like $(a_2-frac32)^2$ to the sum of squares.



      xyz[a_, b_] := {(Sqrt[2] + Sqrt[3] Cos[b]) Cos[a],
      (Sqrt[2] + Sqrt[3] Cos[b]) Sin[a], Sqrt[3] Sin[b]} / 2

      d[t_, u_, v_, w_] := (xyz[t, u] - xyz[v, w]).(xyz[t, u] - xyz[v, w])

      sol = NMinimize[
      (d[a1, b1, a2, b2] - 1)^2 + (d[a2, b2, a3, b3] - 1)^2 +
      (d[a3, b3, a1, b1] - 1)^2 + (d[a1, b1, 0, b0] - 1)^2 +
      (d[a2, b2, 0, b0] - 1)^2 + (d[a3, b3, 0, b0] - 1)^2,
      {a1, a2, a3, b1, b2, b3, b0}][[2]]

      Round[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3], xyz[0, b0]} /. sol, .01]

      tetra = ListPlot3D[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3],
      xyz[0, b0]} /. sol, PlotTheme -> Business,
      PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

      torus = ParametricPlot3D[xyz[a, b], {a, 0, 2 Pi}, {b, 0, 2 Pi},
      PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

      Show[tetra, torus]





      share|cite|improve this answer
























        2





        +50







        2





        +50



        2




        +50




        One solution has the vertices:
        $$begin{array}{ccc}
        (-0.42, & , 0.28, & 0.84 )\
        (-0.03, & -0.16, & 0.04 )\
        (-0.19, & -0.69, & 0.87 )\
        ( , 0.54, & , 0.00, & 0.85 )\
        end{array}$$

        which lead to this view looking up at the region with $z>0$:
        torus with inscribed tetradhedron



        This comes from Mathematica using NMinimize, which surprisingly worked better than NSolve or FindInstance. The code is below, and you could get other solutions by rotating this or by adding a term like $(a_2-frac32)^2$ to the sum of squares.



        xyz[a_, b_] := {(Sqrt[2] + Sqrt[3] Cos[b]) Cos[a],
        (Sqrt[2] + Sqrt[3] Cos[b]) Sin[a], Sqrt[3] Sin[b]} / 2

        d[t_, u_, v_, w_] := (xyz[t, u] - xyz[v, w]).(xyz[t, u] - xyz[v, w])

        sol = NMinimize[
        (d[a1, b1, a2, b2] - 1)^2 + (d[a2, b2, a3, b3] - 1)^2 +
        (d[a3, b3, a1, b1] - 1)^2 + (d[a1, b1, 0, b0] - 1)^2 +
        (d[a2, b2, 0, b0] - 1)^2 + (d[a3, b3, 0, b0] - 1)^2,
        {a1, a2, a3, b1, b2, b3, b0}][[2]]

        Round[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3], xyz[0, b0]} /. sol, .01]

        tetra = ListPlot3D[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3],
        xyz[0, b0]} /. sol, PlotTheme -> Business,
        PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

        torus = ParametricPlot3D[xyz[a, b], {a, 0, 2 Pi}, {b, 0, 2 Pi},
        PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

        Show[tetra, torus]





        share|cite|improve this answer












        One solution has the vertices:
        $$begin{array}{ccc}
        (-0.42, & , 0.28, & 0.84 )\
        (-0.03, & -0.16, & 0.04 )\
        (-0.19, & -0.69, & 0.87 )\
        ( , 0.54, & , 0.00, & 0.85 )\
        end{array}$$

        which lead to this view looking up at the region with $z>0$:
        torus with inscribed tetradhedron



        This comes from Mathematica using NMinimize, which surprisingly worked better than NSolve or FindInstance. The code is below, and you could get other solutions by rotating this or by adding a term like $(a_2-frac32)^2$ to the sum of squares.



        xyz[a_, b_] := {(Sqrt[2] + Sqrt[3] Cos[b]) Cos[a],
        (Sqrt[2] + Sqrt[3] Cos[b]) Sin[a], Sqrt[3] Sin[b]} / 2

        d[t_, u_, v_, w_] := (xyz[t, u] - xyz[v, w]).(xyz[t, u] - xyz[v, w])

        sol = NMinimize[
        (d[a1, b1, a2, b2] - 1)^2 + (d[a2, b2, a3, b3] - 1)^2 +
        (d[a3, b3, a1, b1] - 1)^2 + (d[a1, b1, 0, b0] - 1)^2 +
        (d[a2, b2, 0, b0] - 1)^2 + (d[a3, b3, 0, b0] - 1)^2,
        {a1, a2, a3, b1, b2, b3, b0}][[2]]

        Round[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3], xyz[0, b0]} /. sol, .01]

        tetra = ListPlot3D[{xyz[a1, b1], xyz[a2, b2], xyz[a3, b3],
        xyz[0, b0]} /. sol, PlotTheme -> Business,
        PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

        torus = ParametricPlot3D[xyz[a, b], {a, 0, 2 Pi}, {b, 0, 2 Pi},
        PlotRange -> {{-2, 2}, {-2, 2}, {0, 1}}]

        Show[tetra, torus]






        share|cite|improve this answer












        share|cite|improve this answer



        share|cite|improve this answer










        answered Dec 8 at 11:39









        Matt F.

        1,695415




        1,695415






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Mathematics 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%2fmath.stackexchange.com%2fquestions%2f3023941%2fcan-i-inscribe-a-regular-tetrahedron-to-a-torus%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

            Bressuire

            Cabo Verde

            Gyllenstierna