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

Re: more than 1 function with Plot3D

• To: mathgroup at smc.vnet.net
• Subject: [mg50717] Re: more than 1 function with Plot3D
• From: "Ron" <ronhaus at arcor.de>
• Date: Sat, 18 Sep 2004 05:48:04 -0400 (EDT)
• Organization: Westfälische Wilhelms-Universität Münster
• References: <ci3edp$e2f$1@smc.vnet.net> <cidtco$bt3$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

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...


"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
>