Ttdfjt

Compiling and throwing simple dynamic exceptions at runtime for JVM

Kepler's 3rd law: ratios don't fit data

What's the difference between using dependency injection with a container and using a service locator?

Why is one lightbulb in a string illuminated?

How to leave only the following strings?

Why do C and C++ allow the expression (int) + 4*5?

false 'Security alert' from Google - every login generates mails from 'no-reply@accounts.google.com'

Is there a verb for listening stealthily?

How can I introduce the names of fantasy creatures to the reader?

Protagonist's race is hidden - should I reveal it?

Can I take recommendation from someone I met at a conference?

Can this water damage be explained by lack of gutters and grading issues?

Why isn't everyone flabbergasted about Bran's "gift"?

Weaponising the Grasp-at-a-Distance spell

Like totally amazing interchangeable sister outfit accessory swapping or whatever

When speaking, how do you change your mind mid-sentence?

Married in secret, can marital status in passport be changed at a later date?

Etymology of 見舞い

What helicopter has the most rotor blades?

Why did Bronn offer to be Tyrion Lannister's champion in trial by combat?

“Since the train was delayed for more than an hour, passengers were given a full refund.” – Why is there no article before “passengers”?

Putting Ant-Man on house arrest

How to mute a string and play another at the same time

2 sample t test for sample sizes - 30,000 and 150,000

Dynamic filling of a region of a polar plot

6

1

$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 Apr 20 at 1:56

Okkes Dulgerci

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

$endgroup$

add a comment | 

6

1

$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 Apr 20 at 1:56

Okkes Dulgerci

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

$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 Apr 20 at 1:56

Okkes Dulgerci

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

$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 Apr 20 at 1:56

Okkes Dulgerci

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

share|improve this question

edited Apr 20 at 1:56

Okkes Dulgerci

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

asked Apr 19 at 23:46

Okkes DulgerciOkkes Dulgerci

5,5261919

1 Answer
1

active

oldest

votes

5

$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 2 days ago

m_goldberg

89k873200

answered 2 days ago

C. E.C. E.

51.4k3101207

$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

5

$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 2 days ago

m_goldberg

89k873200

answered 2 days ago

C. E.C. E.

51.4k3101207

$endgroup$

add a comment | 

5

$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 2 days ago

m_goldberg

89k873200

answered 2 days ago

C. E.C. E.

51.4k3101207

$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 2 days ago

m_goldberg

89k873200

answered 2 days ago

C. E.C. E.

51.4k3101207

$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 2 days ago

m_goldberg

89k873200

answered 2 days ago

C. E.C. E.

51.4k3101207

edited 2 days ago

m_goldberg

89k873200

edited 2 days ago

m_goldberg

89k873200

answered 2 days ago

C. E.C. E.

51.4k3101207

answered 2 days ago

C. E.C. E.

51.4k3101207