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

UptoLike

ВУЗ: 

КФУ | Казань

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

Рубрика: 

Пример.
Найдем бинормаль в нашем примере в точке t0=Pi/4:
bl[f1][0, a]
{1,0,1}
Нарисуем кривую и бинормаль в точке t0 (см. рисунок 26):
t0=Pi/4;
plot1=ParametricPlot3D[Evaluate[bl[f1][t0, a]],
{a, -1, 1},
ViewPoint->{3.384, -2.223, 2.967},
Axes->False, Boxed->False, DisplayFunction->Identity];
plot2=ParametricPlot3D[Evaluate[f1[t]],
{t, -Pi/4, Pi/2},
ViewPoint->{3.384, -2.223, 2.967},
Axes->False, Boxed->False, DisplayFunction->Identity];
Show[plot1, plot2, DisplayFunction->$DisplayFunction];
Рис. 26.
А теперь нарисуем все вместе (см. рисунок 27).
t0=Pi/4;
plot1=ParametricPlot3D[Evaluate[{tl[f1][t0,a],
nl[f1][t0,a],bl[f1][t0,a]}],{a,-1,1},
ViewPoint→{3.384,-2.223,2.967},
Axes→False,Boxed→False,DisplayFunction→Identity];
plot2=ParametricPlot3D[Evaluate[f1[t]],
26
Пример.
  Найдем бинормаль в нашем примере в точке t0=Pi/4:
 bl[f1][0, a]
{1,0,1}
   Нарисуем кривую и бинормаль в точке t0 (см. рисунок 26):
 t0=Pi/4;
plot1=ParametricPlot3D[Evaluate[bl[f1][t0, a]],
{a, -1, 1},
ViewPoint->{3.384, -2.223, 2.967},
Axes->False, Boxed->False, DisplayFunction->Identity];

 plot2=ParametricPlot3D[Evaluate[f1[t]],
{t, -Pi/4, Pi/2},
ViewPoint->{3.384, -2.223, 2.967},
Axes->False, Boxed->False, DisplayFunction->Identity];
 Show[plot1, plot2, DisplayFunction->$DisplayFunction];




                                 Рис. 26.

А теперь нарисуем все вместе (см. рисунок 27).
    t0=Pi/4;
    plot1=ParametricPlot3D[Evaluate[{tl[f1][t0,a],
           nl[f1][t0,a],bl[f1][t0,a]}],{a,-1,1},
    ViewPoint→{3.384,-2.223,2.967},
    Axes→False,Boxed→False,DisplayFunction→Identity];

     plot2=ParametricPlot3D[Evaluate[f1[t]],

                                                              26

Страницы