☰

¿Cómo puedo dibujar una esfera que pase por cuatro puntos sin conocer el centro y el radio?

tag-icon • tag-icon tikz-3dplot
¿Cómo puedo dibujar una esfera que pase por cuatro puntos sin conocer el centro y el radio?

Residencia enEste papel, Tengo un tetraedro de Heronian. Son tetraedros de celosía con vértices O(0, 0, 0), A(15, -60, 20), B(96, 120, 128), C(63, 84, 56)y
basados ​​en esta respuestaLo intenté

\documentclass[tikz,border=2 mm,12pt]{standalone}
\usepackage{fouriernc}
\usepackage{tikz-3dplot-circleofsphere}
\begin{document} 
    \tdplotsetmaincoords{75}{170} 
    \begin{tikzpicture}[scale=1/10,line cap=butt,line join=round,tdplot_main_coords,declare function={R= 5*sqrt(451369)/14;%
    }] 
    \path 
    coordinate (O) at (0, 0, 0) 
    coordinate (A) at (15, -60, 20) 
    coordinate (B) at (96, 120, 128)
    coordinate (C) at (63, 84, 56)
    coordinate (I) at   (-1383/14, 90/7, 1528/7)
    ; 
    \begin{scope}[tdplot_screen_coords]
    \draw[thick] (I) circle (R);
    \end{scope}
    \end{tikzpicture} 
\end{document}

No puedo obtener el resultado porque la Dimensión es demasiado grande. Sin calcular las coordenadas del centro y el radio de la esfera, ¿cómo puedo dibujar la esfera que pasa O, A, B, C?

Respuesta1

Solo usé una calculadora manual.

\documentclass[tikz,border=2 mm,12pt]{standalone}
\usepackage{tikz-3dplot}
\begin{document} 
    \tdplotsetmaincoords{75}{170} 
    \begin{tikzpicture}[scale=1/10,line cap=butt,line join=round,tdplot_main_coords] 
    \path 
    coordinate (O) at (0, 0, 0) 
    coordinate (A) at (15, -60, 20) 
    coordinate (B) at (96, 120, 128)
    coordinate (C) at (63, 84, 56)
    coordinate (I) at (-98.79, 12.86, 218.29)
    ; 
    \begin{scope}[tdplot_screen_coords]
    \draw[thick] (I) circle (239.94);
    \end{scope}
    ; 
    \draw[thick] (O)--(A) (O)--(B) (O)--(C) (A)--(B) (A)--(C) (B)--(C);
    \end{tikzpicture} 
\end{document}

manifestación

Respuesta2

Si su pregunta es cómo eliminar el dimension too largeerror, una posible respuesta es: con fpu.

\documentclass[tikz,border=2 mm,12pt]{standalone}
\usepackage{fouriernc}
\usepackage{tikz-3dplot-circleofsphere}
\usetikzlibrary{fpu}
\def\pgfmathsetmacroFPU#1#2{\begingroup%
\pgfkeys{/pgf/fpu,/pgf/fpu/output format=fixed}%
\pgfmathsetmacro{#1}{#2}%
\pgfmathsmuggle#1\endgroup}%

\begin{document} 
    \tdplotsetmaincoords{75}{170} 
    \begin{tikzpicture}[scale=1/10,line cap=butt,line join=round,tdplot_main_coords,
        %declare function={R= 5*sqrt(451369/(14*14));%  }
        ] 
    \pgfmathsetmacroFPU{\myR}{5*sqrt(451369)/14}
    \path 
    coordinate (O) at (0, 0, 0) 
    coordinate (A) at (15, -60, 20) 
    coordinate (B) at (96, 120, 128)
    coordinate (C) at (63, 84, 56)
    coordinate (I) at   (-1383/14, 90/7, 1528/7)
    ; 
    \begin{scope}[tdplot_screen_coords]
     \draw[thick] (I) circle[radius=\myR];
    \end{scope}
    \end{tikzpicture} 
\end{document}

información relacionada