Re: thanks
- To: mathgroup at smc.vnet.net
- Subject: [mg94503] Re: thanks
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Mon, 15 Dec 2008 07:43:58 -0500 (EST)
- Organization: The Open University, Milton Keynes, UK
- References: <gi2upa$a1h$1@smc.vnet.net>
alberto gonzalez wrote:
<snip>
> q1:i tried to plot the function y=4x-6/3-2x but in the space=C2 using t=
> he function=C2 Plot3D but it didnt worked.the best i ve gotten is this :
> Plot[PieceWise[{{((4 x-6)/(3-2 x)),-5<x<1.4},{0(hereis empty set symbol),1.=
> 5<x<1.5},{(((4 x)-6/(3-2 x)),1,6<x<5}}],{x,-5,5},{y,,-5,5},AxesLabel->{"x",=
> "y","z"}].
> as you=C2 see its=C2 "to force" the graphic.could any=C2 you tell if =
> theres a=C2 more "mathematical" way to plot=C2 this discontinuity in th=
> e space?
<snip>
Not sure whether this is what you are looking for (your mail is hard to
decipher):
Plot3D[
Piecewise[
{{((4 x - 6)/(3 - 2 x)), -5 < x < 1.5},
{((4 x) - 6/(3 - 2 x)), 1.5 < x < 5}}],
{x, -5, 5}, {y, -5, 5}, AxesLabel -> {"x", "y", "z"}]
Plot3D[
Piecewise[
{{((4 x - 6)/(3 - 2 x)), -5 < x < 1.5},
{((4 x - 6)/(3 - 2 x)), 1.5 < x < 5}}],
{x, -5, 5}, {y, -5, 5}, AxesLabel -> {"x", "y", "z"},
Exclusions -> {x == 3/2},
ExclusionsStyle -> Directive[Opacity[0.5], Red], Mesh -> None]
Regards,
-- Jean-Marc