%3A%20%EC%82%BC%EA%B0%81%ED%98%95%EC%97%90%20%EB%8C%80%ED%95%9C%20%EC%95%94%EC%8B%9C%EC%A0%81%20%ED%95%A8%EC%88%98%EB%A5%BC%20%EA%B7%B8%EB%A6%AC%EB%8A%94%20%EB%B0%A9%EB%B2%95.png)
어떻게 플롯할 수 있나요?
\pgfmathsetmacro\xA{0}
\pgfmathsetmacro\yA{0}
\pgfmathsetmacro\xB{1}
\pgfmathsetmacro\yB{0}
\pgfmathsetmacro\xC{0.5}
\pgfmathsetmacro\yC{0.5*sqrt(3)}
f(x,y)=4*( (x -\xA)^2 + (y - \yA)^2)*((x -\xB)^2 + (y -\yB)^2 )
-( ((x -\xC)^2 + (y -\yC)^2)
-((x -\xA)^2 + (y -\yA)^2)
-((x -\xB)^2 + (y -\yB)^2) )^2;
정삼각형과 함께
\addplot[no marks] coordinates {(\xA,\yA) (\xB,\yB) (\xC,\yC) (\xA,\yA) };
이 경우 삼각형 변 AB 아래에 원호와 같은 것이 나타나야 합니다.
내 방법이 다 좋지 않은 것 같다. 나는 gnuplot 전문가가 아닙니다.
% arara: pdflatex: {shell: yes}
\documentclass[margin=5mm, tikz]{standalone}
\usepackage{pgfplots}
\pgfplotsset{compat=newest}
\begin{document}
% Ecken
\pgfmathsetmacro\xA{0}
\pgfmathsetmacro\yA{0}
\pgfmathsetmacro\xB{1}
\pgfmathsetmacro\yB{0}
\pgfmathsetmacro\xC{0.5}
\pgfmathsetmacro\yC{0.5*sqrt(3)}
% A(0,0); B(1,0); C(0.5, 0.5*sqrt(3))
\begin{tikzpicture}
\begin{axis}[axis equal,
title={$|AX| + |BX| = |CX|$},
]
\addplot +[%smooth,
no markers,
raw gnuplot,
thick,
%empty line = jump % not strictly necessary,
] gnuplot {
f(x,y)=4*((x -\xA)^2 + (y - \yA)^2)*((x -\xB)^2 + (y -\yB)^2)
-( ((x -\xC)^2 + (y -\yC)^2)
-((x -\xA)^2 + (y -\yA)^2)
-((x -\xB)^2 + (y -\yB)^2) )^2;
set cntrparam levels discrete 0,0;
set isosample 100,100;
set size square;
set view equal xy;
set cont base;
unset surface;
splot f(x,y);
};
\addlegendentry{$X$}
\addplot[no marks] coordinates {(\xA,\yA) (\xB,\yB) (\xC,\yC) (\xA,\yA) };
\draw[fill=white] (\xA,\yA) circle (1.75pt) node[anchor=north east]{$A(\xA,\yA)$};
\draw[fill=white] (\xB,\yB) circle (1.75pt) node[anchor=north]{$B(\xB,\yB)$};
\draw[fill=white] (\xC,\yC) circle (1.75pt) node[anchor=east]{$C(\xC,\yC)$};
\end{axis}
\end{tikzpicture}
\begin{tikzpicture}
\begin{axis}[
view = {0}{90},
axis equal,
% restrict x to domain = -2.2:3
]
\addplot3 [contour gnuplot = {labels = false}, samples=10]
{
2*sqrt((x -\xA)^2 + (y - \yA)^2)*sqrt((x -\xB)^2 + (y -\yB)^2)
-( ((x -\xC)^2 + (y -\yC)^2)
-((x -\xA)^2 + (y -\yA)^2)
-((x -\xB)^2 + (y -\yB)^2) )^1
};
\addlegendentry{$X$}
\addplot[no marks] coordinates {(\xA,\yA) (\xB,\yB) (\xC,\yC) (\xA,\yA) };
\draw[fill=white] (\xA,\yA) circle (1.75pt) node[anchor=north east]{$A(\xA,\yA)$};
\draw[fill=white] (\xB,\yB) circle (1.75pt) node[anchor=north]{$B(\xB,\yB)$};
\draw[fill=white] (\xC,\yC) circle (1.75pt) node[anchor=east]{$C(\xC,\yC)$};
\end{axis}
\end{tikzpicture}
\begin{tikzpicture}
\begin{axis}[
axis equal,
% restrict y to domain = -4:4,
]
\addplot + [
no markers,
raw gnuplot,
thick,
]
gnuplot {
f(x,y)=4*((x -\xA)^2 + (y - \yA)^2)*((x -\xB)^2 + (y -\yB)^2)
-( ((x -\xC)^2 + (y -\yC)^2)
-((x -\xA)^2 + (y -\yA)^2)
-((x -\xB)^2 + (y -\yB)^2) )^2;
set contour base;
set cntrparam levels discrete 0.01;
unset surface;
set view map;
set isosamples 300;
splot f(x,y);
};
\addlegendentry{$X$}
\addplot[no marks] coordinates {(\xA,\yA) (\xB,\yB) (\xC,\yC) (\xA,\yA) };
\draw[fill=white] (\xA,\yA) circle (1.75pt) node[anchor=north east]{$A(\xA,\yA)$};
\draw[fill=white] (\xB,\yB) circle (1.75pt) node[anchor=north]{$B(\xB,\yB)$};
\draw[fill=white] (\xC,\yC) circle (1.75pt) node[anchor=east]{$C(\xC,\yC)$};
\end{axis}
\end{tikzpicture}
\end{document}