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: more than 1 function with Plot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50843] Re: more than 1 function with Plot3D
  • From: mathma18 at hotmail.com (Narasimham G.L.)
  • Date: Thu, 23 Sep 2004 05:27:28 -0400 (EDT)
  • References: <ci3edp$e2f$1@smc.vnet.net> <cidtco$bt3$1@smc.vnet.net> <cih0lg$mk$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

"Ron" <ronhaus at arcor.de> wrote in message news:<cih0lg$mk$1 at smc.vnet.net>...
> But the 'Nutzenfunktion" is supposed to be a 3d plot (and not a plane one) 
> and the other 2d function on that surface. I believe I have to use 
> ParametricPlot3D combined with Show...

You can also 2D plot using different values of constant (instead of
0), for example,
NutzFunkt = 120 == (x1 + 20)*x2;

> 
> "Narasimham G.L." <mathma18 at hotmail.com> schrieb im Newsbeitrag 
> news:cidtco$bt3$1 at smc.vnet.net...
> > "Ron" <ronhaus at arcor.de> wrote in message 
> > news:<ci3edp$e2f$1 at smc.vnet.net>...
> >> u(x1,x2) = (x1+20)*x2 (main function)             ->Nutzenfunktion
> >> 20 = 2x1 + x2                                     ->Budgetgeraden
> >> 60 = 2x2 + x2                                     ->Budgetgeraden
> >>
> >> 800 = (x1+20)*x2                                  -> Indifferenzkurve
> >
> > Jawohl,moeglich. But with a fresh Kernel.(See other post, Can't get 
> > graph...)
> >
> > << Graphics`ImplicitPlot`
> > NutzFunkt = 0 == (x1 + 20)*x2;
> > BG1 = 20 == 2x1 + x2;
> > BG2 = 60 == 2x2 + x1;
> > IndiffK = 0 == x2 (x1 + 20) - 800 ;
> > VWL = ImplicitPlot[{NutzFunkt, BG1, BG2, IndiffK}, {x1, -100, 100}, 
> > {x2, -100,
> >       100}];
> > Cheers
> >


  • Prev by Date: Re: How to simplify to a result that is real
  • Next by Date: Implicit plot variations
  • Previous by thread: Re: more than 1 function with Plot3D
  • Next by thread: Simplify[ {Re[Sqrt[-1 + eta^2]], Im[Sqrt[-1 + eta^2]]}, eta<1]