Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1990
*January
*February
*March
*April
*May
*June
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1990

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

Search the Archive

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









  • Prev by Date: A question about plotting
  • Next by Date: Re: A question about plotting
  • Previous by thread: A question about plotting
  • Next by thread: Re: A question about plotting