MathGroup Archive 1995

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

Search the Archive

Re: Adding identification marks to a Plot


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




  • 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