marks
-6 10 setxrange
-6 10 setyrange
quadrillage
.7 setlinewidth
tracerepere
%% on se donne un cercle et une droite
/I {3 1} def
/C {I 5} def
/d {O 3 -4} def
%% on cherche les tangentes au cercle paralleles a la droite donnee
d I perp /d' defdroite
d' C interdroitecercle /A defpoint /B defpoint
d A paral /d1 defdroite
d B paral /d2 defdroite
[I A B] points
C cercle
[d d1 d2] {droite} dapply
I d1 angledroit
I d2 angledroit
pointilles
d' droite
setTimesItalic
(I) I ultext
setSymbol
(D) -4.3 6 urtext
(D) -5 2 drtext
(1) indice
(D) 5 7 urtext
(2) indice
|