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 option. 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 WRI