How to draw this center trajectory of rolling ball?Plotting loops: trajectories and directionsHow to draw curve inside a closed curve?How to draw this picture with LaTeX? TikZ?How to illustrate sin, cos, and tan on a unit circle with TikZ?How to draw this picture in basic TikZHow can I draw using tikzHow to draw this figure in tikzHow to draw this diagram in tikz?I need to draw thisHow to draw loops in tikzHow to draw a line on a ball?

Why do textbooks often include the solutions to odd or even numbered problems but not both?

Can you find x?

Can White Castle?

How does a pilot select the correct ILS when the airport has parallel runways?

How do I professionally let my manager know I'll quit over smoking in the office?

Understanding the reasoning of the woman who agreed with King Solomon to "cut the baby in half"

Explain why a line can never intersect a plane in exactly two points.

Is there a term for the belief that "if it's legal, it's moral"?

Why does Linux list NVMe drives as /dev/nvme0 instead of /dev/sda?

Should I prioritize my 401k over my student loans?

Can someone suggest a path to study Mordell-Weil theorem for someone studying on their own?

Why do some professors with PhDs leave their professorships to teach high school?

Are all Ringwraiths called Nazgûl in LotR?

Java TreeMap.floorKey() equivalent for std::map

How does the spell Remove Curse interact with a Sword of Vengeance?

How to make clear to people I don't want to answer their "Where are you from?" question?

What was the Shuttle Carrier Aircraft escape tunnel?

What can I do with a research project that is my university’s intellectual property?

What reason would an alien civilization have for building a Dyson Sphere (or Swarm) if cheap Nuclear fusion is available?

How can I politely work my way around not liking coffee or beer when it comes to professional networking?

Is it illegal to withhold someone's passport and green card in California?

Array initialization optimization

Loss of power when I remove item from the outlet

Do I have to explain the mechanical superiority of the player-character within the fiction of the game?



How to draw this center trajectory of rolling ball?


Plotting loops: trajectories and directionsHow to draw curve inside a closed curve?How to draw this picture with LaTeX? TikZ?How to illustrate sin, cos, and tan on a unit circle with TikZ?How to draw this picture in basic TikZHow can I draw using tikzHow to draw this figure in tikzHow to draw this diagram in tikz?I need to draw thisHow to draw loops in tikzHow to draw a line on a ball?






.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;








1















I'm a beginner to the latex tikz and I want to draw this picture but dunno what's the best command or idea here



enter image description here










share|improve this question



















  • 1





    maybe tex.stackexchange.com/questions/159059/…

    – user191173
    10 hours ago

















1















I'm a beginner to the latex tikz and I want to draw this picture but dunno what's the best command or idea here



enter image description here










share|improve this question



















  • 1





    maybe tex.stackexchange.com/questions/159059/…

    – user191173
    10 hours ago













1












1








1


0






I'm a beginner to the latex tikz and I want to draw this picture but dunno what's the best command or idea here



enter image description here










share|improve this question
















I'm a beginner to the latex tikz and I want to draw this picture but dunno what's the best command or idea here



enter image description here







tikz-pgf draw






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 10 hours ago









Bernard

182k783214




182k783214










asked 10 hours ago









QuintisQuintis

444




444







  • 1





    maybe tex.stackexchange.com/questions/159059/…

    – user191173
    10 hours ago












  • 1





    maybe tex.stackexchange.com/questions/159059/…

    – user191173
    10 hours ago







1




1





maybe tex.stackexchange.com/questions/159059/…

– user191173
10 hours ago





maybe tex.stackexchange.com/questions/159059/…

– user191173
10 hours ago










2 Answers
2






active

oldest

votes


















7














This is a special case of a cycloid curve, known as hypotrochoid.



documentclass[tikz,border=3.14mm]standalone
usetikzlibrarydecorations.markings
begindocument
begintikzpicture[insert arrow/.style=decoration=
markings,
mark=at position #1 with arrowstealth,postaction=decorate,
bullet/.style=draw,fill=white,circle,thick,inner sep=2pt]
draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9]
plot[variable=t,domain=0:360,samples=101,smooth]
(45+t-30*sin(4*t):2-0.8*cos(4*t));
draw[very thick] (-3,0) -- (3,0);
path (-2.8,0) node[bullet] (1.2,0) node[bullet];
endtikzpicture
enddocument


