Re: RegionPlot3d under sampling plot points?

*To*: mathgroup at smc.vnet.net*Subject*: [mg99461] Re: [mg99412] RegionPlot3d under sampling plot points?*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 6 May 2009 05:23:56 -0400 (EDT)*Reply-to*: hanlonr at cox.net

FullSimplify[Reduce[ {2 x (y - 1) <= 5/2 z + 2 (y - 1) z, z <= x, x >= 1, y >= 2, z >= 1}], {z <= x, x >= 1, y >= 2, z >= 1}] x == z || (z < x < (9*z)/4 && (5*x)/(z - x) + 4*y + 1 <= 0) || (4*x == 9*z && y == 2) Show[ Plot3D[x, {x, 1, 864000}, {y, 2, 500}, PlotStyle -> LightBlue], RegionPlot3D[(z < x < (9*z)/4 && (5*x)/(z - x) + 4*y + 1 <= 0), {x, 1, 864000}, {y, 2, 500}, {z, 1, 864000}, PlotStyle -> Lighter[Green]], ParametricPlot3D[{x, 2, 4 x/9}, {x, 1, 864000}, PlotStyle -> {AbsoluteThickness[3], Red}]] Bob Hanlon ---- gramathon <ermyasteshome at gmail.com> wrote: ============= Hi All, I am new to Mathematica, so apologies ahead of time if this is a silly problem. I am trying to use RegionPlot3D to plot the following, RegionPlot3D[ 2 x(y - 1) <= 2.5 z+ 2 (y - 1) z&& z<= x, {x, 1, 864000}, {y, 2, 500}, {z, 1, 864000}, PlotStyle -> Orange,PlotPoints- >100] The problem is I end up getting gaps in regions where I expect none to exist. - I tried increasing the PlotPoints.Though that reduces the number of gaps at first (partly removes the gaps for the higher values of NA and NP but gaps remain, in the lower values of the two axises) after a certain number of point >= PlotPoints -> 150the graph ends up looking completely different with Spikes everywhere and still has gaps which does not make sense....(I am not sure if this could be due to the graphics card because the above code is relatively smoother on my less powerful machine but still has gaps) - I tried providing different plotpoints to different axises E.g. PlotPoints-> {111,100,111}... but that did not seem to help either. - I tried MaxRecursion as well but that does not seem to help in this case either... I am completely lost, and have been spending quite a bit of time trying to search for an answer...WOULD REALLY APPRECIATE it if anyone could Help Thanks a bunch GUYS Version 7 of Mathematica