User Portlet
| Discussions |
|---|
| Upon reading that 46P/Wirtanen will be closer to Earth than it has been (or will be) in centuries, despite having an orbital period of under 6 years, I was curious to see a picture of its orbital path superimposed with Earth's. Here is a simple... |
| I'm looking for an alternative to the PlotPoints->6 option within Tube, because it is an undocumented option that may cease to work in future versions of Mathematica. If someone can tell me that this option will continue to work, I am happy to accept... |
| But that is still in two pieces: ConnectedMeshComponents[exp] Here's another approach: Use RegionPlot3D to make a *solid* version of the region, and then discretize and use RegionBoundary to leave just the boundary surface: solid =... |
| Ok, the code below seems to work. Any tips for improvement are welcome! With[{epsilon = .1}, s1 = ImplicitRegion[x^2 + y^2 = 1 - epsilon, {x, y}]; s = RegionIntersection[s1, s2]]; washerSolid = DiscretizeRegion[ ... |
| Simon, Sean: Thanks! |
| The cover image will show an Ulam spiral with the twin primes highlighted. It's actually a Graphics3D -- a pyramid viewed from above. The code is below for those who wish to play with it. NOTE: This appeared at the end of another discussion... |
| Here's the code. The cover image used m=20, and the final ImageSize was set to 5200 (the highest value I could get without risking a crash). I exported the image as a PNG, and used Photoshop's shift-tilt filter to introduce the blurred edges. I could... |