Dynamic filling of a region of a polar plot












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..






plotting filling







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..






    plotting filling







    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..






      plotting filling







      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




      plotting filling






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 2 hours ago







      Okkes Dulgerci

















      asked 4 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 1 hour 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

                    Liste der Baudenkmale in Friedland (Mecklenburg)

                    Image
                    In der Liste der Baudenkmale in Friedland sind alle denkmalgeschützten Bauten der Stadt Friedland (Mecklenburg-Vorpommern) und ihrer Ortsteile aufgelistet. Grundlage ist die Veröffentlichung der Denkmalliste des Landkreises Mecklenburgische Seenplatte (Auszug) vom 28. September 2016. Inhaltsverzeichnis 1 Baudenkmale nach Ortsteilen 1.1 Friedland 1.2 Bresewitz 1.3 Brohm 1.4 Cosa 1.5 Dishley 1.6 Dishley-Ausbau 1.7 Eichhorst 1.8 Glienke 1.9 Heinrichshöh 1.10 Heinrichswalde 1.11 Jatzke 1.12 Jatzke-Meierei 1.13 Liepen 1.14 Ramelow 1.15 Schwanbeck 2 Vorgesehener Denkmalbereich 3 Quelle 4 Weblinks Baudenkmale nach Ortsteilen | Friedland | ID Lage Bezeichnung Beschreibung Bild 281 An der Kleinbahn 2 Windmühle mit Umgang 282 Anklamer Straße alter Friedhof mit Portalwand 282 Anklamer Straße drei Erbbegräbnissen und Gräbern u. a. H.A. Riemann 284
                    Read more

                    Single-Malt-Whisky

                    Image
                    Fünf verschiedene schottische Single-Malt-Whiskys Als Single-Malt-Whisky oder kürzer Single Malt werden Whiskys bezeichnet, die zwei besondere Bedingungen erfüllen: Sie stammen zum ersten aus einer einzigen Brennerei, sind also kein Verschnitt aus mehreren Whiskysorten (daher Single , deutsch: einzeln). Zum zweiten wird als Getreide ausschließlich gemälzte Gerste verwendet (deswegen Malt , deutsch: Malz). Der Zusatz Single Malt wird als Prädikat verstanden, die so ausgezeichneten Whiskys sind in aller Regel besonders hochwertig. Hinzu kommt ihre besonders lange Lagerung, die Reifungszeit währt oft ein Jahrzehnt und länger. Inhaltsverzeichnis 1 Allgemeines 2 Herkunftsländer 2.1 Schottland 2.2 Irland 2.3 Japan 2.4 Kontinentaleuropa 3 Produktionsschritte 3.1 Mälzen 3.2 Brauen 3.3 Brennen 3.4 Reifung und Finish 3.5 Abfüllung 4 Altersangaben 5 Lagerung von Whiskyflaschen 6 Geschmacksklassifikation 7 Sonstig
                    Read more

                    Czorneboh

                    Image
                    Dieser Artikel erläutert den Berg Czorneboh, für die Gottheit siehe Czorneboh (Gottheit). Czorneboh Čornobóh Berggasthof mit Turm Höhe 555,7  m ü. NHN [1] Lage Freistaat Sachsen, Deutschland Gebirge Lausitzer Bergland Dominanz 15,4 km →  Kottmar Koordinaten 51° 7′ 11″  N , 14° 31′ 31″  O 51.119722222222 14.525194444444 555.7 Koordinaten: 51° 7′ 11″  N , 14° 31′ 31″  O Gestein Granodiorit Besonderheiten Aussichtsturm Czorneboh Der Czorneboh , obersorbisch Čornobóh , ist ein Berg zwischen Hochkirch und Cunewalde in der Oberlausitz. Er gehört zu der südöstlich von Bautzen gelegenen Czorneboh-Bergkette und ist mit einer Höhe von 555,7  m ü. NHN [1] der höchste Punkt dieses Ausläufers des Lausitzer Berglandes. Er leitet als Landschaftselement die wellige Granitlandschaft der Lausitzer Vorbergzone ein. Der Gipfel des Czorneboh liegt in der Gemarkung Meschwitz (Gemeinde Hochkirch), die Czornebohbaude jedoch
                    Read more