Constraint visualization
- To: mathgroup at smc.vnet.net
- Subject: [mg85767] Constraint visualization
- From: NeilJ <neiljac at gmail.com>
- Date: Thu, 21 Feb 2008 18:04:02 -0500 (EST)
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