MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Adding identification marks to a Plot

  • To: mathgroup at christensen.Cybernetics.NET
  • Subject: [mg862] Re: [mg791] Adding identification marks to a Plot
  • From: twj (Tom Wickham-Jones)
  • Date: Thu, 27 Apr 1995 01:34:31 -0400

Joseph McWilliams writes

>The program below will plot f[n,x] for k values of the parameter n for x 

>in the interval [a,b], all on the same axis. Is there any way to place 

>markers next to each plotted function so they can be distinguished from 

>one another?  Color is out, this is for a grey scale NeXT station.  

>Show[Table[Plot[f[n,x],{x,a,b}, DisplayFunction->Identity], {n,1,k}], 

>DisplayFunction -> $DisplayFunction]

You could plot one line dashed.  This can be done with the PlotStyle

In[6]:= Plot[ {Sin[x], Cos[x]}, {x,0,2Pi},
                PlotStyle -> {{Thickness[0.001]}, {Dashing[{0.01}]}}]

Out[6]= -Graphics-

The standard package Graphics`Legend` adds the capability 

to include a legend in the picture.

In[7]:= <<Graphics`Legend`

In[8]:= Plot[ {Sin[x], Cos[x]}, {x,0,2Pi},
                PlotStyle -> {{Thickness[0.001]}, {Dashing[{0.01}]}},
                PlotLegend -> {"Sin", "Cos"}]

Out[8]= -Graphics-

Tom Wickham-Jones

  • Prev by Date: [Q] How to use NonlinearFit[...]
  • Next by Date: Options to Power Expand
  • Previous by thread: Re: Adding identification marks to a Plot
  • Next by thread: Mathematica Training