如何使用 tkz-euclide 定义移位点?

如何使用 tkz-euclide 定义移位点?

我想重新创建以下图像:

在此处输入图片描述

来源:https://de.wikipedia.org/wiki/Datei:Feuerbachkreis_radius.svg

除了水平线,我什么都有了。要创建它们,我认为移动原点是最简单的选择。我该怎么做?

我的代码

\documentclass{article}
\usepackage[pdftex,active,tightpage]{preview}
\setlength\PreviewBorder{2mm}
\usepackage{tikz}
\usepackage{tkz-euclide}
\usetkzobj{all}
\usetikzlibrary{shapes, calc, decorations} 
\usepackage{amsmath,amssymb}
\usepackage{helvet}
\usepackage[eulergreek]{sansmath}

\begin{document}
\begin{preview}
\begin{tikzpicture}[very thick,font=\sansmath\sffamily]
    \tkzDefPoint(0,1){A}
    \tkzDefPoint(4,0){B}
    \tkzDefPoint(3,6){C}

    \tkzLabelPoints[below left,font=\sansmath\sffamily](A)
    \tkzLabelPoints[below right,font=\sansmath\sffamily](B)
    \tkzLabelPoints[above,font=\sansmath\sffamily](C)

    % Draw polygon
    \tkzDrawPolygon[thick,fill=gray!10](A,B,C)

    % Get mid points
    \tkzDefMidPoint(A,B) \tkzGetPoint{F}
    \tkzDefMidPoint(A,C) \tkzGetPoint{E}
    \tkzDefMidPoint(B,C) \tkzGetPoint{D}

    \tkzDefCircle[circum,/tikz/overlay](D,E,F)\tkzGetPoint{Icircle}\tkzGetLength{rIN}
    \tkzDrawCircle[R](Icircle,\rIN pt)

    % Get 'Hoehe'
    \tkzInterLC[/tikz/overlay](B,C)(A,B)\tkzGetPoints{hah1}{hah2}
    \tkzDefMidPoint(hah1,hah2) \tkzGetPoint{G}

    \tkzInterLC[/tikz/overlay](A,B)(C,A)\tkzGetPoints{hch1}{hch2}
    \tkzDefMidPoint(hch1,hch2) \tkzGetPoint{H}

    \tkzInterLC[/tikz/overlay](A,C)(B,A)\tkzGetPoints{hbh1}{hbh2}
    \tkzDefMidPoint(hbh1,hbh2) \tkzGetPoint{I}

    % 'Hoehenschnittpunkt'
    \tkzInterLL(A,G)(C,H)\tkzGetPoint{S}

    % More points
    \tkzInterLC[/tikz/overlay,R](A,G)(Icircle,\rIN pt)\tkzGetPoints{G}{J}
    \tkzInterLC[/tikz/overlay,R](B,I)(Icircle,\rIN pt)\tkzGetPoints{L}{I}
    \tkzInterLC[/tikz/overlay,R](C,H)(Icircle,\rIN pt)\tkzGetPoints{H}{K}

    % Draw polygon
    \tkzDrawPolygon[thick](A,B,C)
    \tkzDefCircle[circum,/tikz/overlay](A,B,C) \tkzGetPoint{Ocircle}
    \tkzDrawCircle(Ocircle,A)
    \tkzCalcLength(Ocircle,A) \tkzGetLength{dOcircle}

    % TODO: define shiftedOcircOrigin which is
    % Ocircle, but shifted by dOcircle (x-axis)
    %\tkzDrawSegments[dashed](Ocircle,shiftedOcircOrigin)

    % TODO: define shiftedIcircOrigin which is
    % Icircle, but shifted by rIN (x-axis)
    %\tkzDrawSegments[dashed](Icircle,shiftedIcircOrigin)

    \tkzDrawPoints[size=2,fill=black](D,E,F,Icircle,Ocircle)
\end{tikzpicture}
\end{preview}
\end{document}

它看起来像这样:

在此处输入图片描述

答案1

