Dynamic filling of a region of a polar plot Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?How to plot filling under a curve?Filling only part of a plotFilling between ParametricPlot and PlotGenerating hatched filling using Region functionalityFilling a Manipulate PlotHow can I increase the font size in PlotLabel?Filling under plotFilling the region under a lineFilling in parametric plotHow to shade a region using Filling function

Deconstruction is ambiguous

Did Mueller's report provide an evidentiary basis for the claim of Russian govt election interference via social media?

Does the Mueller report show a conspiracy between Russia and the Trump Campaign?

What does Turing mean by this statement?

Misunderstanding of Sylow theory

preposition before coffee

If Windows 7 doesn't support WSL, then what is "Subsystem for UNIX-based Applications"?

Why do early math courses focus on the cross sections of a cone and not on other 3D objects?

How can I set the aperture on my DSLR when it's attached to a telescope instead of a lens?

Random body shuffle every night—can we still function?

Time evolution of a Gaussian wave packet, why convert to k-space?

Google .dev domain strangely redirects to https

What does it mean that physics no longer uses mechanical models to describe phenomena?

Would it be easier to apply for a UK visa if there is a host family to sponsor for you in going there?

Why does it sometimes sound good to play a grace note as a lead in to a note in a melody?

What are the discoveries that have been possible with the rejection of positivism?

The test team as an enemy of development? And how can this be avoided?

Significance of Cersei's obsession with elephants?

Do I really need to have a message in a novel to appeal to readers?

Crossing US/Canada Border for less than 24 hours

Why do aircraft stall warning systems use angle-of-attack vanes rather than detecting airflow separation directly?

Co-worker has annoying ringtone

How do I find out the mythology and history of my Fortress?

How often does castling occur in grandmaster games?



Dynamic filling of a region of a polar plot



Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern)
Announcing the arrival of Valued Associate #679: Cesar Manara
Unicorn Meta Zoo #1: Why another podcast?How to plot filling under a curve?Filling only part of a plotFilling between ParametricPlot and PlotGenerating hatched filling using Region functionalityFilling a Manipulate PlotHow can I increase the font size in PlotLabel?Filling under plotFilling the region under a lineFilling in parametric plotHow to shade a region using Filling function










3












$begingroup$


I would like to shade area of region as a function of angle using PolarPlot.
Here is my attempt.



With[
pts =
Cases[PolarPlot[1 + 2 Sin[θ], θ, 0, 2 π], _Line, 0, Infinity][[1, 1]],
Manipulate[
Show[
ListLinePlot[0, 0, pts[[n]], pts[[1 ;; n]],
Filling -> 2 -> Axis, LightBlue, 1 -> Axis, LightBlue,
PlotRange -> -2, 2, -0.5, 3.2, AspectRatio -> 1,
PlotStyle -> Directive[AbsoluteThickness@3, Magenta, Magenta],
ImageSize -> 500, AxesStyle -> Directive[Black, 18],
PlotLabel -> Style["r=1+2 sin(θ)", Black, 20]],
PolarPlot[1 + 2 Sin[θ], θ, 0, 2.2 π,
AspectRatio -> 1, PlotStyle -> Black, AbsoluteThickness@3]],
n, 1, Length @ pts, 1]]


enter image description here



enter image description here



Two thing I would like to achieve:



  1. I don't want to see the yellow highlited region.

  2. When inner loop is shaded twice, I would like to make it darker to emphasize that it is the 2nd time.

Any suggestion..










share|improve this question











