How to combine 2d circle graph (with point which is rounded) into helix 3d graph (motion of particle along circle in the world line)

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
4
down vote

favorite












Manipulate[Graphics[Circle, Red, PointSize@.05, Point@Cos[x], Sin[x]],
x, 0, 2 Pi]


and



Manipulate[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a], a, 1, 4]









share|improve this question









New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.















  • 1




    Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    Oct 4 at 8:53














up vote
4
down vote

favorite












Manipulate[Graphics[Circle, Red, PointSize@.05, Point@Cos[x], Sin[x]],
x, 0, 2 Pi]


and



Manipulate[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a], a, 1, 4]









share|improve this question









New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.















  • 1




    Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    Oct 4 at 8:53












up vote
4
down vote

favorite









up vote
4
down vote

favorite











Manipulate[Graphics[Circle, Red, PointSize@.05, Point@Cos[x], Sin[x]],
x, 0, 2 Pi]


and



Manipulate[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a], a, 1, 4]









share|improve this question









New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











Manipulate[Graphics[Circle, Red, PointSize@.05, Point@Cos[x], Sin[x]],
x, 0, 2 Pi]


and



Manipulate[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a], a, 1, 4]






graphics3d






share|improve this question









New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











share|improve this question









New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









share|improve this question




share|improve this question








edited Oct 4 at 10:57









kglr

164k8188388




164k8188388






New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









asked Oct 4 at 8:44









Max

211




211




New contributor




Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.





New contributor





Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.






Max is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







  • 1




    Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    Oct 4 at 8:53












  • 1




    Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    Oct 4 at 8:53







1




1




Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
– J. M. is somewhat okay.♦
Oct 4 at 8:53




Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
– J. M. is somewhat okay.♦
Oct 4 at 8:53










2 Answers
2






active

oldest

votes

















up vote
4
down vote













Is this, what you are trying to get:



 Manipulate[
Show[
ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 Pi],
ParametricPlot3D[Cos[t], Sin[t], 0, t, 0, 2 Pi,
PlotStyle -> Gray],
Graphics3D[PointSize[0.03], Gray, Point[Cos[a], Sin[a], 0], Red,
Point[Cos[a], Sin[a], a/4], Dashed,
Line[Cos[a], Sin[a], 0, Cos[a], Sin[a], a/4]]
],
a, 0.1, 0, 6]


yielding the following:



enter image description here



Have fun!






share|improve this answer




















  • Please don't use JPG for non-photographic images! :)
    – Andreas Rejbrand
    Oct 4 at 11:19










  • @ Andreas Rejbrand Why not?
    – Alexei Boulbitch
    Oct 4 at 11:45










  • JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
    – Andreas Rejbrand
    Oct 4 at 11:58











  • @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
    – Alexei Boulbitch
    Oct 4 at 12:18










  • No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
    – Andreas Rejbrand
    Oct 4 at 12:28

















up vote
4
down vote













 Manipulate[Show[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a, 
MeshFunctions -> #4 &, Mesh -> 2 π a - 1/10000 ,
MeshStyle -> Directive[Red, PointSize[Large]],
PerformanceGoal -> "Quality"],
ParametricPlot3D[r Cos[t], r Sin[t], π a/2, t, 0, 2 π , r, 0, 1,
PlotStyle -> Opacity[.5],
MeshFunctions -> #5 &, Mesh -> 1 - 1/10000,
MeshStyle -> Red,
BoundaryStyle -> None, PerformanceGoal -> "Quality"],
PlotRange -> 0, 2 Pi], a, 1, 4]


