[r]
(1)function main // Tạo biến ix = iy = r1 = r2 = // Vẽ hai đường tròn (I) và (K) tiếp xúc ngoài H set_paper Paper, 2, 0xFF00FF appear Point, ix, iy, "I", rightbelow circle ix, iy, r1 get_point &hx, &hy, ix, iy, 0, r1 appear Point, hx, hy, "H", leftbelow get_point &kx, &ky, hx, hy, 0, r2 circle kx, ky, r2 appear Point, kx, ky, "K", below line ix, iy, kx, ky // Vẽ đường tròn đường kính BC set_paper Draft, appear Text, 8.25, 0.5, "Vẽ đường tròn (O) đường kính IK", ox = (ix+kx)/2 oy = (iy+ky)/2 get_angle &angle, ix, iy, kx, ky appear Ruler move Ruler, ix, iy, angle appear Pencil, ox, oy appear Point, ox, oy, "O", below disappear Pencil disappear Ruler appear Compa move Compa, ox, oy, -180 call Compa.OpenCompa, r = (r1+r2)/2 rotate_compa Compa, r, 180 disappear Compa disappear Text // Vẽ đường vuông góc với BC H appear Text, 8.25, 0.5, "Vẽ thẳng vuông góc với IK H", lenOH = sqrt((ox-hx)^2+(oy-hy)^2) lenOM = sqrt(r^2 - lenOH^2) get_point &mx, &my, hx, hy, 90, lenOM create_line3 hx, hy, mx, my appear Pencil, mx, my appear Point, mx, my, "M", above disappear Pencil note_angle 1, "", ox, oy, hx, hy, mx, my disappear Text // Vẽ đường vuông góc với MO M appear Text, 8.25, 0.5, "Vẽ đường tròn tâm M bán kính MH cắt (I) E và (K) EF", appear Compa move Compa, mx, my, -90 call Compa.OpenCompa, lenOM rotate_compa Compa, lenOM, 270 disappear Compa goc = arcsin(lenOH/r) get_point &tgx, &tgy, mx, my, goc, get_intersection2 &ekx, &eky, &ex, &ey, mx, my, tgx, tgy, ix, iy, r1 get_intersection2 &fkx, &fky, &fx, &fy, mx, my, tgx, tgy, kx, ky, r2 (2) appear Pencil, ex, ey appear Point, ex, ey, "E", leftabove disappear Pencil appear Pencil, fx, fy appear Point, fx, fy, "F", rightabove disappear Pencil set_paper Paper, 2, 0xFF00FF create_line ex, ey, fx, fy disappear Text // Vẽ đường vuông góc với MO M appear Text, 8.25, 0.5, "EF chính là tiếp tuyến chung (I) và (K)", end (3)