Solution

In[17]:=

Options[Plot]

Out[17]=

{AspectRatio1/GoldenRatio, AxesAutomatic, AxesLabelNone, AxesOrigin& ... Prolog {}, RotateLabelTrue, TextStyle$TextStyle, TicksAutomatic}

In[18]:=

??PlotStyle

PlotStyle is an option for Plot and ListPlot that specifies the style of lines or points to be plotted. More…

Attributes[PlotStyle]={Protected}

See the help file for PlotStyle. Options for Plot are used like this: (try also Hue instead of RGBColor)

In[19]:=

(*1*)Plot[{Sin[x], Cos[x]}, {x, -Pi, Pi}, PlotStyle {{RGBColor[1, 0, 0], Thickness[0.001]}, {RGBColor[0, 1, 0], Thickness[0.01]}}]

[Graphics:../HTMLFiles/ex02_solutions_58.gif]

Out[19]=

⁃Graphics⁃

In[20]:=

(*2*)Plot[Cos[2000Sin[x]], {x, 0, Pi}]

[Graphics:../HTMLFiles/ex02_solutions_61.gif]

Out[20]=

⁃Graphics⁃

Pull the graph larger to see the effect of a small number of plotting points.

In[21]:=

Plot[Cos[2000Sin[x]], {x, 0, Pi}, PlotPoints300]

[Graphics:../HTMLFiles/ex02_solutions_64.gif]

Out[21]=

⁃Graphics⁃

Created by Mathematica  (April 10, 2007) Valid XHTML 1.1!