home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / sci / math / symbolic / 2098 < prev    next >
Encoding:
Text File  |  1992-07-28  |  3.1 KB  |  92 lines
  1. Newsgroups: sci.math.symbolic
  2. Path: sparky!uunet!wupost!eclnews!wuee1!fred
  3. From: fred@wuee1.wustl.edu (Fred U. Rosenberger)
  4. Subject: Naive questions on plotting with Mathematica
  5. Message-ID: <1992Jul28.131433.25688@wuecl.wustl.edu>
  6. Sender: usenet@wuecl.wustl.edu (Usenet Administrator)
  7. Nntp-Posting-Host: wuee1
  8. Organization: Washington University, St. Louis Mo.
  9. Distribution: usa
  10. Date: Tue, 28 Jul 1992 13:14:33 GMT
  11. Lines: 79
  12.  
  13. Sorry to ask these naive questions on plotting but I could not find the
  14. answers myself.
  15.  
  16. Is there a good reference to plotting data with Mathematica?
  17. Something better than the Wolfram book (and the Technical Report:
  18. "Guide to Standard Mathematica Packages"?)
  19.  
  20. We are running Mathematica 2.1 on Sun Sparcstations
  21.  
  22.  
  23. (* --------------------------------------------------------------- *)
  24.  
  25.  
  26. (* How does one use ShowLegend?  I could get legends with Plot
  27.    but not with ShowLegend *)
  28.  
  29. <<Graphics`Legend`
  30.  
  31. (* this does not show the legend, it generates a plot with no legend *)
  32. ShowLegend[Plot[{Sin[x], Cos[x]},{x,-2 Pi, 2Pi}], PlotLegend -> {"S","C"}]
  33.  
  34. *( This draws the plot and the legend *)
  35. Plot[{Sin[x], Cos[x]},{x,-2 Pi, 2 Pi}, PlotLegend -> {"S","C"}]
  36.  
  37.  
  38. (* ---------------------------------------------------------------- *)
  39.  (* TEST CASE FOR LABELING ALL FOUR FRAME EDGES, PUTS TICKS BUT DOES NOT
  40.     LABEL TOP OR RIGHT EDGE OF FRAME.
  41.     As I read description on page 422 of Wolfram's second edition (1991),
  42.     I should be able to set labels for ticks on all four edges of frame.
  43.     I want to do this to get two different scales.
  44.     But, my attempts to label tick marks on the top or right side of
  45.     the frame fail.  Ticks are placed as specified but
  46.     no labels.  I can set labels on the bottom and left side of 
  47.     the frame as the example shows.
  48.  *)
  49.  
  50.   Plot[Np, {Np, 1, 32},
  51.     FrameLabel -> {"Number of Processors" ,"Speedup",
  52.        "","Time in hours"},
  53.     Frame -> True,
  54.     FrameTicks -> {{1,2,4,{8,"testbot"},16,32,64},
  55.       {1,2,4,8,16,{32,"testleft"},64},
  56.       { {16, "testtop"}, 32},
  57.       { {1,"testright"}, 4, 8,16, 32}}
  58.     ]
  59.  
  60.  
  61. (* -------------------------------------------------------------- *)
  62.   (* How do I change linewidth on plotting symbols?               *)
  63.   (* I'd like to make the the linewidth used for triang and star  *)
  64.   (* in the following example narrower, its too wide for my taste  *)
  65.  
  66. <<Graphics`MultipleListPlot`
  67. triang = RegularPolygon[3, 0.013, {0, 0}, 0, 2]
  68. star = RegularPolygon[5, 0.013, {0, 0}, 0, 2]
  69. $DotShapes = { MakeSymbol[triang], MakeSymbol[star]}
  70. p1 = Table[{y, y^2}, {y, 0, 6}]
  71. p2 = Table[{x, x^1.5}, {x, 0, 6}]
  72.   MultipleListPlot[p1, p2]
  73. Display["plot.ps",%]
  74.  
  75. (* -------------------------------------------------------------- *)
  76. (* Is there something like MultipleListLogPlot ?
  77.    I found MultipleListPlot and ListLogPlot but I want multiple
  78.    lists on one plot with a log scale                             *)
  79.  
  80. In[1]:= <<Graphics`Graphics`
  81.  
  82. In[2]:= <<Graphics`MultipleListPlot`
  83.  
  84. In[3]:= ?LogMultipleListPlot
  85.  
  86. Information::notfound: Symbol LogMultipleListPlot not found.
  87.  
  88. In[3]:= ?MultipleLogListPlot
  89.  
  90. Information::notfound: Symbol MultipleLogListPlot not found.
  91.  
  92.