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
2
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]





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.



















  • Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    2 hours ago














up vote
2
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]





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.



















  • Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    2 hours ago












up vote
2
down vote

favorite









up vote
2
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]





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. 











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




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 17 mins ago









kglr

163k8188387




163k8188387






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 2 hours ago









Max

111




111




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.











  • Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    2 hours ago
















  • Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
    – J. M. is somewhat okay.♦
    2 hours ago















Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
– J. M. is somewhat okay.♦
2 hours ago




Circle is not compatible with ParametricPlot3D. You can use ParametricPlot3D to plot a circle, however.
– J. M. is somewhat okay.♦
2 hours ago










2 Answers
2






active

oldest

votes

















up vote
2
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



























    up vote
    2
    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
      2
      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
























        up vote
        2
        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






















          up vote
          2
          down vote










          up vote
          2
          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 2 hours ago









          Alexei Boulbitch

          20.5k2369




          20.5k2369




















              up vote
              2
              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
                2
                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
                  2
                  down vote










                  up vote
                  2
                  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 1 hour ago









                  kglr

                  163k8188387




                  163k8188387




















                      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
































































                      Comments

                      Post a Comment

                      Popular posts from this blog

                      What does second last employer means? [closed]

                      Image
                      Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote -3 down vote favorite Say, for example I have worked in the following companies, Company A => 2010 - 2011 Company B => 2011 - 2012 Company C => 2012 - Till Date Company D => Have offer Now assume Company D is asking to submit documents from my second last employer. So from the list of companies given, which company would be qualified as second last employer? software-industry employer share | improve this question asked Aug 10 '14 at 5:16 Rajaprabhu Aravindasamy 559 1 6 13 closed as off-topic by Jim G., jmort253 ♦ Aug 11 '14 at 1:58 This question appears to be off-topic. The users who voted to close gave this specific reason: "Questions seeking advice on company-specific regulations, agreements, or policies should be directed to your manager or HR department. Questions that address...
                      Read more

                      Installing NextGIS Connect into QGIS 3?

                      Image
                      Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 1 down vote favorite Just acquired free version of NEXTGIS and trying to install the plugin for QGIS. It tells me it was not designed for version 3 of QGIS. How do I set up the QGIS-NEXTGIS interface then? qgis qgis-plugins nextgis share | improve this question edited 3 hours ago PolyGeo ♦ 51.9k 17 77 233 asked 4 hours ago IanGS 16 4 New contributor IanGS is a new contributor to this site. Take care in asking for clarification, commenting, and answering. Check out our Code of Conduct. add a comment  |  up vote 1 down vote favorite Just acquired free version of NEXTGIS and trying to install the plugin for QGIS. It tells me it was not designed for version 3 of QGIS. How do I set up the QGIS-NEXTGIS interface then? qgis qgis-plugin...
                      Read more

                      One-line joke

                      A one-liner is a joke that is delivered in a single line. A good one-liner is said to be pithy - concise and meaningful. [1] Comedians and actors use this comedic method as part of their act, e.g. Jimmy Carr, Tommy Cooper, Rodney Dangerfield, Norm Macdonald, Ken Dodd, Stewart Francis, Zach Galifianakis, Mitch Hedberg, Anthony Jeselnik, Milton Jones, Shappi Khorsandi, Jay London, Mark Linn-Baker, Demetri Martin, Groucho Marx, Dan Mintz, Emo Philips, Tim Vine, Steven Wright and Henny Youngman and Arnold Schwarzenegger. [ citation needed ] Many fictional characters are also known to deliver one-liners, including James Bond, who usually includes pithy and laconic quips after disposing of a villain. [ citation needed ] Examples "A baby seal walks into a club." "A dyslexic man walks into a bra." (Anonymous) "There are three types of people, those who can count and those who can't." "Venison's dear, isn't it?" (Jimmy Carr) "An escala...
                      Read more