Define: D=point(0,0) A=point(u1=-0.8,0) I=point(0,u2=0.9) B=point(u3=2,0) C=point(x1,x2) A1=point(x3,x4) A2=point(x5,x6) A3=point(x7,0) N=point(x8,x9) Constrain: equiangle(C,B,I,I,B,A) equiangle(C,A,I,I,A,B) midpoint(B,C,A1) midpoint(A,C,A2) midpoint(A,B,A3) circumcenter(A1,A2,A3,N) pointonsameside(A,B, C, I) pointonsameside(A,C, B, I) pointonsameside(C,B, A, I) Display: triangle(A ,B ,C ) circle(I,D) circle(N,A1) segment(A,I) segment(B,I) segment(I,D)["(u2 !=0&&u1*u3+u2^2<0&&u3+u2!=0&&u3-u2!=0)", x1 = u2^2*(u1+u3)/(u3*u1+u2^2), x2 = -2*u2*u3*(-x1+u3)/(-u3^2+u2^2), x3 = 1/2*u3+1/2*x1, x4 = 1/2*x2, x5 = 1/2*u1+1/2*x1, x6 = 1/2*x2, x7 = 1/2*u1+1/2*u3, x8 = 1/2*x3+1/2*x5, x9 = 1/4*(8*x8*x7-8*x5*x8-4*x7^2+4*x5^2+x2^2)/x2]