Présentation de tgte_001.jps

/syracuse/texpng/jpv/database/1ere/sti/geometry/cercle/tgte_001.jpg
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