Fichier 3D_09a.jps — Modifié le 10 Décembre 2006 à 18 h 16
%autocrop
20 setxunit
-14 12 setxrange
-6 11 setyrange
%quadrillage marks
/b {-6 4 0} def
/c {6 4 0} def
/d {6 -4 0} def
/a {-6 -4 0} def
/s {0 0 10} def
/vect_I {-5 cos -5 sin} def
/vect_J {30 cos 30 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
[/A /B /C /D /S]
[a b c d s] {xyz2xy} capply
mapnp
-6 S A xdpoint /I defpoint
1 S D xdpoint /J defpoint
6 S C xdpoint /K defpoint
%% corrige
I J A D interdroite
/U defpoint
J K D C interdroite
/V defpoint
U V A B interdroite
/M defpoint
U V C B interdroite
/N defpoint
gsave
.8 setlinewidth
pointilles
orange
[A U] ligne
[I U] ligne
[K V] ligne
[C V] ligne
grestore
[U V M N] {times2} plot
gsave
.5 setlinewidth
mixte
[M U 4 copy vecteur .3 mulv addv] ligne
[N V 4 copy vecteur .3 mulv addv] ligne
/fillstyle {.8 setgray fill} def
[I J K N M] polygone*
grestore
%%
gsave
.8 setlinewidth
pointilles
[A B C] ligne
[B S] ligne
grestore
/dotscale {2 dup} def
[I J K] {times} plot
1.2 setlinewidth
[A D C] ligne
[S C] ligne
[D S] ligne
[A S] ligne
%% le plan de base
/P1 {1 -5} def
/P2 {-13 -2} def
/P3 {11 -3} def
2 setlinewidth
[P2 P1 P3] ligne
12 setfontsize
setTimesItalic
(A) A dltext
(B) B (3 0) urtext
(C) C urtext
(D) D drtext
(I) I bltext
(J) J urtext
(K) K urtext
(S) S ultext
%% <tex>
%% \vbox {\hsize 60mm \parindent 0pt
%% Le point $I$ est sur l'arête $SC$ de la pyramide $SABCD$.
%% Le plan $Z$ passe par $I$ et est parallèle aux droites $(PQ)$ et
%% $(SM)$.
%%
%% Tracer l'intersection de la pyramide et du plan $Z$.
%% }
%% </tex>
%%
%% /fillstyle {.9 setgray fill} def
%% /linearc .5 store
%% .8 setlinewidth
%% /dx_boxit 2 def
%% /dy_boxit 2 def
%% boxit
%% -20.5 4.5 [1.5 dup] urtexlabel