Дифференциальная геометрия. Исследование пространственных кривых с помощью пакета Mathematica. Кузьмина И.А. - 16 стр.

AspectRatio→Automatic,optspp]

       Теперь для вычерчивания плоской кривой с заданным
натуральным уравнением введите в примере из следующей
ячейки кривизну k(s) (она находится в круглых скобках, которые
заканчиваются знаком &, при этом натуральный параметр s
обозначается символом #), начальное значение "a " натурального
параметра, координаты (c, d) точки P, через которую проходит
кривая при s = a, угол theta0 наклона орта касательной кривой
в точке P к оси абсцисс и промежуток (smin, smax) изменения
натурального параметра s. В примере ниже: k(s) = s+sin[s], a = 0,
(c, d, theta0) = {0, 0, 0}, (smin, smax) = {-18, 18} (см. рисунок 12).



Пример 1.
plotintrinsic[(#+Sin[#])&,0,{0,0,0},{-18,18},
PlotPoints→80]
                                1




                              0.5




            -1       -0.5                      0.5    1




                             -0.5




                               -1



                                    Рис. 12.

    В следующем примере: k(s) = s*sin[s], a = 0, (c, d, theta0) = {0, 0, 0},
(smin, smax) = {-20, 20} (см. рисунок 13).

 Пример 2.
plotintrinsic[(#Sin[#])&,0,{0,0,0},{-20,20},
PlotPoints→80]



                                                                          16