Hjdcti

Is multiple magic items in one inherently imbalanced?

A term for a woman complaining about things/begging in a cute/childish way

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

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

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

Strange behavior of Object.defineProperty() in JavaScript

How would a mousetrap for use in space work?

Do I really need to have a message in a novel to appeal to readers?

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

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

Misunderstanding of Sylow theory

Do wooden building fires get hotter than 600°C?

Random body shuffle every night—can we still function?

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

Is there any word for a place full of confusion?

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

AppleTVs create a chatty alternate WiFi network

Amount of permutations on an NxNxN Rubik's Cube

How many time has Arya actually used Needle?

Trademark violation for app?

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

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

Did Mueller's report provide an evidentiary basis for the claim of Russian govt election interference via social media?

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 23 mins ago

m_goldberg

88.9k873200

answered 44 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 23 mins ago

m_goldberg

88.9k873200

answered 44 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 23 mins ago

m_goldberg

88.9k873200

answered 44 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 23 mins ago

m_goldberg

88.9k873200

answered 44 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 23 mins ago

m_goldberg

88.9k873200

answered 44 mins ago

C. E.C. E.

51.2k3101207

edited 23 mins ago

m_goldberg

88.9k873200

edited 23 mins ago

m_goldberg

88.9k873200

answered 44 mins ago

C. E.C. E.

51.2k3101207

answered 44 mins ago

C. E.C. E.

51.2k3101207