Киятккин Кирилл ДЗ2(Asymptote) рисунок 4

import geometry;
import patterns;

size (9cm ,0);
defaultpen ( fontsize (8pt ));
dotfactor=4;

point A, B, C, A_1, B_1, C_1, M, N_, K, T;
B=(4,4); C=(5,0);
path a = (B--C), b=(A--C), c=(A--B);
A_1=point(a,0.36*length(a));
B_1=point(b,3/5*length(b));
C_1=point(c,0.4*length(c));
line l=line (A,C); line d= parallel (B,l);
T=intersectionpoint(line(C, C_1), d);
M=extension(A,A_1,C,C_1);
N_=extension(A,A_1,B,B_1);
K=extension(C,C_1,B,B_1);
add("lines",hatch(1mm, dir(-60),heavygreen));

fill(M--N_--K--cycle, pattern("lines"));
markangle(C,T,B, radius=0.7cm);
markangle(T,C,A, radius=0.7cm);
markangle(C,B_1,B, radius=0.3cm, n=2, space=0.07cm);
markangle(T,B,B_1, radius=0.3cm, n=2, space=0.07cm);

draw(a^^b^^c, 1pt+black);
draw(A--A_1^^B--B_1^^C--T^^B--T);

label("$\frac{15}{2}a$", (T+B)/2, N);
label("$3a$", (A+B_1)/2, S);
label("$2a$", (C+B_1)/2, S);

dot("$A$",A, SW); dot("$B$",B,N); dot("$C$",C, SE); dot("$A_1$",A_1); dot("$B_1$",B_1, S); dot("$C_1$",C_1, 2N+0.5W); dot("$T$",T, N); dot("$M$",M,2N); dot("$K$",K,SW); dot("$N$",N_, SE);