25 setxunit 7.5 setborder 90 setangle_repere 0 3 setxrange 0 3 setyrange .5 .5 settkstep .1 .1 setsubtkstep 1 1 setmkstep ticks subticks marks traceaxes axesarrow .75 setlinewidth continu bleu /X {settvar #rpn# e^(Sin (2*t)) } def /Y {settvar #rpn# e^(Cos (-t)) } def 0 2 pi mul {X} {Y} Courbeparam