Атрибуты

Пример 1

Спираль Archimedes задана f (r) = (r  sin (r), r  cos (r)). Соответствующий вызов чтений plot::Curve2d:

curve := plot::Curve2d([r*sin(r), r*cos(r)], r = 0..35)

plot(curve)

Обратите внимание на то, что этот конкретный пример является еще более прямым, чтобы построить использование plot::Polar.

Пример 2

При продолжении примера сверху, задайте легкую анимацию путем создания угловой части зависящей от времени:

curve := plot::Curve2d([r*sin(r-t), r*cos(r-t)],
                       r = 0..35, t = 0..2*PI,
                       TimeEnd = 5,
                       ViewingBox = [-25..25, -25..25]):
plot(curve)

Обратите внимание на то, что, чтобы запустить анимацию, необходимо дважды кликнуть изображение в блокноте и выбрать "Start" из меню “Animation”.

Пример 3

Другой полезный и легкий тип анимации достигается путем анимации области значений параметра. Это создает иллюзию кривой, чертившей в режиме реального времени:

curve := plot::Curve2d([sin(thet), cos(thet)],
                       thet = 0..a,
                       a = 0..2*PI):
plot(curve)

Комбинируя это с анимированным LineColorFunction, можно даже моделировать движение:

colorfunc := (thet, x, y, a) -> [a-thet, a-thet, 1.0]:
curve := plot::Curve2d([sin(3*thet), sin(4*thet)],
                       thet = a-1..a,
                       LineColorFunction = colorfunc,
                       LineWidth = 1,
                       a = 0..2*PI):
plot(curve)

Пример 4

Кривые с полюсами автоматически отсекаются:

curve := plot::Curve2d([(1+tan(3*t)^2)*sin(t),
                        (1+tan(3*t)^2)*cos(t)],
                       t = 0..2*PI):
plot(curve);

Можно явным образом установить другие значения для просмотра поля:

curve::ViewingBox := [-2..2, -2..2]:
plot(curve)

Пример 5

По умолчанию кривые чертятся путем оценки в равноотстоящих значениях параметра кривой. Для кривых, которые имеют немного областей высокого искривления, это может быть несоответствующим:

plot(plot::Curve2d([arctan(t), t^2-10*exp(-50*t^2)],
                   t = -PI..PI))

Отметьте твердую “петлю” в нижней части изображения. С другой стороны, остаток от кривой достаточно сглажен, таким образом, глобально увеличение числа точек оценки не желательно. AdaptiveMesh заставляет plot::Curve2d искать эти петли и адаптивно повысить плотность mesh в проблематичных областях:

plot(plot::Curve2d([arctan(t), t^2-10*exp(-50*t^2)],
                   t = -PI..PI, AdaptiveMesh = 2))

Пример 6

Чтобы отобразить кривую в комплексной плоскости, сопоставьте функциональный [Re, Im] со знаком списка с кривой:

plot(plot::Curve2d([Re, Im](zeta(I*y+1/2)), y=0..42,
                   AdaptiveMesh=3),
     XAxisTitle = "Re(z)", YAxisTitle = "Im(z)")