Advertisement
sutasuu

H2_pic8

Sep 19th, 2024 (edited)
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Asymptote 1.04 KB | Source Code | 0 0
  1. import geometry;
  2.  
  3. size(9cm, 0);
  4. defaultpen(fontsize(8pt));
  5. dotfactor = 4;
  6. point A,B,C,H,O1,O2,P,Q;
  7. A=origin; B=5*dir(0);
  8. circle circ = circle(A,B);
  9. C=point(circ, 0.2*length(circ));
  10. H=projection(A,B)*C;
  11. circle circ1=circle(A,H);
  12. circle circ2=circle(B,H);
  13. O1=circ1.C;
  14. O2=circ2.C;
  15. point[] pc1=intersectionpoints(circ1, line(A,C));
  16. P=pc1[1];
  17.  
  18. point[] pc2=intersectionpoints(circ2, line(C,B));
  19. Q=pc2[1];
  20. markrightangle(size=0.3cm, A, C, B);
  21. markrightangle(size=0.3cm, A, P, H);
  22. markrightangle(size=0.3cm, H, Q, B);
  23. markrightangle(size=0.3cm, C, H, A);
  24.  
  25. draw(A--O1^^O1--H^^O1--P, white+opacity(0), StickIntervalMarker(1, 2, size=0.15cm));
  26. draw(H--O2^^O2--Q^^O2--B, white+opacity(0), StickIntervalMarker(1, 1, size=0.15cm));
  27.  
  28. draw(C--H);
  29. draw(P--O1^^P--H^^P--Q^^Q--O2^^Q--H);
  30. draw(circ1^^circ2);
  31. draw(A--B--C--cycle, black+pt);
  32.  
  33.  
  34.  
  35. dot(A^^B^^C^^H^^O1^^O2^^P^^Q);
  36. label("A", A, W);
  37. label("B", B, E);
  38. label("C", C, N);
  39. label(Label("H",UnFill), H, S);
  40. label("$O_1$", O1, S);
  41. label("$O_2$", O2, S);
  42. label("P", P, N);
  43. label("Q", Q, N);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement