Tải bản đầy đủ (.docx) (2 trang)

Ve duong tron bang tiep tam giac

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (28.99 KB, 2 trang )

<span class='text_page_counter'>(1)</span>function main // Vẽ đoạn thẳng AB set_paper Paper, 2, 0x00CC00 ax = 4 ay = 8 bx = 7 by = 8 cx = 5 cy = 5.5 line ax, ay, bx, by line ax, ay, cx, cy line cx, cy, bx, by appear Point, cx, cy, "C", above appear Point, ax, ay, "A", left appear Point, bx, by, "B", below lenAB = sqrt((ax - bx)^2 + (ay - by)^2)) lenBC = sqrt((cx - bx)^2 + (cy - by)^2)) lenAC = sqrt((ax - cx)^2 + (ay - cy)^2)) gocA = arccos((lenAB^2 + lenAC^2 - lenBC^2)/(2*lenAB*lenAC)) gocB = arccos((lenAB^2 + lenBC^2 - lenAC^2)/(2*lenAB*lenBC)) gocC = arccos((lenAC^2 + lenBC^2 - lenAB^2)/(2*lenAC*lenBC)) // Kéo dài hai cạnh AB, AC get_angle &gocAC, ax, ay, cx, cy get_point &acx, &acy, ax, ay, gocAC, lenAC*3 create_line ax, ay, acx, acy get_angle &gocAB, ax, ay, bx, by get_point &abx, &aby, ax, ay, gocAB, lenAB*3 get_angle &angle, ax,ay, bx, by appear Ruler move Ruler, ax, ay, angle ve_dt bx, by, abx, aby disappear Ruler // Vẽ phân giác góc ngoài tại B set_paper Draft appear Compa get_angle &gocAAB, bx, by, abx, aby move Compa, bx, by, gocAAB - 20 rB = 3*lenBC/4 call Compa.OpenCompa, rB rotate_compa Compa, rB, 180 - gocB + 20 get_point &dx, &dy, bx, by, gocAAB, rB get_angle &angle, bx, by, cx, cy get_point &ex, &ey, bx, by, angle, rB move Compa, dx, dy, -20 call Compa.OpenCompa, rB*1.2 rotate_compa Compa, rB*1.2, 150 move Compa, ex, ey, -20 call Compa.OpenCompa, rB*1.2 rotate_compa Compa, rB*1.2, 90 disappear Compa angle = gocAAB + ((180 - gocB)/2) get_point &x, &y, bx, by, angle, rB*2 set_paper Paper, 1, 0xFF00FF create_line bx, by, x, y erase Draft // Vẽ phân giác góc ngoài tại C.

<span class='text_page_counter'>(2)</span> set_paper Draft appear Compa get_angle &gocAAC, cx, cy, acx, acy move Compa, cx, cy, -90 rB = 3*lenBC/4 call Compa.OpenCompa, rB rotate_compa Compa, rB, 70 get_point &dx, &dy, cx, cy, gocAAC, rB get_angle &angle, cx, cy, bx, by get_point &ex, &ey, cx, cy, angle, rB move Compa, dx, dy, -60 call Compa.OpenCompa, rB*1.2 rotate_compa Compa, rB*1.2, 50 move Compa, ex, ey, -20 call Compa.OpenCompa, rB*1.2 rotate_compa Compa, rB*1.2, 90 disappear Compa angle = gocAAC - ((180 - gocC)/2) get_point &x', &y', cx, cy, angle, rB*2 set_paper Paper, 1, 0xFF00FF create_line cx, cy, x', y' erase Draft // Vẽ đường tròn nội tiếp get_intersection1 &ix,&iy,bx,by,x,y,cx,cy,x',y' appear Pencil, ix, iy appear Point,ix,iy,"I",leftabove disappear Pencil get_perpendicular &hx,&hy,ix,iy,ax,ay,bx,by create_line3 hx,hy,ix,iy note_angle 0,"",ix,iy,hx,hy,ax,ay appear Point,hx,hy,"H", rightbelow radius = sqrt((ix-hx)^2+(iy-hy)^2) appear Compa move Compa, ix, iy,-90 call Compa.OpenCompa, radius set_paper Paper, 2, 0x0000FF rotate_compa Compa, radius, 270 disappear Compa end.

<span class='text_page_counter'>(3)</span>

Tài liệu bạn tìm kiếm đã sẵn sàng tải về

Tải bản đầy đủ ngay
×