Ryfujk

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

Significance of Cersei's obsession with elephants?

Is there hard evidence that the grant peer review system performs significantly better than random?

As Singapore Airlines (Krisflyer) Gold, can I bring my family into the lounge on a domestic Virgin Australia flight?

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

How to write capital alpha?

What do you call the main part of a joke?

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

What is best way to wire a ceiling receptacle in this situation?

Why are vacuum tubes still used in amateur radios?

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

Converted a Scalar function to a TVF function for parallel execution-Still running in Serial mode

What's the difference between the capability remove_users and delete_users?

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

What to do with repeated rejections for phd position

Getting prompted for verification code but where do I put it in?

Most bit efficient text communication method?

Trademark violation for app?

How did Fremen produce and carry enough thumpers to use Sandworms as de facto Ubers?

What is the meaning of 'breadth' in breadth first search?

Sum letters are not two different

Random body shuffle every night—can we still function?

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

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

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

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

edited 2 hours ago

Okkes Dulgerci

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

$endgroup$

add a comment | 

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

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

edited 2 hours ago

Okkes Dulgerci

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

$endgroup$

add a comment | 

$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}]]

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

edited 2 hours ago

Okkes Dulgerci

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

$endgroup$

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

share|improve this question

edited 2 hours ago

Okkes Dulgerci

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

share|improve this question

edited 2 hours ago

Okkes Dulgerci

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

asked 4 hours ago

Okkes DulgerciOkkes Dulgerci

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

share|improve this answer

edited 1 hour ago

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

$endgroup$

add a comment | 

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

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

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

share|improve this answer

edited 1 hour ago

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

$endgroup$

add a comment | 

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

share|improve this answer

edited 1 hour ago

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

$endgroup$

add a comment | 

$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}]

share|improve this answer

edited 1 hour ago

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

$endgroup$

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

share|improve this answer

edited 1 hour ago

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

edited 1 hour ago

m_goldberg

88.9k873200

edited 1 hour ago

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

answered 1 hour ago

C. E.C. E.

51.2k3101207