Re: AW: more question about plotting
- To: mathgroup at smc.vnet.net
- Subject: [mg49068] Re: AW: more question about plotting
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 30 Jun 2004 05:34:14 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <cbokbj$495$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Needs["Calculus`Integration`"]
Plot3D[
(x + y)*Boole[y < 10 && y < 15 - 3x/5 && y > -3 + 3x/5],
{x, -1, 15},
{y, -5, 15},
PlotPoints -> 60
]
Plot3D[
{(x + y),
RGBColor[Boole[y < 10 && y < 15 - 3x/5 && y > -3 + 3x/5], 1, 1]},
{x, -1,
15}, {y, -5, 15}, PlotPoints -> 60]
Block[{$DisplayFunction = Identity},
lst = Join[{Plot3D[
(x + y), {x, -1, 15}, {y, -5, 15}, Mesh -> False]},
ParametricPlot3D[#, {x, -1, 15}] & /@ ( {x,
y, (x + y) +
0.01} /. ({ y -> # } & /@ {10, 15 - 3x/5, -3 +
3x/5}))]
];
Show[lst]
Regards
Jens
Ron Haus wrote:
>
> Okay, how about this?
>
> Topic: linear Optimization
>
> I'm looking for a solution in graphic form, therefore, draw the main
> function (e.g. f(x,y):=x+y) and all the constrains (e.g. f1(x):=10,
> f2(x):=15-3x/5, f3(x):=-3+3x/5) in the same 3D Plot. The constraints should
> be displayed one the surface of the main function (and/or on the
> button(x-y-axis). If I could highlight the surrounded area, it would be
> perfect.
> Any idea?
>
> Here you can see what I mean:
> http://home.arcor.de/ronhaus/
>
> also as a PDF
> http://home.arcor.de/neuendorf2000/MathCAD.pdf
>
> THX
>
> -----Ursprüngliche Nachricht-----
> Von: Steven M. Christensen [mailto:steve at smc.vnet.net]
> Gesendet: Freitag, 25. Juni 2004 23:51
> An: ronhaus at arcor.de
> Betreff: Re: more question about plotting
>
> It is a strict rule of this mailing list that we do not
> discuss other systems like MathCAD.
>
> Moderator
>
> I used to work with MathCAD 11 (ger) and now try to do the same stuff in
> Mathematica (since it is supposed to be better ;)
>
> But, it is way harder than MathCAD....
>
> Here is what I did in MathCAD (but can't in Mathematica)
> http://home.arcor.de/ronhaus/
>
> also as a PDF
> http://home.arcor.de/neuendorf2000/MathCAD.pdf
>
> May someone help me out getting "linear optimization" done in mathematica
> (especially the plotting)?
>
> THX