☰

삼각형의 직선과 반대쪽 꼭지점과 외심을 통과하는 다른 직선의 교차점

tag-icon • tag-icon metapost
삼각형의 직선과 반대쪽 꼭지점과 외심을 통과하는 다른 직선의 교차점

다음 코드가 있습니다.

      pair a; pair b; pair c;
      pickup pencircle scaled 0.2pt;
      a = (0, 4cm); b = (-2cm, 0); c = (1cm, 0);
      draw a -- b -- c -- cycle;
      pair p; pair q; pair r; pair d; pair m; pair n;
      p = whatever[b, c]; a - p = whatever * (b - c) rotated 90;
      q = whatever[c, a]; b - q = whatever * (c - a) rotated 90;
      r = whatever[a, b]; c - r = whatever * (a -b) rotated 90;
      d = whatever[a, p] = whatever[b, q]; % orthocenter
      n = 1/4(a + b + c + d); % remarkably...
      m = d rotatedabout(n, 180); % M is also the circumcentre
      path circumcircle;
      circumcircle = fullcircle scaled 2 abs(m - a) shifted m;
      draw circumcircle;
      pair l;
      pickup pencircle scaled 2pt;
      drawdot m;
      pickup pencircle scaled 0.2pt;
      %draw a -- ((a -- m) intersectionpoint (b -- c));

외심을 계산할 수 있고 작동합니다. 그러나 주석 처리되지 않은 마지막 주석 처리된 줄은 경로가 교차하지 않는다는 것을 알려줍니다. AMBC와의 교차점 계산을 확장하지 않은 경우인가요 ? 키워드 로 관리할 수 있을 것 같은데 shifted어떻게 해야 할지 모르겠습니다. 어떤 도움이라도 대단히 감사하겠습니다.

답변1

마지막 줄을 다음과 같이 변경했습니다.

draw a -- (a -- (a - 100(a - m))) intersectionpoint (b -- c);

그리고 줄을 서세요. intersectionpoint작동 하려면 라인을 확장해야 할 것 같습니다 .

답변2

이전 코드와 동일한 스타일을 따르려면 다음을 수행할 수도 있습니다.

pair q ; q = whatever[a,m] = whatever[b,c] ;
draw a -- q ;

관련 정보