Historique des modifications [retour]
|
3 |
mineure syntaxe
|
|
TikZ : triangle de Morley et tkz-euclide
Sur l'excellent site [TeXample.net](http://www.texample.net), je tombe sur un joli [triangle de Morley](http://www.texample.net/tikz/examples/morleys-triangle/).
Malheureusement, il ne compile pas : le package `tkz-2d` manque à ma TeX Live. Je comprends, sur [le site d'Alain Matthes](http://altermundus.fr/pages/download.html), que ce package est devenu `tkz-euclide`. Mais ça ne compile pas plus.
Quelqu'un saurit-il saurait-il amender ce code, de manière à ce que je puisse obtenir cette merveilleuse figure ?
% Morley's triangle
% Author : Arnaud Lefebvre (IREM Rouen)
% Intersections of trisector lines in any triangle
% are vertices of an equilateral triangle
\documentclass{article}
\usepackage{tikz,tkz-euclide}
\usetikzlibrary{calc,intersections}
\pagestyle{empty}
\usepackage[french]{babel}
\begin{document}
\begin{tikzpicture}
%----------------------------------------------------
% Coordinates of A, B and C, the triangle vertices
%----------------------------------------------------
\coordinate[label=above:$A$] (A) at (5,4);
\coordinate[label=left:$B$] (B) at (0,0);
\coordinate[label=right:$C$] (C) at (7,0);
%----------------------------------------------------
% Lengths of segments [AB], [BC], and [CA]
%----------------------------------------------------
\tkzMathLength(B,C)
\newlength{\la}
\setlength{\la}{\tkzMathLen pt}
\setlength{\la}{.01\la}
\tkzMathLength(A,C)
\newlength{\lb}
\setlength{\lb}{\tkzMathLen pt}
\setlength{\lb}{.01\lb}
\tkzMathLength(A,B)
\newlength{\lc}
\setlength{\lc}{\tkzMathLen pt}
\setlength{\lc}{.01\lc}
%----------------------------------------------------
% Computing 1/3 of each angle
%----------------------------------------------------
\pgfmathsetmacro{\A}{acos((\la*\la-\lb*\lb-\lc*\lc)/(-2*\lb*\lc))};
\pgfmathsetmacro{\tA}{\A/3};
\pgfmathsetmacro{\B}{acos((\lb*\lb-\la*\la-\lc*\lc)/(-2*\la*\lc))};
\pgfmathsetmacro{\tB}{\B/3};
\pgfmathsetmacro{\C}{acos((\lc*\lc-\lb*\lb-\la*\la)/(-2*\lb*\la))};
\pgfmathsetmacro{\tC}{\C/3};
%----------------------------------------------------
% Computing intersections of trisector lines
%----------------------------------------------------
\coordinate (A1) at ($(A)!100*max(\lb,\lc)!\tA:(B)$);
\coordinate (A2) at ($(A)!100*max(\lb,\lc)!2*\tA:(B)$);
\coordinate (B1) at ($(B)!100*max(\la,\lc)!\tB:(C)$);
\coordinate (B2) at ($(B)!100*max(\la,\lc)!2*\tB:(C)$);
\coordinate (C1) at ($(C)!100*max(\la,\lb)!\tC:(A)$);
\coordinate (C2) at ($(C)!100*max(\la,\lb)!2*\tC:(A)$);
%----------------------------------------------------
% Computing coordinates of vertices O, P and Q of
% the Morley's triangle
%----------------------------------------------------
\coordinate (O) at (intersection of C--C1 and A--A2);
\coordinate (P) at (intersection of A--A1 and B--B2);
\coordinate (Q) at (intersection of B--B1 and C--C2);
%----------------------------------------------------
% Drawing triangles and trisectors
%----------------------------------------------------
\tkzMarkAngle[size=1,fillcolor=green!80](B/A/A1)
\tkzMarkAngle[size=.9,fillcolor=green!80](A2/A/A1)
\tkzMarkAngle[size=.8,fillcolor=green!80](A2/A/C)
\tkzMarkAngle[size=1,fillcolor=blue!80](C/B/B1)
\tkzMarkAngle[size=.9,fillcolor=blue!80](B2/B/B1)
\tkzMarkAngle[size=.8,fillcolor=blue!80](B2/B/A)
\tkzMarkAngle[size=1,fillcolor=red!80](A/C/C1)
\tkzMarkAngle[size=.9,fillcolor=red!80](C2/C/C1)
\tkzMarkAngle[size=.8,fillcolor=red!80](C2/C/B)
\draw (A)--(B)--(C)--cycle;
\draw[fill=orange, opacity=.4]
(O)--node[sloped]{\tiny{//}}
(P)--node[sloped]{\tiny{//}}
(Q)--node[sloped]{\tiny{//}}(O);
\draw (A)--(O) (A)--(P) (B)--(P) (B)--(Q) (C)--(Q) (C)--(O);
%----------------------------------------------------
% Caption
%----------------------------------------------------
\node[rounded corners, fill=purple!20,anchor=south east] at (3,3)
{\begin{minipage}{5cm}
\textbf{Triangle de Morley}\newline Les trissectrices d'un triangle quelconque
se croisent en trois points qui forment un triangle
équilateral.
\end{minipage}};
\end{tikzpicture}
\end{document}
|
|
2 |
mineure lien
|
|
TikZ : triangle de Morley et tkz-euclide
Sur l'excellent site [TeXample.net](http://www.texample.net), je tombe sur un joli [triangle de Morley](http://www.texample.net/tikz/examples/morleys-triangle/).
Malheureusement, il ne compile pas : le package `tkz-2d` manque à ma TeX Live. Je comprends, sur le [le site d'Alain Matthes, Matthes](http://altermundus.fr/pages/download.html), que ce package est devenu `tkz-euclide`. Mais ça ne compile pas plus.
Quelqu'un saurit-il amender ce code, de manière à ce que je puisse obtenir cette merveilleuse figure ?
% Morley's triangle
% Author : Arnaud Lefebvre (IREM Rouen)
% Intersections of trisector lines in any triangle
% are vertices of an equilateral triangle
\documentclass{article}
\usepackage{tikz,tkz-euclide}
\usetikzlibrary{calc,intersections}
\pagestyle{empty}
\usepackage[french]{babel}
\begin{document}
\begin{tikzpicture}
%----------------------------------------------------
% Coordinates of A, B and C, the triangle vertices
%----------------------------------------------------
\coordinate[label=above:$A$] (A) at (5,4);
\coordinate[label=left:$B$] (B) at (0,0);
\coordinate[label=right:$C$] (C) at (7,0);
%----------------------------------------------------
% Lengths of segments [AB], [BC], and [CA]
%----------------------------------------------------
\tkzMathLength(B,C)
\newlength{\la}
\setlength{\la}{\tkzMathLen pt}
\setlength{\la}{.01\la}
\tkzMathLength(A,C)
\newlength{\lb}
\setlength{\lb}{\tkzMathLen pt}
\setlength{\lb}{.01\lb}
\tkzMathLength(A,B)
\newlength{\lc}
\setlength{\lc}{\tkzMathLen pt}
\setlength{\lc}{.01\lc}
%----------------------------------------------------
% Computing 1/3 of each angle
%----------------------------------------------------
\pgfmathsetmacro{\A}{acos((\la*\la-\lb*\lb-\lc*\lc)/(-2*\lb*\lc))};
\pgfmathsetmacro{\tA}{\A/3};
\pgfmathsetmacro{\B}{acos((\lb*\lb-\la*\la-\lc*\lc)/(-2*\la*\lc))};
\pgfmathsetmacro{\tB}{\B/3};
\pgfmathsetmacro{\C}{acos((\lc*\lc-\lb*\lb-\la*\la)/(-2*\lb*\la))};
\pgfmathsetmacro{\tC}{\C/3};
%----------------------------------------------------
% Computing intersections of trisector lines
%----------------------------------------------------
\coordinate (A1) at ($(A)!100*max(\lb,\lc)!\tA:(B)$);
\coordinate (A2) at ($(A)!100*max(\lb,\lc)!2*\tA:(B)$);
\coordinate (B1) at ($(B)!100*max(\la,\lc)!\tB:(C)$);
\coordinate (B2) at ($(B)!100*max(\la,\lc)!2*\tB:(C)$);
\coordinate (C1) at ($(C)!100*max(\la,\lb)!\tC:(A)$);
\coordinate (C2) at ($(C)!100*max(\la,\lb)!2*\tC:(A)$);
%----------------------------------------------------
% Computing coordinates of vertices O, P and Q of
% the Morley's triangle
%----------------------------------------------------
\coordinate (O) at (intersection of C--C1 and A--A2);
\coordinate (P) at (intersection of A--A1 and B--B2);
\coordinate (Q) at (intersection of B--B1 and C--C2);
%----------------------------------------------------
% Drawing triangles and trisectors
%----------------------------------------------------
\tkzMarkAngle[size=1,fillcolor=green!80](B/A/A1)
\tkzMarkAngle[size=.9,fillcolor=green!80](A2/A/A1)
\tkzMarkAngle[size=.8,fillcolor=green!80](A2/A/C)
\tkzMarkAngle[size=1,fillcolor=blue!80](C/B/B1)
\tkzMarkAngle[size=.9,fillcolor=blue!80](B2/B/B1)
\tkzMarkAngle[size=.8,fillcolor=blue!80](B2/B/A)
\tkzMarkAngle[size=1,fillcolor=red!80](A/C/C1)
\tkzMarkAngle[size=.9,fillcolor=red!80](C2/C/C1)
\tkzMarkAngle[size=.8,fillcolor=red!80](C2/C/B)
\draw (A)--(B)--(C)--cycle;
\draw[fill=orange, opacity=.4]
(O)--node[sloped]{\tiny{//}}
(P)--node[sloped]{\tiny{//}}
(Q)--node[sloped]{\tiny{//}}(O);
\draw (A)--(O) (A)--(P) (B)--(P) (B)--(Q) (C)--(Q) (C)--(O);
%----------------------------------------------------
% Caption
%----------------------------------------------------
\node[rounded corners, fill=purple!20,anchor=south east] at (3,3)
{\begin{minipage}{5cm}
\textbf{Triangle de Morley}\newline Les trissectrices d'un triangle quelconque
se croisent en trois points qui forment un triangle
équilateral.
\end{minipage}};
\end{tikzpicture}
\end{document}
|
1 |
|
|
