Advertisement
houseofmath

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

Sep 16th, 2024
250
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Asymptote 1.18 KB | Source Code | 0 0
  1. import geometry;
  2. size(7cm);
  3. dotfactor=9;
  4.  
  5. real grad=15;
  6. point A, B, C, L, E_, K, O, H;
  7. A=6*dir(-90-grad); L=6*dir(-90+grad);
  8. H=1*dir(-90+3*grad);
  9. C=intersectionpoint(line(A,L), line(B,H));
  10. triangle t=triangle(A, B, C);
  11. E_=bisectorpoint(t.BC);
  12. O=intersectionpoint(A--E_, B--L);
  13. K=projection(A,C)*B;
  14.  
  15. markangle(radius=0.6cm, n=2, A, B, K);
  16. markangle(radius=0.8cm, n=2, K, B, L);
  17. markangle(radius=0.5cm, C, A, E_);
  18. markangle(radius=0.6cm, E_, A, B);
  19. markrightangle(B, K, A, size=5);
  20.  
  21. draw(A--L, opacity(0), StickIntervalMarker(2, 1, size=0.15cm));
  22. draw(Label("$6a$", Rotate(dir(A--B))), align=1.5*LeftSide,A--B, black+2bp);
  23. draw(Label("$2b$", Rotate(dir(B--C)), position=Relative(0.65)), align=1.5*LeftSide,B--C, black+2bp);
  24. draw(Label("$4a$", Rotate(dir(B--O))),O--B);
  25. draw(Label("$2a$", Rotate(dir(O--L))),L--O);
  26. draw(A--E_^^B--K);
  27. draw(A--C, black+2bp);
  28.  
  29. label("$A$", A, S);
  30. label("$C$", C, S);
  31. label("$B$", B, N);
  32. label("$L$", L, S);
  33. label("$E$", E_, NE);
  34. label("$O$", O, WNW);
  35. label("$K$", K, NE);
  36. label("$3a$", (A+L)/2, S);
  37. label("$b$", (L+C)/2, S);
  38.  
  39. dot(A, UnFill); dot(B, UnFill); dot(C, UnFill); dot(L, UnFill); dot(E_, UnFill); dot(O, UnFill); dot(K, UnFill);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement