1. Getting Started

Legal Notice, Disclaimer, and Book Ordering Information:

Null

1.6 Graphics

Setup

\(Clear["Global`*`"]; 
Off[General::spell]; 
Off[General::spell1]; 
    \)

1.6.3  Shadowing

Note:  The commands in  this section using Mathematica v.3.0.1  show a different behavior
    from that shown in the book (using Mathematica v.2.x).  See Below

Context[ScaleFunction]

Needs["Graphics`PlotField`"];

Note:  The shadowing is between the "Global`" context and the "Graphics`Common`GraphicsCommon`" context.

Context[ScaleFunction]

Context[Graphics`PlotField`ScaleFunction]

Context[Graphics`Common`GraphicsCommon`ScaleFunction]

PlotGradientField[
      (1/(Sqrt[(x^2) + (y^2)])), {x, -5, 5, 2}, {y, -5, 5, 2}];

\(\(PlotGradientField[
      1\/\@\(x\^2 + y\^2\), {x, \(-5\), 5, 2}, {y, \(-5\), 5, 2}
	, 
      ScaleFunction -> \((1&)\)]; \)\)

\(\(PlotGradientField[
      1\/\@\(x\^2 + y\^2\), {x, \(-5\), 5, 2}, {y, \(-5\), 5, 2}
	, 
      Graphics`PlotField`ScaleFunction -> \((1&)\)]; \)\)

Note:  For constant-length vectors, the  command below works, while none of the above commands do.

\(\(PlotGradientField[
      1\/\@\(x\^2 + y\^2\), {x, \(-5\), 5, 2}, {y, \(-5\), 5, 2}
	, 
      Graphics`Common`GraphicsCommon`ScaleFunction -> \((1&)\)]; \)\)

1.6.5  Three-Dimensional Graphics

\(\(Plot3D[Log[x\^2 + y\^2], {x, \(-20\), 20}, {y, \(-20\), 20}
	, 
      PlotPoints -> 35
	, AspectRatio -> 1
	, 
      Boxed -> False
	, Axes -> None]; \)\)

1.6.6  Space Curve

coordinates = {Cos[2 t + (π/4)], 2 Cos[2 t], Cos[3 t]};

\(\(ParametricPlot3D[Evaluate[coordinates], {t, 0, 10\ π}
	, 
      PlotPoints -> 300]; \)\)