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