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

Re: A question about plotting

• To: mathgroup at yoda.ncsa.uiuc.edu
• Subject: Re: A question about plotting
• From: uunet!kinghorn.chem.WSU.EDU!don (Don Kinghorn)
• Date: Sat, 16 Jun 90 15:46:28 PDT

>...
>I am trying to plot two lists on one plot but with
>different point styles. I cannot find anything in
>the documentation on how to specify a point style.
>...

If you don't mind using ascii characters for your points you could try using the
TextListPlot  function found in the Graphics.m package.

EXAMPLE;
In[1]:= <<Graphics/Graphics.m

In[2]:= xdata1= {1,2,3,4}; xdata2 = {1,2,3,4};

In[3]:= ydata1= {1,2,3,4}; ydata2 = {1,4,9,16};

In[4]:= symbol1 = Table[ "+" ,{ Length[xdata1] } ];

In[5]:= symbol2 = Table[ "*" ,{ Length[xdata2] } ];

In[6]:= data1 = Transpose[ {xdata1, ydata1, symbol1} ];

In[7]:= data2 = Transpose[ {xdata2, ydata2, symbol2} ];

In[8]:= dataplot1=TextListPlot[data1];

In[9]:= dataplot2= TextListPlot[data2];

In[10]:= Show[dataplot1,dataplot2]

If you want the points connected or overlayed with curve fits you can make additional
plots and put them all together and set options with Show.

To get at special ascii characters you can use FromASCII[n] or FromASSCII[16^^hex]

I hope this is of some help.

--Don Kinghorn