User Portlet
| Discussions |
|---|
| Thanking everybody for the excellent effort. |
| Thank you very much Hans Milton for linking me to that nice demonstration, but I want to tinker with to see if Mathematica can be manipulated so as to find and or solve for the intersection of a RevolutionPlot3D and Graphics3D Polygon. |
| Show[Plot[3 x^2 + 2 x - 4, {x, -3, 5}, PlotRange -> {{-4, 6}, {-10, 85}}], AxesLabel -> {"x-axis", "y-axis"}, Epilog -> {PointSize[Medium], Red, Point[{{-3, 3 ((-3)^2) + 2 (-3) - 4}, {5, 3 ((5)^2) + 2... |
| Nice one there as usual |
| Graph[{1 \[UndirectedEdge] 2, 2 \[UndirectedEdge] 3, 3 \[UndirectedEdge] 1}, EdgeStyle -> {1 \[UndirectedEdge] 2 -> Directive[Opacity[1], Thickness[0.02], Red], 2 \[UndirectedEdge] 3 -> ... |
| Clear[x]; Plot[x (x - 3) (x + 3), {x, -5, 5}, PlotRange -> {{-5, 5}, {-20, 20}}] |
| Thanking every one for the try |