Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Clarification [Overlay graphs ]
  • Next by Date: Re: one question about draw graph in frame
  • Previous by thread: AW: more question about plotting
  • Next by thread: PlotLabel with assigned variables *and* on several lines