SmtC: Show me the Code
Ole Peter Smith
Instituto de Matemática e Estatística
Universidade Federal de Goiás
http://www.olesmith.com.br

Tetrahedron
E se Eva tinha optado pela cobra?
Facebook.
Tetrahedron, b
$\LaTeX$ Generated:
LaTeX Listing: ../../TikZ_Examples/Images/6_8/b.tex. PDF   ZIP*  
\documentclass{standalone}
%%%%! Preamble from: /root/ufg/PreAmble.tikz.tex

\usepackage{xcolor}
\usepackage{graphicx}
\usepackage{ifthen}
\usepackage{xifthen}

\usepackage{amssymb,amsmath,amsthm}

\usepackage{pgfplots}


\usepackage{pgf,pgffor}


\newcommand{\Vector}[1]{\underline{\mathbf{#1}}}%\Vector{a}
\newcommand{\Matrix}[1]{\underline{\underline{{\mathbf{#1}}}}}

\usepackage{tikz}
\usepackage{tkz-euclide}
%%!
%%! For older versions of package tkz-euclide
%%! you may need uncomment the following line:
%   \usetkzobj{all}
%%!

\usetikzlibrary
    {
      shapes.geometric,
      arrows,
      calc,
      intersections,
      arrows.meta,
      decorations.markings,
      positioning,
      math,
      angles,
      quotes,
      patterns,3d,
      backgrounds,
      fillbetween
    }

\makeatletter
\newcommand{\gettikzxy}[3]{%
  \tikz@scan@one@point\pgfutil@firstofone#1\relax
  \edef#2{\the\pgf@x}%
  \edef#3{\the\pgf@y}%
  \tikzmath{\#2=#2/28.4527;};
  \tikzmath{\#3=#3/28.4527;};
}
\makeatother
\pgfplotsset{compat=1.14}



%%%%! Preamble end: /root/ufg/PreAmble.tikz.tex


\begin{document}

   \begin{tikzpicture}[]
      \filldraw[] (-2.083333,1.666667,-0.761845) circle(1pt);
      \draw[red](-1.250000,0.625000,1.250000) -- (-2.500000,-0.000000,-3.535534) -- (-2.500000,4.375000,0.000000) -- cycle;
      \draw[blue,thick](0.000000,8.750000,0.000000) -- (2.500000,1.250000,2.500000) -- (-0.000000,-0.000000,-7.071068) -- cycle;
      \draw[cyan](-3.125000,0.312500,0.625000) -- (-3.750000,-0.000000,-1.767767) -- (-3.750000,2.187500,0.000000) -- cycle;
      \filldraw[] (-3.125000,0.312500,0.625000) circle(1pt);
      \node[] at (-3.125000,0.312500,0.625000) {\tiny{ $$ }};
      \filldraw[] (-3.750000,-0.000000,-1.767767) circle(1pt);
      \node[] at (-3.750000,-0.000000,-1.767767) {\tiny{ $$ }};
      \filldraw[] (-3.750000,2.187500,0.000000) circle(1pt);
      \node[left] at (-3.750000,2.187500,0.000000) {\tiny{ $\frac{1}{4}$ }};
      \draw[cyan](0.625000,0.937500,1.875000) -- (-1.250000,-0.000000,-5.303301) -- (-1.250000,6.562500,0.000000) -- cycle;
      \filldraw[] (0.625000,0.937500,1.875000) circle(1pt);
      \node[] at (0.625000,0.937500,1.875000) {\tiny{ $$ }};
      \filldraw[] (-1.250000,-0.000000,-5.303301) circle(1pt);
      \node[] at (-1.250000,-0.000000,-5.303301) {\tiny{ $$ }};
      \filldraw[] (-1.250000,6.562500,0.000000) circle(1pt);
      \node[left] at (-1.250000,6.562500,0.000000) {\tiny{ $\frac{3}{4}$ }};
      \draw[dashed] (0.000000,8.750000,0.000000) -- (1.250000,0.625000,-2.285534);
      \node[] at (1.250000,0.625000,-2.285534) {\tiny{}};
      \draw[dashed,cyan] (-3.750000,2.187500,0.000000) -- (-3.437500,0.156250,-0.571383);
      \node[] at (-3.437500,0.156250,-0.571383) {\tiny{}};
      \draw[dashed,cyan] (-1.250000,6.562500,0.000000) -- (-0.312500,0.468750,-1.714150);
      \node[] at (-0.312500,0.468750,-1.714150) {\tiny{}};
      \draw[dashed,red] (-2.500000,4.375000,0.000000) -- (-1.875000,0.312500,-1.142767);
      \node[] at (-1.875000,0.312500,-1.142767) {\tiny{}};
      \draw[orange](-3.750000,2.187500,0.000000) -- (1.875000,3.125000,1.875000) -- (0.000000,2.187500,-5.303301) -- cycle;
      \draw[dashed,orange] (-3.750000,2.187500,0.000000) -- (0.937500,2.656250,-1.714150);
      \node[] at (0.937500,2.656250,-1.714150) {\tiny{}};
      \filldraw[] (-3.750000,2.187500,0.000000) circle(1pt);
      \node[] at (-3.750000,2.187500,0.000000) {\tiny{ $$ }};
      \filldraw[] (1.875000,3.125000,1.875000) circle(1pt);
      \node[] at (1.875000,3.125000,1.875000) {\tiny{ $$ }};
      \filldraw[] (0.000000,2.187500,-5.303301) circle(1pt);
      \node[right] at (0.000000,2.187500,-5.303301) {\tiny{ $\frac{1}{3}$ }};
      \draw[dotted](-5.000000,-0.000000,-0.000000) -- (0.833333,3.333333,-1.523689) -- cycle;
      \draw[dotted](-5.000000,-0.000000,-0.000000) -- (1.250000,0.625000,-2.285534) -- cycle;
      \filldraw[] (-3.541667,0.833333,-0.380922) circle(1pt);
      \node[] at (-3.541667,0.833333,-0.380922) {\tiny{ $M'$ }};
      \draw[] (-5.000000,0.000000,0.000000) -- (2.500000,1.250000,2.500000);
      \node[] at (2.500000,1.250000,2.500000) {\tiny{}};
      \draw[] (-5.000000,0.000000,-0.000000) -- (0.000000,0.000000,-7.071068);
      \node[] at (0.000000,0.000000,-7.071068) {\tiny{}};
      \draw[] (-5.000000,0.000000,0.000000) -- (0.000000,8.750000,0.000000);
      \node[] at (0.000000,8.750000,0.000000) {\tiny{}};
      \draw[] (2.500000,1.250000,2.500000) -- (0.000000,0.000000,-7.071068);
      \node[] at (0.000000,0.000000,-7.071068) {\tiny{}};
      \draw[] (2.500000,1.250000,2.500000) -- (0.000000,8.750000,0.000000);
      \node[] at (0.000000,8.750000,0.000000) {\tiny{}};
      \draw[] (0.000000,0.000000,-7.071068) -- (0.000000,8.750000,0.000000);
      \node[] at (0.000000,8.750000,0.000000) {\tiny{}};
      \filldraw[] (-0.625000,2.500000,-1.142767) circle(1pt);
      \node[] at (-0.406250,2.625000,-1.199905) {\tiny{ $G$ }};
      \filldraw[] (-5.000000,-0.000000,-0.000000) circle(1pt);
      \node[] at (-5.218750,-0.125000,0.057138) {\tiny{ $A$ }};
      \filldraw[] (2.500000,1.250000,2.500000) circle(1pt);
      \node[] at (2.656250,1.187500,2.682138) {\tiny{ $B$ }};
      \filldraw[] (-0.000000,-0.000000,-7.071068) circle(1pt);
      \node[] at (0.031250,-0.125000,-7.367483) {\tiny{ $C$ }};
      \filldraw[] (0.000000,8.750000,0.000000) circle(1pt);
      \node[] at (0.031250,9.062500,0.057138) {\tiny{ $D$ }};
      \filldraw[] (-2.500000,0.000000,-3.535534) circle(1pt);
      \node[] at (-2.687500,-0.250000,-3.774811) {\tiny{ $M_{AC}$ }};
      \filldraw[] (-2.500000,4.375000,0.000000) circle(1pt);
      \node[] at (-2.687500,4.562500,0.114277) {\tiny{ $M_{AD}$ }};
      \filldraw[] (1.250000,5.000000,1.250000) circle(1pt);
      \node[] at (1.437500,5.250000,1.489277) {\tiny{ $M_{BD}$ }};
      \filldraw[] (1.250000,0.625000,-2.285534) circle(1pt);
      \node[] at (1.437500,0.437500,-2.399811) {\tiny{ $M_{BC}$ }};
      \filldraw[] (0.000000,4.375000,-3.535534) circle(1pt);
      \node[] at (0.062500,4.562500,-3.774811) {\tiny{ $M_{CD}$ }};
      \filldraw[] (-1.250000,0.625000,1.250000) circle(1pt);
      \node[] at (-1.312500,0.437500,1.489277) {\tiny{ $M_{AB}$ }};
      \draw[gray,opacity=0.25] (0.833333,3.333333,-1.523689) -- (-1.666667,2.916667,-2.357023);
      \node[] at (-1.666667,2.916667,-2.357023) {\tiny{}};
      \draw[gray,opacity=0.25] (0.833333,3.333333,-1.523689) -- (-0.833333,3.333333,0.833333);
      \node[] at (-0.833333,3.333333,0.833333) {\tiny{}};
      \draw[gray,opacity=0.25] (0.833333,3.333333,-1.523689) -- (-0.833333,0.416667,-1.523689);
      \node[] at (-0.833333,0.416667,-1.523689) {\tiny{}};
      \draw[gray,opacity=0.25] (-1.666667,2.916667,-2.357023) -- (-0.833333,3.333333,0.833333);
      \node[] at (-0.833333,3.333333,0.833333) {\tiny{}};
      \draw[gray,opacity=0.25] (-1.666667,2.916667,-2.357023) -- (-0.833333,0.416667,-1.523689);
      \node[] at (-0.833333,0.416667,-1.523689) {\tiny{}};
      \draw[gray,opacity=0.25] (-0.833333,3.333333,0.833333) -- (-0.833333,0.416667,-1.523689);
      \node[] at (-0.833333,0.416667,-1.523689) {\tiny{}};
      \filldraw[] (0.833333,3.333333,-1.523689) circle(1pt);
      \node[] at (0.979167,3.416667,-1.561782) {\tiny{ $A'$ }};
      \filldraw[] (-1.666667,2.916667,-2.357023) circle(1pt);
      \node[] at (-1.770833,2.958333,-2.478448) {\tiny{ $B'$ }};
      \filldraw[] (-0.833333,3.333333,0.833333) circle(1pt);
      \node[] at (-0.854167,3.416667,1.030943) {\tiny{ $C'$ }};
      \filldraw[] (-0.833333,0.416667,-1.523689) circle(1pt);
      \node[] at (-0.854167,0.208333,-1.561782) {\tiny{ $D'$ }};
   \end{tikzpicture}


\end{document}
Messages:
0 secs.