Современное программное обеспечение в пользовательском процессе: Сборник заданий по курсу. Глушко А.В - 22 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

pl503 = ParametricPlot3D@8Evaluate@Re@u50@xDDD, Evaluate@Im@u50@xDDD,
Evaluate@xD, Evaluate@sty501@xDD<, Evaluate@g50@uD@@2DDD,
PlotRange Æ All, AxesLabel Æ 8"Reu50HxL", "Imu50HxL", "x"<,
BoxRatios Æ 83.5, 3.0, 3.5<D
-0.25
0
0.25
0.5
Reu50HxL
-0.2
0
0.2
0.4
0.6
Imu50HxL
0
2
4
x
-0.25
0
0.25
0.5
Reu50HxL
-0.2
0
0.2
0.4
0.6
Imu50HxL
Graphics3D
Для перехода к цветному изображению следует воспользоваться функцией
sty502 = 8Hue@# ê6D, Thickness@0.014 - 0.0013 * #D< &;
ParametricPlot3D@Evaluate@
8Evaluate@Re@u50@xDDD, Evaluate@Im@u50@xDDD, x, Evaluate@sty502@xDD<D,
8x, 0, 5.15<, PlotRange Æ All,
AxesLabel Æ 8"Reu50HxL", "Imu50HxL", "x"<, BoxRatios Æ 82.5, 3.5, 2<D
Проверим точность построенного решения. Для граничных условий имеем
Chop@8eq50@u50D@@2DD - v501, eq50@u50D@@3DD - v502<,2* 10 ^-9D
80, 0<
<< Utilities`ShowTime`
z
ad ok7bis.nb 22
zad ok7bis.nb                                                                    22




    pl503 = ParametricPlot3D@8Evaluate@Re@u50@xDDD, Evaluate@Im@u50@xDDD,
          Evaluate@xD, Evaluate@sty501@xDD<, Evaluate@g50@uD@@2DDD,
        PlotRange Æ All, AxesLabel Æ 8"Reu50HxL", "Imu50HxL", "x"<,
        BoxRatios Æ 83.5, 3.0, 3.5

Страницы