Advertisement
sutasuu

H4_pic0.2.(alternative)

Oct 2nd, 2024
26
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Asymptote 0.56 KB | Source Code | 0 0
  1. import geometry;
  2.  
  3. size(9cm, 0);
  4. defaultpen(fontsize(10pt));
  5. dotfactor = 4;
  6.  
  7. point A,B,C,O1,O2,O3;
  8. A=origin; B= 5*dir(60); C=5*dir(0);
  9. triangle T=triangle(A,B,C);
  10. point A1 = bisectorpoint(T.BC);
  11. point B1 = bisectorpoint(T.AC);
  12.  
  13. circle incirc1=incircle(A,B,B1); O1=incirc1.C;
  14. circle incirc2=incircle(A,C,A1); O2=incirc2.C;
  15. circle incirc3=incircle(A,B,A1); O3=incirc3.C;
  16.  
  17. point D = projection(A,C)*O1;
  18. point Ep = projection(A,C)*O2;
  19.  
  20.  
  21. draw(O1--D^^O2--Ep);
  22. draw(A--O1^^C--O2);
  23. draw(O1--O2--O3--cycle);
  24. draw(incirc1^^incirc2^^incirc3);
  25. draw(T); label(T);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement