Re: Constraint visualization

*To*: mathgroup at smc.vnet.net*Subject*: [mg85793] Re: Constraint visualization*From*: stelmakris at gmail.com*Date*: Fri, 22 Feb 2008 07:22:28 -0500 (EST)*References*: <fpkvmq$hpm$1@smc.vnet.net>

On Feb 22, 12:58 am, NeilJ <neil... at gmail.com> wrote: > Hallo, > > I am brand new to Mathematica. I have acquired the program to assist > me in constraints/solution space visualization but the results I got > from my fiddling the past two weeks have been fairly disappointing. (I > must admit that I've elarnt a lot of wonderful new things but I am > still unable to carry out my initial objective.) > > If I can find out how to color all the faces/edges of the following > regionplot it will help me a lot. > > RegionPlot3D[ > Or[And[And[And[Fm <= 120/(8 - y), 8 - y >= 0], > Or[And[Fm <= 69.6/(2.4 + 2 x), x >= 0], > And[Fm <= 69.6/(2.4 - 2 x), x <= 0]]], > And[Or[And[Fm <= 69.6/(2.4 + 2 x), x >= 0], > And[Fm <= 69.6/(2.4 - 2 x), x <= 0]], And[Fm <= 112/y, y = > 0]]], > And[And[Fm <= 120/(8 - y), y < 0], > Or[And[Fm <= 69.6/(2.4 + 2 x), x >= 0], > And[Fm <= 69.6/(2.4 - 2 x), x <= 0]]], > And[And[Fm <= 112/y, y > 8], > Or[And[Fm <= 69.6/(2.4 + 2 x), x >= 0], > And[Fm <= 69.6/(2.4 - 2 x), x <= 0]]]], {x, -2.6, 2.6}, {y, -3, > 9.6}, {Fm, 0, 30}] > > Neil Jacobs It appears to be a simple body enclosed by the surfaces: Fm=0 x=-2.6 x=2.6 y=-3 y=9.6 Fm = 69.6/(2.4 + 2 x) Fm = 69.6/(2.4 - 2 x) Fm = 112/y Fm=120/(8-y) Is that correct ? Stellios