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

UptoLike

ВУЗ: 

КФУ | Казань

Составители: 

Рубрика: 

ViewPoint->{1, 1, 3},
AxesEdge →Automatic, DisplayFunction->Identity],
DisplayFunction →$DisplayFunction];
-1
0
1
2
-1
0
1
2
3
0
2
4
Рис. 21.
4.2. Нарисуем поверхность, образованную всеми касательными
нашей кривой - развёртывающуюся поверхность (см. рисунок 22):
ParametricPlot3D[Evaluate[tl[f][t, a]],
{a, -3, 3}, {t, -Pi, Pi},
ViewPoint->{-2.659, -1.717, 1.196},
Axes->False, Boxed->False, Lighting → False,
Shading → False, PlotPoints->{20, 10}];
Рис. 22.
4.3. На первую и вторые производные натянута соприкасающаяся
плоскость:
22
ViewPoint->{1, 1, 3},
AxesEdge →Automatic, DisplayFunction->Identity],
DisplayFunction →$DisplayFunction];

                               4



                                2

                               -1   -1
                                0
                           0             0

                       1                     1

                   2                             2

                                                     3




                                Рис. 21.

4.2. Нарисуем поверхность, образованную всеми касательными
нашей кривой - развёртывающуюся поверхность (см. рисунок 22):
 ParametricPlot3D[Evaluate[tl[f][t, a]],
{a, -3, 3}, {t, -Pi, Pi},
ViewPoint->{-2.659, -1.717, 1.196},
Axes->False, Boxed->False, Lighting → False,
Shading → False, PlotPoints->{20, 10}];




                                Рис. 22.

4.3. На первую и вторые производные натянута соприкасающаяся
плоскость:

                                                                22

Страницы