enter image description here



For your convenience I declared a style for that.



documentclass[tikz,border=3.14mm]standalone
usetikzlibrarydecorations.markings
begindocument
begintikzpicture[insert arrow/.style=decoration=
markings,
mark=at position #1 with arrowstealth,postaction=decorate,
bullet/.style=draw,fill=white,circle,thick,inner sep=2pt,
hypotrochoid/.style=/utils/exec=tikzsethypotrochoid/.cd,#1,
insert path=
plot[variable=t,domain=0:360,samples=101,smooth]
(pgfkeysvalueof/tikz/hypotrochoid/rot+t
-(360/(pgfkeysvalueof/tikz/hypotrochoid/n*pgfkeysvalueof/tikz/hypotrochoid/m))
*sin(pgfkeysvalueof/tikz/hypotrochoid/n*t)
:
pgfkeysvalueof/tikz/hypotrochoid/outer radius
-pgfkeysvalueof/tikz/hypotrochoid/inner radius*cos(pgfkeysvalueof/tikz/hypotrochoid/n*t)
), hypotrochoid/.cd,outer radius/.initial=2,
inner radius/.initial=1,
rot/.initial=45,n/.initial=4,m/.initial=1]
draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9,
hypotrochoid=outer radius=2,inner radius=0.8,n=4,m=2.5];

draw[very thick] (-3,0) -- (3,0);
path (-2.8,0) node[bullet] (1.2,0) node[bullet];
endtikzpicture
enddocument


Then you can change e.g. n easily



draw[thick,hypotrochoid=outer radius=2,inner radius=0.8,n=6,m=2.5];


enter image description here






