Présentation de 8993.jps

%% auteur : Mbarek 03/08/2023


usecolor
56.7 setxunit
-0.5 4.5 setxrange
-2 2.5 setyrange
%Triangle ABC

/A{0 0} def  /B{4 0} def  /C{3 2} def  

%Les milieux des cotés

/I1{B C milieu} def
/I2{C A milieu} def
/I3{A B milieu} def

%Les projections des sommets sur les cotés

/J1{A B C orthoproj} def
/J2{B C A orthoproj} def
/J3{C A B orthoproj} def

%Cercle circonscritau triangle ABC

/medAB {A B mediatrice} def
/medAC {A C mediatrice} def
/Omega {medAB medAC interdroite} def
/c {Omega Omega A distance} def

%Cercle d'Euler

/medI1I2 {I1 I2 mediatrice} def
/medI1I3 {I1 I3 mediatrice} def
/omega {medI1I2 medI1I3 interdroite} def
/ce {omega omega I1 distance} def

%Orthocentre de ABC

/H {A J1 B J2 interdroite} def
/H1 {A H milieu} def
/H2 {B H milieu} def
/H3 {C H milieu} def

%Centre de gravité de ABC

/G {A I1 B I2 interdroite} def

%Les dessins

1 setlinejoin
1.5 setlinewidth
gsave
green4
/fillstyle{GreenYellow fill} def
0.5 setfillopacity
[A B C] polygone*
grestore

gsave
0.75 setlinewidth
gray67
[I1 I2 I3] polygone
[A J1] ligne
[B J2] ligne
[C J3] ligne
grestore

gsave
DeepPink1
c cercle
grestore

gsave
turquoise3
ce cercle
Omega G droite
grestore

gsave
/dotscale {0.5 dup} def
[A B C I1 I2 I3 J1 J2 J3 H1 H2 H3] points
grestore

gsave
/dotscale {0.75 dup} def
DeepPink1
[H G Omega omega] points
grestore

%Les labels

(A) A dltext   (B) B drtext  (C) C uctext   (H) H dctext   (G) G uctext 

#latex#   $I_1$
I1 crtexlabel
#latex#   $I_2$
I2 cltexlabel
#latex#   $I_3$
I3 dctexlabel
#latex#   $J_1$
J1 crtexlabel
#latex#   $J_2$
J2 uctexlabel
#latex#   $J_3$
J3 dctexlabel
#latex#   $H_1$
H1 dctexlabel
#latex#   $H_2$
H2 dctexlabel
#latex#   $H_3$
H3 dltexlabel

#latex#   $\Omega$
Omega uctexlabel

#latex#   $\omega$
omega uctexlabel
/d {Omega G} def
/E {0 d xdpoint} def
/F {1.5 d xdpoint} def
turquoise3
(La droite d'Euler)  E F milieu {E F angle} uctext