Орнаменты в Maple

[genk]

Здравствуйте! У меня два вопроса по Maple 16.
1.Есть ли среди пакетов Maple пакет, рисующий двумерные орнаменты (в частности, паркеты).
2.Какие функции в самом ядре Maple позволяют переносить графический объект (в частности, многоугольник) в заданном направлении, но так, чтобы первоначальный объект оставался на месте (т.е. две конгруэнтные фигуры в разных частях экрана-потом в цикле это можно "размножить" для получения орнамента).

[EXE]

genk в сообщении #1485201 писал(а):

1.Есть ли среди пакетов Maple пакет,рисующий двумерные орнаменты(в частности,паркеты).

Думаю, вряд ли. Но что-то похожее на паркет видел в сообщении на форуме разработчика. Там же и текст программы.
https://www.mapleprimes.com/posts/209579-Great-Hall-Floor-And-Maple

[arseniiv]

genk в сообщении #1485201 писал(а):

Какие функции в самом ядре Maple позволяют переносить графический объект(в частности,многоугольник) в заданном направлении,но так,чтобы первоначальный объект оставался на месте(т.е.две конгруэнтные фигуры в разных частях экрана-потом в цикле это можно "размножить" для получения орнамента).

Безотносительно к Maple я бы сначала сгенерировал описания всех объектов (например центры и углы поворота или что-то иное) для нужного куска паркета, а потом уже рисовал их все по этим описаниям. Переносы, повороты, отражения понадобятся только для математических описаний, что довольно тривиальная задача.

[genk]

arseniiv
Ваши рассуждения понятны, но я задал конкретный вопрос о системе Maple: есть ли в ней функция, задающая перенос КОПИИ графического объекта, или нет?

-- 30.09.2020, 18:50 --

EXE
Большое спасибо за сообщение. Это действительно красиво и напоминает фрактальную структуру, хотя и не является орнаментом в строгом смысле слова(плоский орнамент обязан содержать переносы). Мой вопрос о Maple как раз и касается таких переносов. Еще раз спасибо!

[GAA]

В Maple, по крайней мере с 7 версии (в более ранних версиях не обращал внимание), есть geometry package. В этом пакете имеются различные transformations. Среди них — translation. Описание этого пакета вообще и функции translation в частности легко найти в справке Maple.

-- Wed 30.09.2020 18:27:06 --

The geometric objects supported in this package are: point, segment, directed segment, line, triangle, square, circle, ellipse, parabola, hyperbola, and conic (including the degenerate cases). Многоугольник придётся задавать треугольниками.

-- Wed 30.09.2020 18:33:22 --

В пакете plottools есть polygon([[x1, y1], [x2, y2], ..., [xn, yn]], options). Создание нового объекта, который является переносом существующего, вроде элементарно написать самому.

Upd. Вот примитивный пример для polygon: задаются координаты квадрата (PG1), затем строится список квадратов со смещёнными координатами, затем строится список полигонов и, наконец, этот список полигонов выводится (в данном случае на экран). (Проверки не выполняются.)

> with(plottools):
> PoligonTranslation := proc(PG, V)
   local NPG, i;
    NPG:= [];
    for i from 1 to nops(PG) do NPG:= [op(NPG), [PG[i][1]+V[1], PG[i][2]+V[2]]]; end do;
    NPG;
  end proc:
> PG[1]:= [[0,0], [0,1], [1,1], [1, 0]]:
> for i from 2 to 10 do PG[i]:= PoligonTranslation(PG[1], [i-1, i-1]); end do:
> P:= []: for i from 1 to 10 do P:= [op (P), polygon(PG[i])]; end do:
> plots[display](P);

Вложение:

Комментарий к файлу: Maple 15

Polygon.PNG [ 11.13 Кб | Просмотров: 1677 ]

-= Добавлено через несколько часов =-

Но в plottools есть и функция translate.

[genk]

GAA
Спасибо за содержательный ответ.

[genk]

GAA
Здравствуйте.В сообщении от 30.09.2020 Вы писали: Upd. Вот примитивный пример для polygon: задаются координаты квадрата (PG1), затем строится список квадратов со смещёнными координатами, затем строится список полигонов и, наконец, этот список полигонов выводится (в данном случае на экран). (Проверки не выполняются.),а затем привели код программы и вложили получившуюся картинку.
У меня вопрос:как прикрепить картинку,созданную в Maple,в своем сообщении?

[Aritaborian]

genk в сообщении #1487494 писал(а):

У меня вопрос:как прикрепить картинку,созданную в Maple,в своем сообщении?

Слева от поля, где вы набираете сообщение, есть ссылка: "Как вставлять картинки".

[Утундрий]

genk в сообщении #1487494 писал(а):

как прикрепить картинку,созданную в Maple,в своем сообщении?

То, как сделал GAA, для особо покрашенных.