  В
геометрическом пакете построение графических
объектов осуществляется при помощи команды
draw( объект1, объект2, ...), где объект -
геометрический объект. Приведем примеры
> with(geometry):
Определяем треугольник Т
Warning, new definition for circle
Warning, new definition for ellipse
Warning, new definition for homothety
Warning, new definition for hyperbola
Warning, new definition for line
Warning, new definition for point
> triangle(T,[point(A2,0,0),point(A1,2,4),point(A3,7,0)]):
Находим, описанную вокруг треугольника
Т окружность
> circumcircle(C,T,'centername'=OO):
находим высоты T (altitudes)
> altitude(A2A22,A2,T,A22):
altitude(A3A33,A3,T,A33):
altitude(A1A11,A1,T,A11):
Находим центр вписанной окружности (orthocenter) и центр тяжести (centroid)
треугольника T
> orthocenter(H,T): centroid(G,T):
Находим медианы T
> median(A1M1,A1,T,M1):
median(A2M2,A2,T,M2):
median(A3M3,A3,T,M3):
> dsegment(dsg1,OO,H):
dsegment(dsg2,H,G):
dsegment(OM1,OO,M1): dsegment(OM2,OO,M2):
dsegment(OM3,OO,M3):
triangle(T1,[M1,M2,M3]):
Проверяем, лежат ли на одной прямой H, OO, G.
> AreCollinear(OO,H,G);
![[Maple Math]](images/7maple40.gif)
Выводим на дисплей построенные
геометрические объекты (рис. 38)
> draw([C(color='COLOR'(RGB,1.0,1.0,.8),filled=true),T(color=blue),T1,A3M3,A2M2,A1M1,A2A22,A3A33,A1A11,
dsg1(style=LINE,color=green,thickness=3),dsg2(thickness=3,color=green),
OM1,OM2,OM3],axes=NONE);
![[Maple Plot]](images/7maple41.gif)
рис. 38
 
|