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

UptoLike

ВУЗ: 

КФУ | Казань

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

Рубрика: 

{t,-1/2,1/2},{a,-1/2,1/2},
ViewPoint->{-7.109, -5.426, 0.916},
Shading→False,Lighting->False]
Рис. 18.
-2
0
2
0
1
2
-2
0
2
nv[r_][t_]:=
Cross[D[r[u], u],
Cross[D[r[u], u], D[r[u], {u, 2}]]]/.u->t
un[v_]:=v/Sqrt[v.v]
ParametricPlot3D[Evaluate[f[t]+a*un[nv[f][t]]],
{t,-1,1},{a,-1/3,1/3},
ViewPoint->{-8.241, 2.394, 2.677},
Shading→False,Lighting->False,
PlotPoints→{10,3}]
-2
-1
0
1
2
0
1
2
3
-4
-2
0
2
4
-2
-1
0
1
Рис. 19.
20
                  {t,-1/2,1/2},{a,-1/2,1/2},
 ViewPoint->{-7.109, -5.426, 0.916},
 Shading→False,Lighting->False]
               -2             0            2




           2




           0




          -2




               2        1          0
                                           Рис. 18.
nv[r_][t_]:=
Cross[D[r[u], u],
Cross[D[r[u], u], D[r[u], {u, 2}]]]/.u->t
 un[v_]:=v/Sqrt[v.v]
 ParametricPlot3D[Evaluate[f[t]+a*un[nv[f][t]]],
                        {t,-1,1},{a,-1/3,1/3},
 ViewPoint->{-8.241, 2.394, 2.677},
 Shading→False,Lighting->False,
 PlotPoints→{10,3}]


                                                              4




                                                              2




                                                              0



                                                              -2

                    2
                        1
                            0
                            -1                                -4
                              -2                          0
                                               2      1
                                       3

                                           Рис. 19.

                                                                   20

Страницы