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