note_edge note_edge note_angle note_angle note_angle note_angle end.. by oy ay cy.[r]
(1)function main // Tạo biến ox = oy = r = 2.5 // Vẽ đường tròn set_paper Paper, 2, 0xFF00FF appear Point, ox, oy, "O", rightbelow appear Compa move Compa, ox, oy, -90 call Compa.OpenCompa, r rotate_compa Compa, r, 270 disappear Compa get_point &ax, &ay, ox, oy, 180, 7*r/3 appear Pencil, ax, ay appear Point, ax, ay, "A", left disappear Pencil // Vẽ đường tròn đường kính OA get_angle &angle, ax, ay, ox, oy appear Ruler move Ruler, ax, ay, angle ve_dt ax, ay, ox, oy mx = (ax+ox)/2 my = (ay+oy)/2 OA = sqrt((ax-ox)^2+(ay-oy)^2)/2 set_paper Draff, appear Pencil, mx, my appear Point, mx, my, "" disappear Pencil, Ruler appear Compa move Compa, mx, my, angle-90 call Compa.OpenCompa, OA rotate_compa Compa, OA, angle+270 disappear Compa set_paper Paper // Xác định tọa độ hai giao điểm goc1 = arcsin(r/(2*OA)) get_angle &goc, mx, my, ox, oy get_point &bx, &by, mx, my, goc + 2*goc1, OA get_point &cx, &cy, mx, my, goc -2*goc1, OA appear Pencil, bx, by appear Point, bx, by, "F", rightabove disappear Pencil appear Pencil, cx, cy appear Point, cx, cy, "E", rightbelow disappear Pencil set_paper Paper, 2, 0x00CC00 create_line ax,ay,bx,by create_line ax,ay,cx,cy create_line bx,by,ox,oy create_line ox,oy,cx,cy // Đánh dấu các đoạn thẳng và các góc disappear Point erase Draff note_angle 0, "", ax, ay, bx, by, ox, oy note_angle 0, "", ox, oy, cx, cy, ax, ay set_paper Draff (2) note_edge note_edge note_angle note_angle note_angle note_angle end 1,"", ax, ay, bx, by 1,"", ax, ay, cx, cy 2, "1", ox, oy, ax, ay, 2, "2", cx, cy, ax, ay, 1, "1", bx, by, ox, oy, 1, "2", ax, ay, ox, oy, bx, ox, ax, cx, by oy ay cy (3)