如何在渐近线中绘制角平分线？

Question

我有一个关于如何在 中绘制角平分线的问题asymptote？我见过其他人使用tikz和其他方法，但很少使用渐近线。我还见过这之前，其中一人使用了asymptote，但对于所有颜色和其他命令，我不太确定他/她是如何做到的。以下是三角形供参考：

\documentclass[a4paper, 12pt]{article}
\usepackage[utf8]{inputenc}
\usepackage[inline]{asymptote}
\usepackage{float}
\usepackage{fullpage}
\usepackage{wrapfig}

\title{Triangles}
\author{DandelionDreams}
\date{July, 2020}

\begin{document}

\maketitle

\noindent
\begin{minipage}{0.49\textwidth} 
\begin{flushleft}
\textbf{Incenter}

An incenter is the intersection of the three angle bisectors of a triangle, which is usually denoted by $I$.
\end{flushleft}
\end{minipage}% no blank line after
\begin{minipage}{0.49\textwidth} 

\begin{flushright}
\begin{asy}
    pair A, B, C, D;
    A = (80,80);
    B = (0,0);
    C = (120,0);
    draw((0,0)--(80,80)--(120,0)--cycle);
    label("$A$", A, N);
    label("$C$", C, SE);
    label("$B$", B, SW);
    \end{asy}
\end{flushright}    
\end{minipage}


\end{document}

我想绘制角{BAC} AD 的角平分线，与 BC 相交于 D。

注意：我是 asy 的新手！另外，我对 tex.stackexchange 也还不熟悉，因为几天前我只问过一个问题。请指出我需要更改的任何内容，非常感谢！

Answer 1

根据 Charles Staat 的建议，Asymptote 提供了一个 2D 几何扩展geometry.asy：您可以使用适当的（类似 C++ 的）结构来管理三角形、圆锥曲线、圆、线、线段、坐标系。请找到您问题的可能解决方案

import geometry;
point A, B, C, D;
A = (80,80);
B = (0,0);
C = (120,0);
triangle tABC=triangle(A,B,C);
draw(tABC);
line ba=bisector(tABC.VB); 
draw(ba);
point D=bisectorpoint(tABC.AC);

label("$A$", A, N);
label("$C$", C, SE);
label("$B$", B, S);
label("$D$", D,2N+E);

以及相关图片

Answer 2

在这里编译：http://asymptote.ualberta.ca/

此示例包含更多信息。

usepackage("esvect");
unitsize(1cm);
pair A=(0,0),B=(4,0),C=(3,2);
pair M=dir(A--B),N=dir(A--C);
pair A1=dir(A--M,A--N);
pair D=extension(A,A1,B,C);
draw(A--B--C--cycle);
draw(A--D);
draw(A--N--(N+M-A)--M--cycle,green);
draw(Label("$\vv{AM}$"),A--M,blue,Arrow);
draw(A--A1,gray,Arrow);
draw(rotate(degrees(N-A))*Label("$\vv{AN}$",LeftSide),A--N,red,Arrow);
draw(M--N);
dot("$A$",A,dir(180));
dot("$B$",B);
dot("$C$",C);
dot("$D$",D);

Answer 3

PSTricks 解决方案仅用于娱乐目的或比较。

\documentclass[pstricks,border=12pt,12pt]{standalone}
\usepackage{pst-eucl}
\begin{document}
\begin{pspicture}[showgrid](5,6)
    \pstGeonode[CurveType=polyline](5;80){A}(1,1){B}(5;40){C}
    \pstBissectBAC[linecolor=red]{C}{B}{A}{N}
\end{pspicture}
\end{document}