Skip to main content
Mathematica

Return to Answer

added picture
Source Link
cormullion
cormullion
  • 24.3k
  • 4
  • 64
  • 136

I don't know what's meant by "good" or "well", but, on the assumption that it means "like a 1970s retro wallpaper design", here's a suggestion:

retro

ContourPlot[Csc[1. - x^2] Cot[2. - y^2] - x y,
 {x, -2 Pi, 2 Pi},
 {y, -2 Pi, 2 Pi},
 ColorFunction -> "AvocadoColors",
 Frame -> None,
 MaxRecursion -> 3,
 PlotRangePadding -> None,
 Background -> Purple,
 PlotPoints -> 60]

Edit: using @whuber's excellent analysis, the design is improved - perhaps harking back to 1960's op art. (And it doesn't take 45 minutes to generate.)

retro 2

I don't know what's meant by "good" or "well", but, on the assumption that it means "like a 1970s retro wallpaper design", here's a suggestion:

retro

ContourPlot[Csc[1. - x^2] Cot[2. - y^2] - x y,
 {x, -2 Pi, 2 Pi},
 {y, -2 Pi, 2 Pi},
 ColorFunction -> "AvocadoColors",
 Frame -> None,
 MaxRecursion -> 3,
 PlotRangePadding -> None,
 Background -> Purple,
 PlotPoints -> 60]

I don't know what's meant by "good" or "well", but, on the assumption that it means "like a 1970s retro wallpaper design", here's a suggestion:

retro

ContourPlot[Csc[1. - x^2] Cot[2. - y^2] - x y,
 {x, -2 Pi, 2 Pi},
 {y, -2 Pi, 2 Pi},
 ColorFunction -> "AvocadoColors",
 Frame -> None,
 MaxRecursion -> 3,
 PlotRangePadding -> None,
 Background -> Purple,
 PlotPoints -> 60]

Edit: using @whuber's excellent analysis, the design is improved - perhaps harking back to 1960's op art. (And it doesn't take 45 minutes to generate.)

retro 2

Source Link
cormullion
cormullion
  • 24.3k
  • 4
  • 64
  • 136

I don't know what's meant by "good" or "well", but, on the assumption that it means "like a 1970s retro wallpaper design", here's a suggestion:

retro

ContourPlot[Csc[1. - x^2] Cot[2. - y^2] - x y,
 {x, -2 Pi, 2 Pi},
 {y, -2 Pi, 2 Pi},
 ColorFunction -> "AvocadoColors",
 Frame -> None,
 MaxRecursion -> 3,
 PlotRangePadding -> None,
 Background -> Purple,
 PlotPoints -> 60]