enter image description here






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: false,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    bindNavPrevention: true,
    postfix: "",
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    );



    );






    Max is a new contributor. Be nice, and check out our Code of Conduct.









     

    draft saved


    draft discarded


















    StackExchange.ready(
    function ()
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183099%2fhow-to-combine-2d-circle-graph-with-point-which-is-rounded-into-helix-3d-graph%23new-answer', 'question_page');

    );

    Post as a guest






























    2 Answers
    2






    active

    oldest

    votes








    2 Answers
    2






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes








    up vote
    4
    down vote













    Is this, what you are trying to get:



     Manipulate[
    Show[
    ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 Pi],
    ParametricPlot3D[Cos[t], Sin[t], 0, t, 0, 2 Pi,
    PlotStyle -> Gray],
    Graphics3D[PointSize[0.03], Gray, Point[Cos[a], Sin[a], 0], Red,
    Point[Cos[a], Sin[a], a/4], Dashed,
    Line[Cos[a], Sin[a], 0, Cos[a], Sin[a], a/4]]
    ],
    a, 0.1, 0, 6]


    yielding the following:



    enter image description here



    Have fun!






    share|improve this answer




















    • Please don't use JPG for non-photographic images! :)
      – Andreas Rejbrand
      Oct 4 at 11:19










    • @ Andreas Rejbrand Why not?
      – Alexei Boulbitch
      Oct 4 at 11:45










    • JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
      – Andreas Rejbrand
      Oct 4 at 11:58











    • @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
      – Alexei Boulbitch
      Oct 4 at 12:18










    • No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
      – Andreas Rejbrand
      Oct 4 at 12:28














    up vote
    4
    down vote













    Is this, what you are trying to get:



     Manipulate[
    Show[
    ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 Pi],
    ParametricPlot3D[Cos[t], Sin[t], 0, t, 0, 2 Pi,
    PlotStyle -> Gray],
    Graphics3D[PointSize[0.03], Gray, Point[Cos[a], Sin[a], 0], Red,
    Point[Cos[a], Sin[a], a/4], Dashed,
    Line[Cos[a], Sin[a], 0, Cos[a], Sin[a], a/4]]
    ],
    a, 0.1, 0, 6]


    yielding the following:



    enter image description here



    Have fun!






    share|improve this answer




















    • Please don't use JPG for non-photographic images! :)
      – Andreas Rejbrand
      Oct 4 at 11:19










    • @ Andreas Rejbrand Why not?
      – Alexei Boulbitch
      Oct 4 at 11:45










    • JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
      – Andreas Rejbrand
      Oct 4 at 11:58











    • @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
      – Alexei Boulbitch
      Oct 4 at 12:18










    • No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
      – Andreas Rejbrand
      Oct 4 at 12:28












    up vote
    4
    down vote










    up vote
    4
    down vote









    Is this, what you are trying to get:



     Manipulate[
    Show[
    ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 Pi],
    ParametricPlot3D[Cos[t], Sin[t], 0, t, 0, 2 Pi,
    PlotStyle -> Gray],
    Graphics3D[PointSize[0.03], Gray, Point[Cos[a], Sin[a], 0], Red,
    Point[Cos[a], Sin[a], a/4], Dashed,
    Line[Cos[a], Sin[a], 0, Cos[a], Sin[a], a/4]]
    ],
    a, 0.1, 0, 6]


    yielding the following:



    enter image description here



    Have fun!






    share|improve this answer












    Is this, what you are trying to get:



     Manipulate[
    Show[
    ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 Pi],
    ParametricPlot3D[Cos[t], Sin[t], 0, t, 0, 2 Pi,
    PlotStyle -> Gray],
    Graphics3D[PointSize[0.03], Gray, Point[Cos[a], Sin[a], 0], Red,
    Point[Cos[a], Sin[a], a/4], Dashed,
    Line[Cos[a], Sin[a], 0, Cos[a], Sin[a], a/4]]
    ],
    a, 0.1, 0, 6]


    yielding the following:



    enter image description here



    Have fun!







    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered Oct 4 at 9:11









    Alexei Boulbitch

    20.5k2369




    20.5k2369











    • Please don't use JPG for non-photographic images! :)
      – Andreas Rejbrand
      Oct 4 at 11:19










    • @ Andreas Rejbrand Why not?
      – Alexei Boulbitch
      Oct 4 at 11:45










    • JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
      – Andreas Rejbrand
      Oct 4 at 11:58











    • @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
      – Alexei Boulbitch
      Oct 4 at 12:18










    • No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
      – Andreas Rejbrand
      Oct 4 at 12:28
















    • Please don't use JPG for non-photographic images! :)
      – Andreas Rejbrand
      Oct 4 at 11:19










    • @ Andreas Rejbrand Why not?
      – Alexei Boulbitch
      Oct 4 at 11:45










    • JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
      – Andreas Rejbrand
      Oct 4 at 11:58











    • @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
      – Alexei Boulbitch
      Oct 4 at 12:18










    • No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
      – Andreas Rejbrand
      Oct 4 at 12:28















    Please don't use JPG for non-photographic images! :)
    – Andreas Rejbrand
    Oct 4 at 11:19




    Please don't use JPG for non-photographic images! :)
    – Andreas Rejbrand
    Oct 4 at 11:19












    @ Andreas Rejbrand Why not?
    – Alexei Boulbitch
    Oct 4 at 11:45




    @ Andreas Rejbrand Why not?
    – Alexei Boulbitch
    Oct 4 at 11:45












    JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
    – Andreas Rejbrand
    Oct 4 at 11:58





    JPG is designed to be used with photographs, and it uses lossy compression that causes very disturbing artefacts in non-photographic images that contain a lot of solid-colour regions, text, curves, etc. I tried to explain this here, and there is also an XKCD for this: Google "XKCD PNG vs JPG". (Although, I must admit that I have almost never seen a JPG with as little artefacts as your image.)
    – Andreas Rejbrand
    Oct 4 at 11:58













    @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
    – Alexei Boulbitch
    Oct 4 at 12:18




    @ Andreas Rejbrand Look, I always post jpg files here using the screenshots and it never makes problems.
    – Alexei Boulbitch
    Oct 4 at 12:18












    No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
    – Andreas Rejbrand
    Oct 4 at 12:28




    No, indeed, you use so little compression that it is barely visible. But in almost all other cases where people save screenshots and diagrams as JPG, the artefacts are very visible. (Still, resaving your image as PNG reduces the file size by almost 50%.)
    – Andreas Rejbrand
    Oct 4 at 12:28










    up vote
    4
    down vote













     Manipulate[Show[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a, 
    MeshFunctions -> #4 &, Mesh -> 2 π a - 1/10000 ,
    MeshStyle -> Directive[Red, PointSize[Large]],
    PerformanceGoal -> "Quality"],
    ParametricPlot3D[r Cos[t], r Sin[t], π a/2, t, 0, 2 π , r, 0, 1,
    PlotStyle -> Opacity[.5],
    MeshFunctions -> #5 &, Mesh -> 1 - 1/10000,
    MeshStyle -> Red,
    BoundaryStyle -> None, PerformanceGoal -> "Quality"],
    PlotRange -> 0, 2 Pi], a, 1, 4]


    enter image description here






    share|improve this answer
























      up vote
      4
      down vote













       Manipulate[Show[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a, 
      MeshFunctions -> #4 &, Mesh -> 2 π a - 1/10000 ,
      MeshStyle -> Directive[Red, PointSize[Large]],
      PerformanceGoal -> "Quality"],
      ParametricPlot3D[r Cos[t], r Sin[t], π a/2, t, 0, 2 π , r, 0, 1,
      PlotStyle -> Opacity[.5],
      MeshFunctions -> #5 &, Mesh -> 1 - 1/10000,
      MeshStyle -> Red,
      BoundaryStyle -> None, PerformanceGoal -> "Quality"],
      PlotRange -> 0, 2 Pi], a, 1, 4]


      enter image description here






      share|improve this answer






















        up vote
        4
        down vote










        up vote
        4
        down vote









         Manipulate[Show[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a, 
        MeshFunctions -> #4 &, Mesh -> 2 π a - 1/10000 ,
        MeshStyle -> Directive[Red, PointSize[Large]],
        PerformanceGoal -> "Quality"],
        ParametricPlot3D[r Cos[t], r Sin[t], π a/2, t, 0, 2 π , r, 0, 1,
        PlotStyle -> Opacity[.5],
        MeshFunctions -> #5 &, Mesh -> 1 - 1/10000,
        MeshStyle -> Red,
        BoundaryStyle -> None, PerformanceGoal -> "Quality"],
        PlotRange -> 0, 2 Pi], a, 1, 4]


        enter image description here






        share|improve this answer












         Manipulate[Show[ParametricPlot3D[Cos[t], Sin[t], t/4, t, 0, 2 π a, 
        MeshFunctions -> #4 &, Mesh -> 2 π a - 1/10000 ,
        MeshStyle -> Directive[Red, PointSize[Large]],
        PerformanceGoal -> "Quality"],
        ParametricPlot3D[r Cos[t], r Sin[t], π a/2, t, 0, 2 π , r, 0, 1,
        PlotStyle -> Opacity[.5],
        MeshFunctions -> #5 &, Mesh -> 1 - 1/10000,
        MeshStyle -> Red,
        BoundaryStyle -> None, PerformanceGoal -> "Quality"],
        PlotRange -> 0, 2 Pi], a, 1, 4]


        enter image description here







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Oct 4 at 9:16









        kglr

        164k8188388




        164k8188388




















            Max is a new contributor. Be nice, and check out our Code of Conduct.









             

            draft saved


            draft discarded


















            Max is a new contributor. Be nice, and check out our Code of Conduct.












            Max is a new contributor. Be nice, and check out our Code of Conduct.











            Max is a new contributor. Be nice, and check out our Code of Conduct.













             


            draft saved


            draft discarded














            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183099%2fhow-to-combine-2d-circle-graph-with-point-which-is-rounded-into-helix-3d-graph%23new-answer', 'question_page');

            );

            Post as a guest













































































            Popular posts from this blog

            How to check contact read email or not when send email to Individual?

            Bahrain

            Postfix configuration issue with fips on centos 7; mailgun relay