Gsyfuy

Can the Flaming Sphere spell be rammed into multiple Tiny creatures that are in the same 5-foot square?

How to save space when writing equations with cases?

AppleTVs create a chatty alternate WiFi network

How long can equipment go unused before powering up runs the risk of damage?

Is it possible for SQL statements to execute concurrently within a single session in SQL Server?

Can a sorcerer use careful spell on himself?

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

Crossing US/Canada Border for less than 24 hours

Amount of permutations on an NxNxN Rubik's Cube

Why do aircraft stall warning systems use angle-of-attack vanes rather than detecting airflow separation directly?

How many morphisms from 1 to 1+1 can there be?

Random body shuffle every night—can we still function?

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

Would it be easier to apply for a UK visa if there is a host family to sponsor for you in going there?

Google .dev domain strangely redirects to https

An adverb for when you're not exaggerating

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

What is an "asse" in Elizabethan English?

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

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

What do you call the main part of a joke?

preposition before coffee

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

Girl Hackers - Logic Puzzle

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

m_goldberg

88.9k873200

answered 1 hour ago

C. E.C. E.

51.2k3101207

edited 45 mins ago

m_goldberg

88.9k873200

edited 45 mins 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