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