Re: ImplicitPlot errors

• To: mathgroup at smc.vnet.net
• Subject: [mg75097] Re: ImplicitPlot errors
• From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
• Date: Mon, 16 Apr 2007 20:21:11 -0400 (EDT)
• Organization: The Open University, Milton Keynes, UK
• References: <evvbfs\$9q5\$1@smc.vnet.net>

```David Rees wrote:
> Hi,
>
> I've been trying to get ImplicitPlot to plot an implicit function (naturally
> ;) ), but it throws errors to cryptic for me, even when copying and pasting
> from the Mathematica function reference.
>
> In[40]:= ImplicitPlot[{x^2 + x*y + y^2 == 7, y == 2*Sqrt[7/3]}, {x, -5, 5}]
>
> ImplicitPlot::var :
>
> Equation x^2+x
> Function[x,x^2+2xy-3y^2-16]+Function[x,x^2+2xy-3<<1>>-16]^2==7 does not have
> a single variable other than x
>
> ImplicitPlot::var :
>
> Equation Function[x,x^2+2xy-3y^2-16]==2Sqrt(7/3) does not have a single
> variable other than x
>
> Out[40]:=\!\(ImplicitPlot[{x\^2 + x\ Function[x, x\^2 + 2\
>           xy - 3\ y\^2 - 16] + Function[
>               x, x\^2 + 2\ xy - 3\ y\^2 - 16]\^2 == 7, Function[x, x\^2 + 2\
>               xy - 3\ y\^2 - 16] == 2\ \@\(7\/3\), x == 2\ \@\(7\/3\)}, {x,
> \
> \(-5\), 5}, {Function[x, x\^2 + 2\ xy - 3\ y\^2 - 16], \(-5\), 5}]\)
>
>
>
> What am I doing wrong? Even ImplicitPlot[x+y==2,{x,-4,4}] fails.
>
> Thanks

You must have written (or loaded) some conflicting definitions before
using *ImplicitPlot*. Try a fresh session. The following works fine on
my system:

In[1]:=
Remove[ImplicitPlot, x, y]
Needs["Graphics`ImplicitPlot`"]
ImplicitPlot[{x^2 + x*y + y^2 == 7, y == 2*Sqrt[7/3]}, {x, -5, 5}]
ImplicitPlot[x + y == 2, {x, -4, 4}]

(* A straight line and a ellipse are plotted *)
Out[3]=
â??Graphicsâ??

(* A inclined straight line is plotted *)
Out[4]=
â??Graphicsâ??

Regards,
Jean-Marc

```

• Prev by Date: Re: differentiate a function of a function
• Next by Date: Re: our good (?!) friend RootSum
• Previous by thread: Re: ImplicitPlot errors
• Next by thread: Re: ImplicitPlot errors