Présentation de 3D_23.jps

/syracuse/bbgraf/albums/sections_planes_02/3D_23.jpg
%%autocrop 20 setxunit -17 11 setxrange -6 11 setyrange %quadrillage marks /q {6 4 0} def /r {6 -4 0} def /p {-5 0 0} def /s {0 0 8} def /vect_I {-10 cos -10 sin} def /vect_J {40 cos 40 sin .8 mulv} def /vect_K {0 1} def %% [O vect_I] (->) ligne %% [O vect_J] (->) ligne %% [O vect_K] (->) ligne /xyz2xy { 3 dict begin /z exch def /y exch def /x exch def vect_I x mulv vect_J y mulv vect_K z mulv addv addv end } def [/P /Q /R /S] [p q r s] {xyz2xy} capply mapnp /I {3 3} def gsave .8 setlinewidth pointilles [P Q] ligne grestore /dotscale {2 dup} def [I] {times} plot 1.2 setlinewidth [S P R] ligne [S Q R] ligne [S R] ligne %% le plan de base /P1 {2 -5} def /P2 {-7 -2} def /P3 {10 -2} def 2 setlinewidth [P2 P1 P3] ligne 12 setfontsize setTimesItalic (I) I ultext (P) P dltext (Q) Q drtext (R) R drtext (S) S urtext <tex> \vbox {\hsize 60mm \parindent 0pt Le point $I$ est dans la face $SQR$ du tétraèdre. Tracer l'intersection $J$ de la face $PQR$ et de la droite $d$ parallèle à $(SP)$ qui passe par $I$. } </tex> /fillstyle {.9 setgray fill} def /linearc .5 store .8 setlinewidth /dx_boxit 2 def /dy_boxit 2 def boxit xmin 5.5 [1.5 dup] urtexlabel