Arsthbt

What does this say in Elvish?

AppleTVs create a chatty alternate WiFi network

Why can't I install Tomboy in Ubuntu Mate 19.04?

Amount of permutations on an NxNxN Rubik's Cube

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

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

Is there public access to the Meteor Crater in Arizona?

Do wooden building fires get hotter than 600°C?

What would you call this weird metallic apparatus that allows you to lift people?

How often does castling occur in grandmaster games?

How to report t statistic from R

How would a mousetrap for use in space work?

Misunderstanding of Sylow theory

Why are vacuum tubes still used in amateur radios?

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

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

An adverb for when you're not exaggerating

What is the difference between a "ranged attack" and a "ranged weapon attack"?

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

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

Is multiple magic items in one inherently imbalanced?

Significance of Cersei's obsession with elephants?

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

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

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