Section 14.1: Vector Field

Example 14.1.0 p. : Radial Vector Field

p1 = {-2, 1};
p2 = {0.5, -1};

example14p1p0 = GraphicsRow[
	{
		Show[
			VectorPlot[
					{2x,2y},
					{x,-5,5},
					{y,-5,5},
					Frame-> False,
					AxesOrigin->{0,0},
					Axes-> True,
					PlotLabel->Style[Framed["Radial Vector Field Plot: Example 14.1.0"], FontSize->16]
			],(*end: VectorPlot command*)
			Graphics[{RGBColor[1,0,1], PointSize[0.02], Point[{p1}]}],
			Graphics[{RGBColor[1,0,0], PointSize[0.02], Point[{p2}]}]
		],

		StreamPlot[
			{2x,2y},
			{x,-5,5},
			{y,-5,5},
			StreamPoints->{
							{
								{p1,RGBColor[1,0,1]},
								{p2,RGBColor[1,0,0]},
								Automatic
							}
						},
			Frame-> False,
			AxesOrigin->{0,0},
			Axes-> True,
			PlotLabel->Style[Framed["Stream Line Plot for Radial Vector Field: Example 14.1.0"], FontSize->16]
		](*end: StreamPlot command*)
	},
	ImageSize->{1200, 600}
];(*end: GraphicsRow*)

Example 14.1.1, part A p. : Shear Vector Field

p1 = {-2, 1};
p2 = {0.5, -1};

example14p1p1A = GraphicsRow[
	{
		Show[
			VectorPlot[
					{0,x},
					{x,-5,5},
					{y,-5,5},
					Frame-> False,
					AxesOrigin->{0,0},
					Axes-> True,
					PlotLabel->Style[Framed["Shear Vector Field Plot: Example 14.1.1a"], FontSize->16]
			],(*end: VectorPlot command*)
			Graphics[{RGBColor[1,0,1], PointSize[0.02], Point[{p1}]}],
			Graphics[{RGBColor[1,0,0], PointSize[0.02], Point[{p2}]}]
		],

		StreamPlot[
			{0,x},
			{x,-5,5},
			{y,-5,5},
			StreamPoints->{
							{
								{p1,RGBColor[1,0,1]},
								{p2,RGBColor[1,0,0]},
								Automatic
							}
						},
			Frame-> False,
			AxesOrigin->{0,0},
			Axes-> True,
			PlotLabel->Style[Framed["Stream Line Plot for Shear Vector Field: Example 14.1.1a"], FontSize->16]
		](*end: StreamPlot command*)
	},
		ImageSize->{1200, 600}
];(*end: GraphicsRow*)

Example 14.1.1, part B p. : Channel Flow Vector Field

p1 = {-2, 0.5};
p2 = {0.5, -1};

example14p1p1B = GraphicsRow[
	{
		Show[
			VectorPlot[
					{1-(y^2),0},
					{x,-5,5},
					{y,-1,1},
					Frame-> False,
					AxesOrigin->{0,0},
					Axes-> True,
					PlotLabel->Style[Framed["Channel Flow Vector Field Plot: Example 14.1.1b"], FontSize->16]
			],(*end: VectorPlot command*)
			Graphics[{RGBColor[1,0,1], PointSize[0.02], Point[{p1}]}],
			Graphics[{RGBColor[1,0,0], PointSize[0.02], Point[{p2}]}]
		],

		StreamPlot[
			{1-(y^2),0},
			{x,-5,5},
			{y,-1,1},
			StreamPoints->{
							{
								{p1,RGBColor[1,0,1]},
								{p2,RGBColor[1,0,0]},
								Automatic
							}
						},
			Frame-> False,
			AxesOrigin->{0,0},
			Axes-> True,
			PlotLabel->Style[Framed["Stream Line Plot for Channel Flow Vector Field: Example 14.1.1b"], FontSize->16]
		](*end: StreamPlot command*)
	},
	ImageSize->{1200, 600}
];(*end: GraphicsRow*)

Example 14.1.1, part C p. : Rotational Vector Field

p1 = {-2,4};
p2 = {0.5, -1};

example14p1p1C = GraphicsRow[
	{
		Show[
			VectorPlot[
					{-y,x},
					{x,-5,5},
					{y,-5,5},
					Frame-> False,
					AxesOrigin->{0,0},
					Axes-> True,
					PlotLabel->Style[Framed["Rotational Vector Field Plot: Example 14.1.1c"], FontSize->16]
			],(*end: VectorPlot command*)
			Graphics[{RGBColor[1,0,1], PointSize[0.02], Point[{p1}]}],
			Graphics[{RGBColor[1,0,0], PointSize[0.02], Point[{p2}]}]
		],

		StreamPlot[
			{-y,x},
			{x,-5,5},
			{y,-5,5},
			StreamPoints->{
							{
								{p1,RGBColor[1,0,1]},
								{p2,RGBColor[1,0,0]},
								Automatic
							}
						},
			Frame-> False,
			AxesOrigin->{0,0},
			Axes-> True,
			PlotLabel->Style[Framed["Stream Line Plot for Rotational Vector Field: Example 14.1.1c"], FontSize->16]
		](*end: StreamPlot command*)
	},
	ImageSize->{1200, 600}
];(*end: GraphicsRow*)