Re: more than 1 function with Plot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg50684] Re: more than 1 function with Plot3D
- From: mathma18 at hotmail.com (Narasimham G.L.)
- Date: Fri, 17 Sep 2004 01:15:48 -0400 (EDT)
- References: <ci3edp$e2f$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
"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