A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #433
Módosított eljárás (előbb nem találtam a közvetlen parancsot az oldalfelező merőleges rajzolásra):
haromszog:=proc(p1,p2,p3)
description "Háromszog, korulirt kore es oldalfelezo merolegesei. ";
use geometry in
# pontok objektumainak letrehozasa a p1, p2, p3 koordinata-listakbol
point(A,op(p1));point(B,op(p2));point(C,op(p3));
# egy egyenesen vannak-e a pontok
if (AreCollinear(A,B,C)=true)
then print("Nem alkotnak háromszöget a pontok!");
else
# haromszog objektum letrehozasa a csucspontokbol
triangle(T,[A,B,C]);
# korulirt kor letrehozasa
circumcircle(Elc, T, 'centername' = o);detail(Elc);
# oldalfelezo merolegesek
PerpenBisector(pb1, A,B);PerpenBisector(pb2, A,C);PerpenBisector(pb3, B, C);
draw([Elc(color=red),T(color=blue),pb1(color=brown),pb2(color=brown),pb3(color=brown)],printtext = true,axes=normal,gridlines=true);
end if;
end use;
end proc;