Предметный указатель

В геометрическом пакете построение графических объектов осуществляется при помощи команды

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);

Выводим на дисплей построенные геометрические объекты (рис. 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);

рис. 38

Предметный указатель