Hfrxdjt

How to write capital alpha?

What makes a man succeed?

Sum letters are not two different

Dynamic filling of a region of a polar plot

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

How often does castling occur in grandmaster games?

What order were files/directories output in dir?

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

Intuitive explanation of the rank-nullity theorem

Why are vacuum tubes still used in amateur radios?

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

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

What initially awakened the Balrog?

Why weren't discrete x86 CPUs ever used in game hardware?

Girl Hackers - Logic Puzzle

preposition before coffee

In musical terms, what properties are varied by the human voice to produce different words / syllables?

Why is it faster to reheat something than it is to cook it?

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

1-probability to calculate two events in a row

What does this say in Elvish?

What does 丫 mean? 丫是什么意思？

Is there any word for a place full of confusion?

How much damage would a cupful of neutron star matter do to the Earth?

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 1 hour ago

Okkes Dulgerci

asked 3 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 1 hour ago

Okkes Dulgerci

asked 3 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 1 hour ago

Okkes Dulgerci

asked 3 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 1 hour ago

Okkes Dulgerci

asked 3 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

share|improve this question

edited 1 hour ago

Okkes Dulgerci

asked 3 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

asked 3 hours ago

Okkes DulgerciOkkes Dulgerci

5,4641919

asked 3 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 28 mins ago

m_goldberg

88.9k873200

answered 49 mins 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 28 mins ago

m_goldberg

88.9k873200

answered 49 mins 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 28 mins ago

m_goldberg

88.9k873200

answered 49 mins 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 28 mins ago

m_goldberg

88.9k873200

answered 49 mins 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 28 mins ago

m_goldberg

88.9k873200

answered 49 mins ago

C. E.C. E.

51.2k3101207

edited 28 mins ago

m_goldberg

88.9k873200

edited 28 mins ago

m_goldberg

88.9k873200

answered 49 mins ago

C. E.C. E.

51.2k3101207

answered 49 mins ago

C. E.C. E.

51.2k3101207