要获取圆原点的移位版本,可以使用语法\tkzDefShiftPoint[OriginName](xshiftValue,yshiftValue){shiftedPointName}。这里我们需要将原点移动等于半径的值。实现如下:

\documentclass{article}
\usepackage[pdftex,active,tightpage]{preview}
\setlength\PreviewBorder{2mm}
\usepackage{tikz}
\usepackage{tkz-euclide}
\usetkzobj{all}
\usetikzlibrary{shapes, calc, decorations} 
\usepackage{amsmath,amssymb}
\usepackage{helvet}
\usepackage[eulergreek]{sansmath}

\begin{document}
\begin{preview}
\begin{tikzpicture}[very thick,font=\sansmath\sffamily]
    \tkzDefPoint(0,1){A}
    \tkzDefPoint(4,0){B}
    \tkzDefPoint(3,6){C}

    \tkzLabelPoints[below left,font=\sansmath\sffamily](A)
    \tkzLabelPoints[below right,font=\sansmath\sffamily](B)
    \tkzLabelPoints[above,font=\sansmath\sffamily](C)

    % Draw polygon
    \tkzDrawPolygon[thick,fill=gray!10](A,B,C)

    % Get mid points
    \tkzDefMidPoint(A,B) \tkzGetPoint{F}
    \tkzDefMidPoint(A,C) \tkzGetPoint{E}
    \tkzDefMidPoint(B,C) \tkzGetPoint{D}

    \tkzDefCircle[circum,/tikz/overlay](D,E,F)\tkzGetPoint{Icircle}\tkzGetLength{rIN}
    \tkzDrawCircle[R](Icircle,\rIN pt)

    % Get 'Hoehe'
    \tkzInterLC[/tikz/overlay](B,C)(A,B)\tkzGetPoints{hah1}{hah2}
    \tkzDefMidPoint(hah1,hah2) \tkzGetPoint{G}

    \tkzInterLC[/tikz/overlay](A,B)(C,A)\tkzGetPoints{hch1}{hch2}
    \tkzDefMidPoint(hch1,hch2) \tkzGetPoint{H}

    \tkzInterLC[/tikz/overlay](A,C)(B,A)\tkzGetPoints{hbh1}{hbh2}
    \tkzDefMidPoint(hbh1,hbh2) \tkzGetPoint{I}

    % 'Hoehenschnittpunkt'
    \tkzInterLL(A,G)(C,H)\tkzGetPoint{S}

    % More points
    \tkzInterLC[/tikz/overlay,R](A,G)(Icircle,\rIN pt)\tkzGetPoints{G}{J}
    \tkzInterLC[/tikz/overlay,R](B,I)(Icircle,\rIN pt)\tkzGetPoints{L}{I}
    \tkzInterLC[/tikz/overlay,R](C,H)(Icircle,\rIN pt)\tkzGetPoints{H}{K}

    % Draw polygon
    \tkzDrawPolygon[thick](A,B,C)
    \tkzDefCircle[circum,/tikz/overlay](A,B,C) \tkzGetPoint{Ocircle}
    \tkzDrawCircle(Ocircle,A)
    \tkzCalcLength(Ocircle,A) \tkzGetLength{dOcircle}

    % TODO: define shiftedOcircOrigin which is
    % Ocircle, but shifted by dOcircle (x-axis)
    \tkzDefShiftPoint[Ocircle](\dOcircle pt,0){C'}
    \tkzDrawSegments[dashed](Ocircle,C')
    \tkzLabelSegment[below](Ocircle,C'){$r_1$} 

    % TODO: define shiftedIcircOrigin which is
    % Icircle, but shifted by rIN (x-axis)
    \tkzDefShiftPoint[Icircle](\rIN pt,0){C''} 
    \tkzDrawSegments[dashed](Icircle,C'')
    \tkzLabelSegment[below](Icircle,C''){$r_2$} 

    \tkzDrawPoints[size=2,fill=black](D,E,F,Icircle,Ocircle)
\end{tikzpicture}
\end{preview}
\end{document}

具有所需形状:

在此处输入图片描述

相关内容