-1.6 2.5 setxrange
-1.4 2.2 setyrange
60 setxunit
90 setangle_repere

traceaxes
axesarrow
 
/O{0 0} def
/cerc{O 1} def

/f {setxvar
#rpn#   0.57735*x
} def

gsave
   noir
   0.5 setlinewidth
   continu
0  2.5 {f} Courbe
grestore


/X {1 0} def
/Y {0 1} def
/Z {-1 0} def
/T {0 -1} def
/U {1 1} def
/V {1 1} def
/P {30 cerc cpoint} def
/A {X U O P interdroite} def
/B {O P Y V interdroite} def
/M {P X O orthoproj} def
/C {P O Y orthoproj} def
[A B X Y Z T P M C] points

cerc cercle
X O P 0.4 (->) tripointarcarrow
gsave
pointilles
[-1.5 1 2.4 1] ligne
[1 -1.4 1 1.9] ligne
[P M] ligne
[P C] ligne
grestore

<latex>
$x$
</latex>
0.4 0.15 [1.4 dup] crtexlabel


<latex>
$u$
</latex>
2.5 0 [1.4 dup] dltexlabel

<latex>
$v$
</latex>
0 2.1 [1.4 dup] crtexlabel

%<latex>
%$1$
%</latex>
%0 1.3 [1.4 dup] urtexlabel

<latex>
$A$
</latex>
A [1.4 dup] drtexlabel

<latex>
$O$
</latex>
-0.1 0.03 [1.4 dup] dctexlabel

<latex>
$B$
</latex>
B [1.4 dup] drtexlabel

<latex>
$M$
</latex>
1 0 [1.4 dup] dltexlabel

<latex>
$C$
</latex>
C [1.4 dup] cltexlabel

<latex>
$P_1$
</latex>
X [1.4 dup] drtexlabel

<latex>
$P_2$
</latex>
Y [1.4 dup] ultexlabel

<latex>
$P_3$
</latex>
Z [1.4 dup] ultexlabel

<latex>
$P_4$
</latex>
T [1.4 dup] dltexlabel

<latex>
$P(u,v)$
</latex>
1 0.5 [1.2 dup] ultexlabel