| Author |
Comment/Response |
lotti
|
 09/15/04 09:26am
Hi !
combine any graphics gri using Show[{gr1,gr2,..}]...
try this:
In[..]:=
Show[{
Plot3D[(x1 + 20)*x2 , {x1, 0, 30}, {x2, 0, 20},
DisplayFunction -> Identity],
Plot3D[2x1 + x2 - 20, {x1, 0, 30}, {x2, 0, 20},
DisplayFunction -> Identity],
Plot3D[2x2 + x2 - 60, {x1, 0, 30}, {x2, 0, 20},
DisplayFunction -> Identity],
Plot3D[(x1 + 20)*x2-800, {x1, 0, 30}, {x2, 0, 30},
DisplayFunction -> Identity]},
DisplayFunction -> $DisplayFunction,
AxesLabel -> {"x1", "x2", "Nutzen"}]
with kind regards,
lotti
URL: , |
|