share|improve this answer
































    1














    A solution with pstricks:



    documentclassarticle
    usepackagepst-plot,pst-node,multido

    defx4*cos(t) + 2*cos(5*t)
    defy4*sin(t)+2*sin(5*t)

    begindocument

    pssetunit=0.8cm
    beginpspicture(-6.5,-6.5)(6.5,6.5)
    psline[linewidth=1.2pt]-(-6.5,0)(6.5,0)
    pssetplotpoints=500, plotstyle=curve, algebraic,linewidth=1.5pt
    psparametricplot[linecolor=red, ArrowInside=->, ArrowInsideNo=4]06.28y
    % define nodes on the curve
    curvepnodes[plotpoints=4]04.712yP
    curvepnodes[plotpoints=2]0.253.0yQ
    curvepnodes[plotpoints=2]3.306.05yR
    pssetdotstyle =triangle*, dotscale =1.4 , linecolor =red
    multidoi=0 + 1,irot =0+ 904psdot[dotangle=irot,](Pi)
    multidoi=0 + 1,irot =55+ 952psdot[dotangle=irot](Qi)
    multidoi=0 + 1,irot =-25+ 952psdot[dotangle=irot](Ri)
    psset dotscale =1.6, linecolor=black, dotstyle =Bo
    psdots(P2)(2.5,0)
    endpspicture

    enddocument


    enter image description here






    share|improve this answer

























      Your Answer








      StackExchange.ready(function()
      var channelOptions =
      tags: "".split(" "),
      id: "85"
      ;
      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%2ftex.stackexchange.com%2fquestions%2f496528%2fhow-to-draw-this-center-trajectory-of-rolling-ball%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









      7














      This is a special case of a cycloid curve, known as hypotrochoid.



      documentclass[tikz,border=3.14mm]standalone
      usetikzlibrarydecorations.markings
      begindocument
      begintikzpicture[insert arrow/.style=decoration=
      markings,
      mark=at position #1 with arrowstealth,postaction=decorate,
      bullet/.style=draw,fill=white,circle,thick,inner sep=2pt]
      draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9]
      plot[variable=t,domain=0:360,samples=101,smooth]
      (45+t-30*sin(4*t):2-0.8*cos(4*t));
      draw[very thick] (-3,0) -- (3,0);
      path (-2.8,0) node[bullet] (1.2,0) node[bullet];
      endtikzpicture
      enddocument


      enter image description here



      For your convenience I declared a style for that.



      documentclass[tikz,border=3.14mm]standalone
      usetikzlibrarydecorations.markings
      begindocument
      begintikzpicture[insert arrow/.style=decoration=
      markings,
      mark=at position #1 with arrowstealth,postaction=decorate,
      bullet/.style=draw,fill=white,circle,thick,inner sep=2pt,
      hypotrochoid/.style=/utils/exec=tikzsethypotrochoid/.cd,#1,
      insert path=
      plot[variable=t,domain=0:360,samples=101,smooth]
      (pgfkeysvalueof/tikz/hypotrochoid/rot+t
      -(360/(pgfkeysvalueof/tikz/hypotrochoid/n*pgfkeysvalueof/tikz/hypotrochoid/m))
      *sin(pgfkeysvalueof/tikz/hypotrochoid/n*t)
      :
      pgfkeysvalueof/tikz/hypotrochoid/outer radius
      -pgfkeysvalueof/tikz/hypotrochoid/inner radius*cos(pgfkeysvalueof/tikz/hypotrochoid/n*t)
      ), hypotrochoid/.cd,outer radius/.initial=2,
      inner radius/.initial=1,
      rot/.initial=45,n/.initial=4,m/.initial=1]
      draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9,
      hypotrochoid=outer radius=2,inner radius=0.8,n=4,m=2.5];

      draw[very thick] (-3,0) -- (3,0);
      path (-2.8,0) node[bullet] (1.2,0) node[bullet];
      endtikzpicture
      enddocument


      Then you can change e.g. n easily



      draw[thick,hypotrochoid=outer radius=2,inner radius=0.8,n=6,m=2.5];


      enter image description here






      share|improve this answer





























        7














        This is a special case of a cycloid curve, known as hypotrochoid.



        documentclass[tikz,border=3.14mm]standalone
        usetikzlibrarydecorations.markings
        begindocument
        begintikzpicture[insert arrow/.style=decoration=
        markings,
        mark=at position #1 with arrowstealth,postaction=decorate,
        bullet/.style=draw,fill=white,circle,thick,inner sep=2pt]
        draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9]
        plot[variable=t,domain=0:360,samples=101,smooth]
        (45+t-30*sin(4*t):2-0.8*cos(4*t));
        draw[very thick] (-3,0) -- (3,0);
        path (-2.8,0) node[bullet] (1.2,0) node[bullet];
        endtikzpicture
        enddocument


        enter image description here



        For your convenience I declared a style for that.



        documentclass[tikz,border=3.14mm]standalone
        usetikzlibrarydecorations.markings
        begindocument
        begintikzpicture[insert arrow/.style=decoration=
        markings,
        mark=at position #1 with arrowstealth,postaction=decorate,
        bullet/.style=draw,fill=white,circle,thick,inner sep=2pt,
        hypotrochoid/.style=/utils/exec=tikzsethypotrochoid/.cd,#1,
        insert path=
        plot[variable=t,domain=0:360,samples=101,smooth]
        (pgfkeysvalueof/tikz/hypotrochoid/rot+t
        -(360/(pgfkeysvalueof/tikz/hypotrochoid/n*pgfkeysvalueof/tikz/hypotrochoid/m))
        *sin(pgfkeysvalueof/tikz/hypotrochoid/n*t)
        :
        pgfkeysvalueof/tikz/hypotrochoid/outer radius
        -pgfkeysvalueof/tikz/hypotrochoid/inner radius*cos(pgfkeysvalueof/tikz/hypotrochoid/n*t)
        ), hypotrochoid/.cd,outer radius/.initial=2,
        inner radius/.initial=1,
        rot/.initial=45,n/.initial=4,m/.initial=1]
        draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9,
        hypotrochoid=outer radius=2,inner radius=0.8,n=4,m=2.5];

        draw[very thick] (-3,0) -- (3,0);
        path (-2.8,0) node[bullet] (1.2,0) node[bullet];
        endtikzpicture
        enddocument


        Then you can change e.g. n easily



        draw[thick,hypotrochoid=outer radius=2,inner radius=0.8,n=6,m=2.5];


        enter image description here






        share|improve this answer



























          7












          7








          7







          This is a special case of a cycloid curve, known as hypotrochoid.



          documentclass[tikz,border=3.14mm]standalone
          usetikzlibrarydecorations.markings
          begindocument
          begintikzpicture[insert arrow/.style=decoration=
          markings,
          mark=at position #1 with arrowstealth,postaction=decorate,
          bullet/.style=draw,fill=white,circle,thick,inner sep=2pt]
          draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9]
          plot[variable=t,domain=0:360,samples=101,smooth]
          (45+t-30*sin(4*t):2-0.8*cos(4*t));
          draw[very thick] (-3,0) -- (3,0);
          path (-2.8,0) node[bullet] (1.2,0) node[bullet];
          endtikzpicture
          enddocument


          enter image description here



          For your convenience I declared a style for that.



          documentclass[tikz,border=3.14mm]standalone
          usetikzlibrarydecorations.markings
          begindocument
          begintikzpicture[insert arrow/.style=decoration=
          markings,
          mark=at position #1 with arrowstealth,postaction=decorate,
          bullet/.style=draw,fill=white,circle,thick,inner sep=2pt,
          hypotrochoid/.style=/utils/exec=tikzsethypotrochoid/.cd,#1,
          insert path=
          plot[variable=t,domain=0:360,samples=101,smooth]
          (pgfkeysvalueof/tikz/hypotrochoid/rot+t
          -(360/(pgfkeysvalueof/tikz/hypotrochoid/n*pgfkeysvalueof/tikz/hypotrochoid/m))
          *sin(pgfkeysvalueof/tikz/hypotrochoid/n*t)
          :
          pgfkeysvalueof/tikz/hypotrochoid/outer radius
          -pgfkeysvalueof/tikz/hypotrochoid/inner radius*cos(pgfkeysvalueof/tikz/hypotrochoid/n*t)
          ), hypotrochoid/.cd,outer radius/.initial=2,
          inner radius/.initial=1,
          rot/.initial=45,n/.initial=4,m/.initial=1]
          draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9,
          hypotrochoid=outer radius=2,inner radius=0.8,n=4,m=2.5];

          draw[very thick] (-3,0) -- (3,0);
          path (-2.8,0) node[bullet] (1.2,0) node[bullet];
          endtikzpicture
          enddocument


          Then you can change e.g. n easily



          draw[thick,hypotrochoid=outer radius=2,inner radius=0.8,n=6,m=2.5];


          enter image description here






          share|improve this answer















          This is a special case of a cycloid curve, known as hypotrochoid.



          documentclass[tikz,border=3.14mm]standalone
          usetikzlibrarydecorations.markings
          begindocument
          begintikzpicture[insert arrow/.style=decoration=
          markings,
          mark=at position #1 with arrowstealth,postaction=decorate,
          bullet/.style=draw,fill=white,circle,thick,inner sep=2pt]
          draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9]
          plot[variable=t,domain=0:360,samples=101,smooth]
          (45+t-30*sin(4*t):2-0.8*cos(4*t));
          draw[very thick] (-3,0) -- (3,0);
          path (-2.8,0) node[bullet] (1.2,0) node[bullet];
          endtikzpicture
          enddocument


          enter image description here



          For your convenience I declared a style for that.



          documentclass[tikz,border=3.14mm]standalone
          usetikzlibrarydecorations.markings
          begindocument
          begintikzpicture[insert arrow/.style=decoration=
          markings,
          mark=at position #1 with arrowstealth,postaction=decorate,
          bullet/.style=draw,fill=white,circle,thick,inner sep=2pt,
          hypotrochoid/.style=/utils/exec=tikzsethypotrochoid/.cd,#1,
          insert path=
          plot[variable=t,domain=0:360,samples=101,smooth]
          (pgfkeysvalueof/tikz/hypotrochoid/rot+t
          -(360/(pgfkeysvalueof/tikz/hypotrochoid/n*pgfkeysvalueof/tikz/hypotrochoid/m))
          *sin(pgfkeysvalueof/tikz/hypotrochoid/n*t)
          :
          pgfkeysvalueof/tikz/hypotrochoid/outer radius
          -pgfkeysvalueof/tikz/hypotrochoid/inner radius*cos(pgfkeysvalueof/tikz/hypotrochoid/n*t)
          ), hypotrochoid/.cd,outer radius/.initial=2,
          inner radius/.initial=1,
          rot/.initial=45,n/.initial=4,m/.initial=1]
          draw[thick,insert arrow/.list=0.125,0.35,0.4,0.625,0.85,0.9,
          hypotrochoid=outer radius=2,inner radius=0.8,n=4,m=2.5];

          draw[very thick] (-3,0) -- (3,0);
          path (-2.8,0) node[bullet] (1.2,0) node[bullet];
          endtikzpicture
          enddocument


          Then you can change e.g. n easily



          draw[thick,hypotrochoid=outer radius=2,inner radius=0.8,n=6,m=2.5];


          enter image description here







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 9 hours ago

























          answered 10 hours ago









          marmotmarmot

          137k6179330




          137k6179330























              1














              A solution with pstricks:



              documentclassarticle
              usepackagepst-plot,pst-node,multido

              defx4*cos(t) + 2*cos(5*t)
              defy4*sin(t)+2*sin(5*t)

              begindocument

              pssetunit=0.8cm
              beginpspicture(-6.5,-6.5)(6.5,6.5)
              psline[linewidth=1.2pt]-(-6.5,0)(6.5,0)
              pssetplotpoints=500, plotstyle=curve, algebraic,linewidth=1.5pt
              psparametricplot[linecolor=red, ArrowInside=->, ArrowInsideNo=4]06.28y
              % define nodes on the curve
              curvepnodes[plotpoints=4]04.712yP
              curvepnodes[plotpoints=2]0.253.0yQ
              curvepnodes[plotpoints=2]3.306.05yR
              pssetdotstyle =triangle*, dotscale =1.4 , linecolor =red
              multidoi=0 + 1,irot =0+ 904psdot[dotangle=irot,](Pi)
              multidoi=0 + 1,irot =55+ 952psdot[dotangle=irot](Qi)
              multidoi=0 + 1,irot =-25+ 952psdot[dotangle=irot](Ri)
              psset dotscale =1.6, linecolor=black, dotstyle =Bo
              psdots(P2)(2.5,0)
              endpspicture

              enddocument


              enter image description here






              share|improve this answer



























                1














                A solution with pstricks:



                documentclassarticle
                usepackagepst-plot,pst-node,multido

                defx4*cos(t) + 2*cos(5*t)
                defy4*sin(t)+2*sin(5*t)

                begindocument

                pssetunit=0.8cm
                beginpspicture(-6.5,-6.5)(6.5,6.5)
                psline[linewidth=1.2pt]-(-6.5,0)(6.5,0)
                pssetplotpoints=500, plotstyle=curve, algebraic,linewidth=1.5pt
                psparametricplot[linecolor=red, ArrowInside=->, ArrowInsideNo=4]06.28y
                % define nodes on the curve
                curvepnodes[plotpoints=4]04.712yP
                curvepnodes[plotpoints=2]0.253.0yQ
                curvepnodes[plotpoints=2]3.306.05yR
                pssetdotstyle =triangle*, dotscale =1.4 , linecolor =red
                multidoi=0 + 1,irot =0+ 904psdot[dotangle=irot,](Pi)
                multidoi=0 + 1,irot =55+ 952psdot[dotangle=irot](Qi)
                multidoi=0 + 1,irot =-25+ 952psdot[dotangle=irot](Ri)
                psset dotscale =1.6, linecolor=black, dotstyle =Bo
                psdots(P2)(2.5,0)
                endpspicture

                enddocument


                enter image description here






                share|improve this answer

























                  1












                  1








                  1







                  A solution with pstricks:



                  documentclassarticle
                  usepackagepst-plot,pst-node,multido

                  defx4*cos(t) + 2*cos(5*t)
                  defy4*sin(t)+2*sin(5*t)

                  begindocument

                  pssetunit=0.8cm
                  beginpspicture(-6.5,-6.5)(6.5,6.5)
                  psline[linewidth=1.2pt]-(-6.5,0)(6.5,0)
                  pssetplotpoints=500, plotstyle=curve, algebraic,linewidth=1.5pt
                  psparametricplot[linecolor=red, ArrowInside=->, ArrowInsideNo=4]06.28y
                  % define nodes on the curve
                  curvepnodes[plotpoints=4]04.712yP
                  curvepnodes[plotpoints=2]0.253.0yQ
                  curvepnodes[plotpoints=2]3.306.05yR
                  pssetdotstyle =triangle*, dotscale =1.4 , linecolor =red
                  multidoi=0 + 1,irot =0+ 904psdot[dotangle=irot,](Pi)
                  multidoi=0 + 1,irot =55+ 952psdot[dotangle=irot](Qi)
                  multidoi=0 + 1,irot =-25+ 952psdot[dotangle=irot](Ri)
                  psset dotscale =1.6, linecolor=black, dotstyle =Bo
                  psdots(P2)(2.5,0)
                  endpspicture

                  enddocument


                  enter image description here






                  share|improve this answer













                  A solution with pstricks:



                  documentclassarticle
                  usepackagepst-plot,pst-node,multido

                  defx4*cos(t) + 2*cos(5*t)
                  defy4*sin(t)+2*sin(5*t)

                  begindocument

                  pssetunit=0.8cm
                  beginpspicture(-6.5,-6.5)(6.5,6.5)
                  psline[linewidth=1.2pt]-(-6.5,0)(6.5,0)
                  pssetplotpoints=500, plotstyle=curve, algebraic,linewidth=1.5pt
                  psparametricplot[linecolor=red, ArrowInside=->, ArrowInsideNo=4]06.28y
                  % define nodes on the curve
                  curvepnodes[plotpoints=4]04.712yP
                  curvepnodes[plotpoints=2]0.253.0yQ
                  curvepnodes[plotpoints=2]3.306.05yR
                  pssetdotstyle =triangle*, dotscale =1.4 , linecolor =red
                  multidoi=0 + 1,irot =0+ 904psdot[dotangle=irot,](Pi)
                  multidoi=0 + 1,irot =55+ 952psdot[dotangle=irot](Qi)
                  multidoi=0 + 1,irot =-25+ 952psdot[dotangle=irot](Ri)
                  psset dotscale =1.6, linecolor=black, dotstyle =Bo
                  psdots(P2)(2.5,0)
                  endpspicture

                  enddocument


                  enter image description here







                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered 4 hours ago









                  BernardBernard

                  182k783214




                  182k783214



























                      draft saved

                      draft discarded
















































                      Thanks for contributing an answer to TeX - LaTeX 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.

                      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%2ftex.stackexchange.com%2fquestions%2f496528%2fhow-to-draw-this-center-trajectory-of-rolling-ball%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

                      Canceling a color specificationRandomly assigning color to Graphics3D objects?Default color for Filling in Mathematica 9Coloring specific elements of sets with a prime modified order in an array plotHow to pick a color differing significantly from the colors already in a given color list?Detection of the text colorColor numbers based on their valueCan color schemes for use with ColorData include opacity specification?My dynamic color schemes

                      Invision Community Contents History See also References External links Navigation menuProprietaryinvisioncommunity.comIPS Community ForumsIPS Community Forumsthis blog entry"License Changes, IP.Board 3.4, and the Future""Interview -- Matt Mecham of Ibforums""CEO Invision Power Board, Matt Mecham Is a Liar, Thief!"IPB License Explanation 1.3, 1.3.1, 2.0, and 2.1ArchivedSecurity Fixes, Updates And Enhancements For IPB 1.3.1Archived"New Demo Accounts - Invision Power Services"the original"New Default Skin"the original"Invision Power Board 3.0.0 and Applications Released"the original"Archived copy"the original"Perpetual licenses being done away with""Release Notes - Invision Power Services""Introducing: IPS Community Suite 4!"Invision Community Release Notes

                      199年 目錄 大件事 到箇年出世嗰人 到箇年死嗰人 節慶、風俗習慣 導覽選單