On Fri, Oct 4, 2019 at 6:11 PM Hans Hagen <j.hagen@xs4all.nl> wrote:

> Hi,
>
> I uploaded a new lmtx beta. Again some more metafun trickery (see
> luametafun manual). I attached an (lmtx only) example of some experiment
> code, dedicated to Alan Braslau (teacher among other things).
>
> Hans
>
> -----------------------------------------------------------------
>                                            Hans Hagen | PRAGMA ADE
>                Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>         tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
> -----------------------------------------------------------------
>
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to
> the Wiki!
>
> maillist : ntg-context@ntg.nl /
> http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
> archive  : https://bitbucket.org/phg/context-mirror/commits/
> wiki     : http://contextgarden.net
>
> ___________________________________________________________________________________
>


Hi,

I read the new manual with a great joy! This is really nice improvements of
MetaFun! I also like the 3D plots!

I had the possibility to try out some contour graphics on a freshly updated
system. I have two questions:

1) I think the first (blue) plot looks fine and it looks like it could be
the same curve as the blue one in the Mathematica plot (page 3). Why does
my second example (orange) not match with the result from Mathematica
(orange)? (I think I do something wrong)
2) Is there a way to combine the two contour plots in one MetaFun drawing?
If I add them both to the same, only the last one shows. If I try
functions={"-4+x^2+x^5+15*y-y^2-10*x^3*y^2+5*x*y^4","-15*x+2*x*y+5*x^4*y-10*x^2*y^3+y^5"}
it does not show both either.

/Mikael

Test document (output was too big to attach (sorry if it came through to
someone), so I put it at http://www.maths.lth.se/~mickep/polynomnoll.pdf )

\starttext
\startMPpage[offset=3bp,instance=doublefun]
draw lmt_contour [
xmin=-5,
xmax=5,
ymin=-5,
ymax=5,
xstep=0.01,
ystep=0.01,
range={0},
levels=1,
function="-4+x^2+x^5+15*y-y^2-10*x^3*y^2+5*x*y^4",
linecolor="darkblue",
linewidth=1,
legend=false,
cache=true,
]  xsized 10cm ;
\stopMPpage

\startMPpage[offset=3bp,instance=doublefun]
draw lmt_contour [
xmin=-5,
xmax=5,
ymin=-5,
ymax=5,
xstep=0.01,
ystep=0.01,
range={0},
levels=1,
function="-15*x+2*x*y+5*x^4*y-10*x^2*y^3+y^5",
linecolor="orange",
linewidth=1,
legend=false,
cache=true,
]  xsized 10cm ;
\stopMPpage

\startbuffer[mmainput]
ContourPlot[
 {-4+x^2+x^5+15y-y^2-10x^3y^2+5x*y^4 == 0,
  -15x+2x*y+5*x^4*y-10x^2*y^3+y^5 == 0},
  {x, -5, 5}, {y, -5, 5}, Frame -> False]
\stopbuffer
\startTEXpage[offset=2bp]
\typebuffer[mmainput]

\externalfigure[mathematicaplot][width=10cm]
\stopTEXpage
\stoptext