12 votes

How to remove artifacts in Plot3D?

Plot3D[ArcTan[x/y] + ArcTan[y/x], {x, -1, 1}, {y, -1, 1}, Exclusions -> "Singularities"] To "close" the exclusions: ...
eldo's user avatar
  • 60.7k
10 votes

How to remove artifacts in Plot3D?

One possible way Plot3D[ArcTan[x/y] + ArcTan[y/x], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 50, MaxRecursion -> 4] You can play more with the values of ...
Nasser's user avatar
  • 142k
8 votes
Accepted

Visualizing the reverse pyramid in a good way

You can use RegionFunction and give it a region of interest over which you want to plot (ie. rotated square in your case). ...
Domen's user avatar
  • 21.9k
7 votes
Accepted

Problem with Epilog and GridLines

...
cvgmt's user avatar
  • 69.2k
7 votes

Generating vector plot with curved arrows

...
kglr's user avatar
  • 392k
7 votes
Accepted

Generating vector plot with curved arrows

Do you mean this result? ...
cvgmt's user avatar
  • 69.2k
6 votes
Accepted

Colouring Bifurcation Diagram

You can use ContourPlot to make such 1D bifurcation diagrams easily as in this answer, using ConditionalExpression to handle the ...
Chris K's user avatar
  • 20.1k
6 votes

How to remove artifacts in Plot3D?

You can state the exclusions manually too: Plot3D[ArcTan[x/y] + ArcTan[y/x], {x, -1, 1}, {y, -1, 1}, Exclusions -> {x == 0, y == 0}]
azerbajdzan's user avatar
  • 13.4k
5 votes

Visualizing the reverse pyramid in a good way

...
Syed's user avatar
  • 48.6k
5 votes

Marking circle centres with + and x

...
Syed's user avatar
  • 48.6k
4 votes

How to get a black transparent background in Plot3D?

This is just for changing the color. ...
azerbajdzan's user avatar
  • 13.4k
4 votes
Accepted

Determine numerical values for PlotRange when using Plotrange->All

sh = Show[surfplot, nvect, PlotRange -> All]; pr = AbsoluteOptions[sh, PlotRange] {PlotRange -> {{-1.25, 1.8}, {-1.17678, 1.17678}, {-0.25, 0.25}}} To ...
eldo's user avatar
  • 60.7k
4 votes
Accepted

Peak Appearances in Plot Outputs from Optimization Routines

Specify a WorkingPrecision for NMinimize to avoid using machine precision. ...
Bob Hanlon's user avatar
  • 155k
3 votes

How to get a black transparent background in Plot3D?

I will show how to find out how "Marketing" works. You can adopt and adapt its features to suit yourself. One can find how a plot theme works as follows: <...
Goofy's user avatar
  • 2,582
3 votes

How to get a black transparent background in Plot3D?

A shorter variant of azerbajdzan's answer ...
eldo's user avatar
  • 60.7k
3 votes

Marking circle centres with + and x

ocircle = Circle[{0, 2}, 2]; icircle = Circle[{0, 1}, 1]; To center the text objects at desired positions, you can use ...
kglr's user avatar
  • 392k
3 votes

Help with plotting solution curves to the Gompertz equation

This is what I get. Note, your latex and code do not match. I assumed it is the Latex which is correct. But what I get does not exactly match what you show. So I think your ode is still missing ...
Nasser's user avatar
  • 142k
2 votes
Accepted

Help with plotting solution curves to the Gompertz equation

Maybe ...
cvgmt's user avatar
  • 69.2k
1 vote

How to get a black transparent background in Plot3D?

Try ...
Ulrich Neumann's user avatar
1 vote
Accepted

How to evaluate conditional roots in ContourPlot3D?

OP's original code: ...
azerbajdzan's user avatar
  • 13.4k
1 vote

How to evaluate conditional roots in ContourPlot3D?

Try fun = Function[{r, rh}, Evaluate[Simplify[Veff'[r ]]]] ContourPlot[fun[r, rh] == 0, {r, 0.5, 2}, {rh, 0, 1.2}, FrameLabel -> {r, rh}] ...
Ulrich Neumann's user avatar
1 vote

How to label maximum and minimum points on a DateListPlot

Variation using TakeLargestBy, TakeSmallestBy and Callout: ...
Syed's user avatar
  • 48.6k

Only top scored, non community-wiki answers of a minimum length are eligible