Présentation de folium.jps

%% auteur : gh

400 setxunit
-0.7 0.8 setxrange
-0.7 0.7 setyrange

traceaxes
axesarrow

/O {0 0} def
16 setfontsize
setTimesItalic
   (O) O cltext

/X {setxvar x x 3 exp 1 add div} def
/Y {setxvar x x mul x 3 exp 1 add div} def

/X' {setxvar 1 2 x 3 exp mul sub x 3 exp 1 add 2 exp div} def
/Y' {setxvar x 2 x 3 exp sub mul x 3 exp 1 add 2 exp div} def

orange
1 setlinewidth
400 setresolution
-30 -1.01 settrange
{X} {Y} courbeparam
1 30 settrange
{X} {Y} courbeparam

1.7 setlinewidth
rouge
-0.99 1 settrange
{X} {Y} courbeparam

bleu
1 setlinewidth
0.2 settailletangente
0 (X)(Y) ptangente 
.5 ln 3 div Exp (X)(Y) ptangente 
1 (X)(Y) ptangente 
0 -0.333 -0.333 0 droite

noir
0.3 setlinewidth
mixte
0 0 1 1 droite

<tex>
$$ M((1/2)^{1/3}) $$
</tex>
.5 ln 3 div Exp X .5 ln 3 div Exp Y [1.3 1.3] crtexlabel
<tex>
$$ M(0) $$
</tex>
0 X 0 Y [1.3 1.3] drtexlabel
<tex>
$$ M(1) $$
</tex>
1 X 1 Y [1.3 1.3] urtexlabel