-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
$x$
0.4 0.15 [1.4 dup] crtexlabel
$u$
2.5 0 [1.4 dup] dltexlabel
$v$
0 2.1 [1.4 dup] crtexlabel
%
%$1$
%
%0 1.3 [1.4 dup] urtexlabel
$A$
A [1.4 dup] drtexlabel
$O$
-0.1 0.03 [1.4 dup] dctexlabel
$B$
B [1.4 dup] drtexlabel
$M$
1 0 [1.4 dup] dltexlabel
$C$
C [1.4 dup] cltexlabel
$P_1$
X [1.4 dup] drtexlabel
$P_2$
Y [1.4 dup] ultexlabel
$P_3$
Z [1.4 dup] ultexlabel
$P_4$
T [1.4 dup] dltexlabel
$P(u,v)$
1 0.5 [1.2 dup] ultexlabel