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: [mg50630] Re: more than 1 function with Plot3D
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Wed, 15 Sep 2004 01:49:23 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <ci3edp$e2f$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,


constr = {20 == 2x1 + x2,
60 == 2x2 + x2,
    800 == (x1 + 20)*x2};

sol = Solve[#, x2][[1]] & /@ constr;
obj = (x1 + 20)x2;

grobj = Plot3D[Evaluate[obj], {x1, 0, 30}, {x2, 0, 30}, 
    AxesLabel -> {"x1", "x2", "Nutzen"},DisplayFunction -> Identity]

grlst = ParametricPlot3D[{x1, x2, (x1 + 20)x2 + 1} /. #, {x1, 0, 30}, 
        DisplayFunction -> Identity] & /@ sol;

Show[grobj, Sequence @@ grlst, DisplayFunction -> $DisplayFunction]

??

Regards
  Jens

Ron wrote:
> 
> Hi,
> I would like to plot the functions
> 
> u(x1,x2) = (x1+20)*x2 (main function)    ->Nutzenfunktion
> 
> 20 = 2x1 + x2                                        ->Budgetgeraden
> 60 = 2x2 + x2                                        ->Budgetgeraden
> 
> 800 = (x1+20)*x2                                    -> Indifferenzkurve
> 
> (Volkswirtschaftslehre VWL)
> 
> Is it somehow possible, I'd like to have all functions in one graph.
> 
> So far:
> Plot3D[(a + 20)b, {a, 0, 30}, {b, 0, 30}, AxesLabel -> {"x1", "x2",
> "Nutzen"}]
> 
> THX


  • Prev by Date: Plot[f, {x,a,b] vs Plot[{f},[x,a,b]
  • Next by Date: Re: Simplify[ {Re[Sqrt[-1 + eta^2]], Im[Sqrt[-1 + eta^2]]}, eta<1]
  • Previous by thread: Re: more than 1 function with Plot3D
  • Next by thread: Re: more than 1 function with Plot3D