New answers tagged

1

In my opinion, this is not a problem that is easy to solve by reading the docs, because anything less than very thorough and careful reading of the docs on the subject of converting spherical to cartesian coordinates can easily lead the user astray. A casual reading of the docs will lead one to think map = CoordinateTransformData["Spherical" -> ...


3

Manipulate[ Graphics3D[{{Opacity[0.5], Sphere[]}, {EdgeForm[{Dashed, Red}], FaceForm[None], Cylinder[{{0, 0, -.001}, {0, 0, .001}}]}, {Dashed, Line[{{0, 0, 0}, {1, 0, 0}}]}, {Dashed, Line[{{0, 0, 0}, {0, 1, 0}}]}, {Dashed, Line[{{0, 0, 0}, {0, 0, 1}}]}, Arrow[{{1, 0, 0}, {1.3, 0, 0}}], Arrow[{{0, 1, 0}, {0, 1.3, 0}}], Arrow[{{0, 0, ...


4

reg1 = Disk[{0, 0}, 1]; reg2 = Disk[{1, 0}, 1]; Show[Graphics[{Opacity[0.5], {Red, reg1}, {Green, reg2}}],DiscretizeRegion[RegionIntersection[reg1, reg2]]]


9

Use RegionPlot for regions: reg1 = Disk[{0, 0}, 1]; reg2 = Disk[{1, 0}, 1]; reg3 = RegionIntersection[reg1, reg2]; RegionPlot[{reg1, reg2, reg3}, AspectRatio -> Automatic, BoundaryStyle -> None, PlotStyle -> Thread[Directive[Opacity[.5], {Red, Blue, Green}]]]



Top 50 recent answers are included