Advertisement
sutasuu

Homework№1(pic.6)

Sep 11th, 2024 (edited)
39
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Asymptote 0.81 KB | Source Code | 0 0
  1. import geometry;
  2. size(9cm, 0);
  3. defaultpen(fontsize(10pt));
  4. dotfactor = 4;
  5. point A,B,C,K,A1,B1,C1;
  6.  
  7. A=(0,0); B=6*dir(60); C=6*dir(0); K=1.5*(A+B+2*C)/(6);
  8. line AB = line(A,B);
  9. line BC = line(B,C);
  10. line AC = line(A,C);
  11. line h1 = perpendicular(K, AB);
  12. line h2 = perpendicular(K, BC);
  13. line h3 = perpendicular(K, AC);
  14.  
  15. C1 = intersectionpoint(h1, AB);
  16. B1 = intersectionpoint(h3, AC);
  17. A1 = intersectionpoint(h2, BC);
  18.  
  19. fill(C1--K--B--cycle^^K--A1--C--cycle^^K--B1--A--cycle, green+white);
  20. fill(C1--K--A--cycle^^K--A1--B--cycle^^K--B1--C--cycle, blue+white);
  21.  
  22. markrightangle(size=7, K, C1, B);
  23. markrightangle(size=7, B, A1, K);
  24. markrightangle(size=7, K, B1, A);
  25.  
  26. draw(A--B--K--cycle);
  27. draw(C--B--K--cycle);
  28. draw(A--C--K--cycle);
  29. draw(K--C1^^K--B1^^K--A1);
  30.  
  31. dot(C1^^B1^^A1, UnFill);
  32. dot(A^^B^^C^^K, UnFill);
  33.  
  34.  
  35.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement