// Vẽ đường tròn ngoại tiếp get_intersection1 kx,ky,dx,dy,mx,my,ex,ey,nx,ny appear Point, kx, ky, "K", left radius = sqrtkx-ax^2+ky-ay^2 get_angle &angle, ax, ay, kx, ky set_paper Draft [r]
(1)function main // Vẽ đoạn thẳng AB appear Text, 8.25, 0.5, "Vẽ đoạn thẳng AB", input_line &ax, &ay, &bx, &by disappear Text appear Point, ax, ay, "A", below appear Point, bx, by, "B", below create_line ax, ay, bx, by // Vẽ điểm C appear Text, 8.25, 0.5, "Vẽ điểm C", input_point &cx, &cy disappear Text appear Point, cx, cy, "C", left create_line cx, cy, bx, by create_line cx, cy, ax, ay // Vẽ trung trực AB radius = sqrt((ax-bx)^2 + (ay-by)^2) / * get_angle &angle, ax, ay, bx, by set_paper Draft appear Compa move Compa, ax, ay, angle-90 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+90 move Compa, bx, by, angle+90 rotate_compa Compa, radius, angle+270 disappear Compa mx = (ax + bx) / my = (ay + by) / angle = angle + 90 get_point &dx, &dy, mx, my, angle, set_paper Paper create_line dx, dy, * mx - dx, * my - dy appear Point, mx, my, "M", leftbelow note_angle 0, "", bx, by, mx, my, dx, dy note_edge 0, "", ax, ay, mx, my note_edge 0, "", mx, my, bx, by // Vẽ trung trực AC radius = sqrt((ax-cx)^2 + (ay-cy)^2) / * get_angle &angle, ax, ay, cx, cy set_paper Draft appear Compa move Compa, ax, ay, angle-90 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+90 move Compa, cx, cy, angle+90 rotate_compa Compa, radius, angle+270 disappear Compa nx = (ax + cx) / ny = (ay + cy) / angle = angle + 90 get_point &ex, &ey, nx, ny, angle, set_paper Paper create_line ex, ey, * nx - ex, * ny - ey appear Point, nx, ny, "N", rightbelow note_angle 0, "", cx, cy, nx, ny, ex, ey note_edge 1, "", ax, ay, nx, ny note_edge 1, "", nx, ny, cx, cy (2) // Vẽ đường tròn ngoại tiếp get_intersection1 kx,ky,dx,dy,mx,my,ex,ey,nx,ny appear Point, kx, ky, "K", left radius = sqrt((kx-ax)^2+(ky-ay)^2) get_angle &angle, ax, ay, kx, ky set_paper Draft appear Compa move Compa, kx, ky, angle-90 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+270 disappear Compa end (3)