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

-----------------------------------------------------------------
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0Hans Hagen | PRAGMA ADE
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Ridderstraat 27 | 80= 61 GH Hasselt | The Netherlands
=C2=A0 =C2=A0 =C2=A0 =C2=A0 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 t= he Wiki!

maillist : ntg-cont= ext@ntg.nl / http://www.ntg.nl/mailman/listinfo/nt= g-context
webpage=C2=A0 : http://www.pragma-ade.nl / http://context.aanhet.net=
archive=C2=A0 : https://bitbucket.org/phg/context-m= irror/commits/
wiki=C2=A0 =C2=A0 =C2=A0: http://contextgarden.net
___________________________________________________________________________= ________

Hi,

<= div>

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

I had the possibility to try out some contour graphics on a freshly up= dated 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 exampl= e (orange) not match with the result from Mathematica (orange)? (I think I = do something wrong)=C2=A0

2) Is there a way to combine the two co= ntour plots in one MetaFun drawing? If I add them both to the same, only th= e last one shows. If I try functions=3D{"-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=3D3bp,instance=3Ddouble= fun]
draw lmt_contour [
xmin=3D-5,
xmax=3D5,
ymin=3D-5,
ymax= =3D5,
xstep=3D0.01,
ystep=3D0.01,
range=3D{0},
levels=3D1,
f= unction=3D"-4+x^2+x^5+15*y-y^2-10*x^3*y^2+5*x*y^4",
linecolor= =3D"darkblue",
linewidth=3D1,
legend=3Dfalse,
cache=3Dtr= ue,
] =C2=A0xsized 10cm ;
\stopMPpage

\startMPpage[offset=3D3b= p,instance=3Ddoublefun]
draw lmt_contour [
xmin=3D-5,
xmax=3D5,ymin=3D-5,
ymax=3D5,
xstep=3D0.01,
ystep=3D0.01,
range=3D{0},<= br>levels=3D1,
function=3D"-15*x+2*x*y+5*x^4*y-10*x^2*y^3+y^5"= ,
linecolor=3D"orange",
linewidth=3D1,
legend=3Dfalse,cache=3Dtrue,
] =C2=A0xsized 10cm ;
\stopMPpage

\startbuffer= [mmainput]
ContourPlot[
=C2=A0{-4+x^2+x^5+15y-y^2-10x^3y^2+5x*y^4 =3D= =3D 0,
=C2=A0 -15x+2x*y+5*x^4*y-10x^2*y^3+y^5 =3D=3D 0},
=C2=A0 {x, -= 5, 5}, {y, -5, 5}, Frame -> False]
\stopbuffer
\startTEXpage[offse= t=3D2bp]
\typebuffer[mmainput]

\externalfigure[mathematicaplot][w= idth=3D10cm]
\stopTEXpage
\stoptext

=C2=A0