Сглаживание линией точечного графика в Maple

[reterty]

Вот уже третий день вожусь с попыткой построения гладкой кривой при заданном массиве точек: [[0, 1], [0.1, 0.9930], [0.2, 0.9895], [0.4, 0.9688], [0.6, 0.9400], [0.8, 0.9033], [1, 0.8691], [1.2, 0.8319], [1.4, 0.7945], [1.6, 0.7586], [1.8, 0.7251], [2.2, 0.6659], [3, 0.5759], [4, 0.4998], [6, 0.4082]]. Пробовал в Maple функцию "Spline" и "PolynomialInterpolation" но выходит абракадра, тогда как по pointplot видно что функция очень прозаическая. Прошу помочь с проблемой сглаживания графика сплошной кривой.

[GAA]

В текущих версиях Maple, я не находил сглаживающих сплайнов. Если воспользоваться интерполирующим сплайном, то получится линия с некоторым провалом вниз на второй точке. Если её отбросить, то получится вполне плавная линия. Maple 15:

 > data:= [[0, 1], [0.1, 0.9930], [0.2, 0.9895], [0.4, 0.9688], [0.6, 0.9400], [0.8, 0.9033], [1, 0.8691], [1.2, 0.8319], [1.4, 0.7945], [1.6, 0.7586], [1.8, 0.7251], [2.2, 0.6659], [3, 0.5759], [4, 0.4998], [6, 0.4082]]:
> f:= CurveFitting[Spline](data, v):
> data_c:= [[0, 1], [0.2, 0.9895], [0.4, 0.9688], [0.6, 0.9400], [0.8, 0.9033], [1, 0.8691], [1.2, 0.8319], [1.4, 0.7945], [1.6, 0.7586], [1.8, 0.7251], [2.2, 0.6659], [3, 0.5759], [4, 0.4998], [6, 0.4082]]:
> f_c:= CurveFitting[Spline](data_c, v):
> plots[display]([plot([f, f_c], v=0..6, color=[blue, red]), plot(data, color=black, style=point, symbol=box, symbolsize=14)]);

Вложение:

Spline.PNG [ 13.28 Кб | Просмотров: 0 ]

Непонятно, что (в каком смысле) сглаживать. На всякий случай: если нужно воспользоваться готовым средством, то можно попробовать Matlab (в пакете CurveFitting реализован сглаживающий сплайн).

[reterty]

GAA в сообщении #1623022 писал(а):

В текущих версиях Maple, я не находил сглаживающих сплайнов. Если воспользоваться интерполирующим сплайном, то получится линия с некоторым провалом вниз на второй точке. Если её отбросить, то получится вполне плавная линия. Maple 15:

 > data:= [[0, 1], [0.1, 0.9930], [0.2, 0.9895], [0.4, 0.9688], [0.6, 0.9400], [0.8, 0.9033], [1, 0.8691], [1.2, 0.8319], [1.4, 0.7945], [1.6, 0.7586], [1.8, 0.7251], [2.2, 0.6659], [3, 0.5759], [4, 0.4998], [6, 0.4082]]:
> f:= CurveFitting[Spline](data, v):
> data_c:= [[0, 1], [0.2, 0.9895], [0.4, 0.9688], [0.6, 0.9400], [0.8, 0.9033], [1, 0.8691], [1.2, 0.8319], [1.4, 0.7945], [1.6, 0.7586], [1.8, 0.7251], [2.2, 0.6659], [3, 0.5759], [4, 0.4998], [6, 0.4082]]:
> f_c:= CurveFitting[Spline](data_c, v):
> plots[display]([plot([f, f_c], v=0..6, color=[blue, red]), plot(data, color=black, style=point, symbol=box, symbolsize=14)]);

Вложение:

Spline.PNG

Непонятно, что (в каком смысле) сглаживать. На всякий случай: если нужно воспользоваться готовым средством, то можно попробовать Matlab (в пакете CurveFitting реализован сглаживающий сплайн).

Спасибо огромное Вам!