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

UptoLike

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

p501 =
Plot@8Evaluate@Abs@u50@xDDD, Evaluate@Re@u50@xDDD, Evaluate@Im@u50@xDDD<,
Evaluate@g50@uD@@2DDD, PlotStyle Æ
88Thickness@0.0053D, GrayLevel@0.1D<, 8Dashing@80.02, 0.02<D<,
8Dashing@80.04, 0.04<D<<, GridLines Æ AutomaticD
1 2 3 4 5
-0.4
-0.2
0.2
0.4
0.6
0.8
Graphics
При желании можно построить эти графики в цвете, если заменить команду
p
501 на следующую
p502 =
Plot@8Evaluate@Abs@u50@xDDD, Evaluate@Re@u50@xDDD, Evaluate@Im@u50@xDDD<,
Evaluate@g50@u@xDD@@2DDD, PlotStyle 88Thickness@0.0055D,
RGBColor@0, 0, 0D<, 8RGBColor@1, 0, 0D<,
8RGBColor@0, 1, 0D<<, GridLines Æ AutomaticD
График решения задачи 5 можно изобразить в трёхмерном пространстве,
откладывая на осях Reu50[x], Imu50[x], x. Предварительно введём
функцию sty501 и вызовем подпакет для построения графиков
параметрически заданных кривых в трёхмерном пространстве.
sty501 = 8Thickness@0.014 - 0.0013 * #D, GrayLevel@0.0 + 0.02 * #D< &;
<< Graphics`ParametricPlot3D`
z
ad ok7bis.nb 21
zad ok7bis.nb                                                                 21




    p501 =
      Plot@8Evaluate@Abs@u50@xDDD, Evaluate@Re@u50@xDDD, Evaluate@Im@u50@xDDD<,
        Evaluate@g50@uD@@2DDD, PlotStyle Æ
          [email protected], [email protected]<, [email protected], 0.02