$endgroup$
















    3












    $begingroup$


    I would like to shade area of region as a function of angle using PolarPlot.
    Here is my attempt.



    With[
    pts =
    Cases[PolarPlot[1 + 2 Sin[θ], θ, 0, 2 π], _Line, 0, Infinity][[1, 1]],
    Manipulate[
    Show[
    ListLinePlot[0, 0, pts[[n]], pts[[1 ;; n]],
    Filling -> 2 -> Axis, LightBlue, 1 -> Axis, LightBlue,
    PlotRange -> -2, 2, -0.5, 3.2, AspectRatio -> 1,
    PlotStyle -> Directive[AbsoluteThickness@3, Magenta, Magenta],
    ImageSize -> 500, AxesStyle -> Directive[Black, 18],
    PlotLabel -> Style["r=1+2 sin(θ)", Black, 20]],
    PolarPlot[1 + 2 Sin[θ], θ, 0, 2.2 π,
    AspectRatio -> 1, PlotStyle -> Black, AbsoluteThickness@3]],
    n, 1, Length @ pts, 1]]


    enter image description here



    enter image description here



    Two thing I would like to achieve:



    1. I don't want to see the yellow highlited region.

    2. When inner loop is shaded twice, I would like to make it darker to emphasize that it is the 2nd time.

    Any suggestion..










    share|improve this question











    $endgroup$














      3












      3








      3





      $begingroup$


      I would like to shade area of region as a function of angle using PolarPlot.
      Here is my attempt.



      With[
      pts =
      Cases[PolarPlot[1 + 2 Sin[θ], θ, 0, 2 π], _Line, 0, Infinity][[1, 1]],
      Manipulate[
      Show[
      ListLinePlot[0, 0, pts[[n]], pts[[1 ;; n]],
      Filling -> 2 -> Axis, LightBlue, 1 -> Axis, LightBlue,
      PlotRange -> -2, 2, -0.5, 3.2, AspectRatio -> 1,
      PlotStyle -> Directive[AbsoluteThickness@3, Magenta, Magenta],
      ImageSize -> 500, AxesStyle -> Directive[Black, 18],
      PlotLabel -> Style["r=1+2 sin(θ)", Black, 20]],
      PolarPlot[1 + 2 Sin[θ], θ, 0, 2.2 π,
      AspectRatio -> 1, PlotStyle -> Black, AbsoluteThickness@3]],
      n, 1, Length @ pts, 1]]


      enter image description here



      enter image description here



      Two thing I would like to achieve:



      1. I don't want to see the yellow highlited region.

      2. When inner loop is shaded twice, I would like to make it darker to emphasize that it is the 2nd time.

      Any suggestion..










      share|improve this question











      $endgroup$




      I would like to shade area of region as a function of angle using PolarPlot.
      Here is my attempt.



      With[
      pts =
      Cases[PolarPlot[1 + 2 Sin[θ], θ, 0, 2 π], _Line, 0, Infinity][[1, 1]],
      Manipulate[
      Show[
      ListLinePlot[0, 0, pts[[n]], pts[[1 ;; n]],
      Filling -> 2 -> Axis, LightBlue, 1 -> Axis, LightBlue,
      PlotRange -> -2, 2, -0.5, 3.2, AspectRatio -> 1,
      PlotStyle -> Directive[AbsoluteThickness@3, Magenta, Magenta],
      ImageSize -> 500, AxesStyle -> Directive[Black, 18],
      PlotLabel -> Style["r=1+2 sin(θ)", Black, 20]],
      PolarPlot[1 + 2 Sin[θ], θ, 0, 2.2 π,
      AspectRatio -> 1, PlotStyle -> Black, AbsoluteThickness@3]],
      n, 1, Length @ pts, 1]]


      enter image description here



      enter image description here



      Two thing I would like to achieve:



      1. I don't want to see the yellow highlited region.

      2. When inner loop is shaded twice, I would like to make it darker to emphasize that it is the 2nd time.

      Any suggestion..







      plotting filling






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 1 hour ago







      Okkes Dulgerci

















      asked 3 hours ago









      Okkes DulgerciOkkes Dulgerci

      5,4641919




      5,4641919




















          1 Answer
          1






          active

          oldest

          votes


















          2












          $begingroup$

          This is what you need:



          Manipulate[ParametricPlot[
          r (1 + 2 Sin[θ]) Cos[θ], Sin[θ],
          θ, 0, thmax,
          r, 0, 1,
          PlotRange -> -2.25, 2.25, -0.5, 3.5,
          PerformanceGoal -> "Quality"
          ], thmax, 0.01, 2 Pi]


          Mathematica graphics






          share|improve this answer











          $endgroup$













            Your Answer








            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%2f195619%2fdynamic-filling-of-a-region-of-a-polar-plot%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












            $begingroup$

            This is what you need:



            Manipulate[ParametricPlot[
            r (1 + 2 Sin[θ]) Cos[θ], Sin[θ],
            θ, 0, thmax,
            r, 0, 1,
            PlotRange -> -2.25, 2.25, -0.5, 3.5,
            PerformanceGoal -> "Quality"
            ], thmax, 0.01, 2 Pi]


            Mathematica graphics






            share|improve this answer











            $endgroup$

















              2












              $begingroup$

              This is what you need:



              Manipulate[ParametricPlot[
              r (1 + 2 Sin[θ]) Cos[θ], Sin[θ],
              θ, 0, thmax,
              r, 0, 1,
              PlotRange -> -2.25, 2.25, -0.5, 3.5,
              PerformanceGoal -> "Quality"
              ], thmax, 0.01, 2 Pi]


              Mathematica graphics






              share|improve this answer











              $endgroup$















                2












                2








                2





                $begingroup$

                This is what you need:



                Manipulate[ParametricPlot[
                r (1 + 2 Sin[θ]) Cos[θ], Sin[θ],
                θ, 0, thmax,
                r, 0, 1,
                PlotRange -> -2.25, 2.25, -0.5, 3.5,
                PerformanceGoal -> "Quality"
                ], thmax, 0.01, 2 Pi]


                Mathematica graphics






                share|improve this answer











                $endgroup$



                This is what you need:



                Manipulate[ParametricPlot[
                r (1 + 2 Sin[θ]) Cos[θ], Sin[θ],
                θ, 0, thmax,
                r, 0, 1,
                PlotRange -> -2.25, 2.25, -0.5, 3.5,
                PerformanceGoal -> "Quality"
                ], thmax, 0.01, 2 Pi]


                Mathematica graphics







                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited 45 mins ago









                m_goldberg

                88.9k873200




                88.9k873200










                answered 1 hour ago









                C. E.C. E.

                51.2k3101207




                51.2k3101207



























                    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.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f195619%2fdynamic-filling-of-a-region-of-a-polar-plot%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

                    Can not update quote_id field of “quote_item” table magento 2Magento 2.1 - We can't remove the item. (Shopping Cart doesnt allow us to remove items before becomes empty)Add value for custom quote item attribute using REST apiREST API endpoint v1/carts/cartId/items always returns error messageCorrect way to save entries to databaseHow to remove all associated quote objects of a customer completelyMagento 2 - Save value from custom input field to quote_itemGet quote_item data using quote id and product id filter in Magento 2How to set additional data to quote_item table from controller in Magento 2?What is the purpose of additional_data column in quote_item table in magento2Set Custom Price to Quote item magento2 from controller

                    How to solve knockout JS error in Magento 2 Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?(Magento2) knockout.js:3012 Uncaught ReferenceError: Unable to process bindingUnable to process binding Knockout.js magento 2Cannot read property `scopeLabel` of undefined on Product Detail PageCan't get Customer Data on frontend in Magento 2Magento2 Order Summary - unable to process bindingKO templates are not loading in Magento 2.1 applicationgetting knockout js error magento 2Product grid not load -— Unable to process binding Knockout.js magento 2Product form not loaded in magento2Uncaught ReferenceError: Unable to process binding “if: function()return (isShowLegend()) ” magento 2

                    Nissan Patrol Зміст Перше покоління — 4W60 (1951-1960) | Друге покоління — 60 series (1960-1980) | Третє покоління (1980–2002) | Четверте покоління — Y60 (1987–1998) | П'яте покоління — Y61 (1997–2013) | Шосте покоління — Y62 (2010- ) | Посилання | Зноски | Навігаційне менюОфіційний український сайтТест-драйв Nissan Patrol 2010 7-го поколінняNissan PatrolКак мы тестировали Nissan Patrol 2016рвиправивши або дописавши її