MathGroup Archive 2008

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

Search the Archive

Re: PlotMarkers Broken

  • To: mathgroup at smc.vnet.net
  • Subject: [mg84537] Re: PlotMarkers Broken
  • From: "Steve Luttrell" <steve at _removemefirst_luttrell.org.uk>
  • Date: Thu, 3 Jan 2008 05:32:38 -0500 (EST)
  • References: <200801020617.BAA10488@smc.vnet.net> <flfu5h$jpe$1@smc.vnet.net>

RevolutionPlot3D plots a surface of revolution in Mathematica 6.

Stephen Luttrell
West Malvern, UK

"Jaccard Florian" <Florian.Jaccard at he-arc.ch> wrote in message 
news:flfu5h$jpe$1 at smc.vnet.net...
> Hello Scott!
>
> I noticed the same problem.
> For a lot of issues in the <<Graphics` package, the 5.2 was much better
> then 6.0.
>
> For example, with 6.0, you have to know a lot of Mathematica subtilities
> :
>
> data=Table[{RandomReal[{-10,10}],RandomReal[{-10,10}]},{10}];
> ListPlot[data,PlotRange->{{-12,12},{-12,12}},Frame->True,Axes->None,Epilog->{Text["mesure 
> "<>ToString[Position[data,#][[1,1]]],#,{-1,1}]&/@data}]
>
> But with 5.2, the same output was very easy to obtain :
>
> data=Table[{Random[Real,{-10,10}],Random[Real,{-10,10}],StringJoin["mesure",ToString[i]]},{i,1,10}];
> <<Graphics`
> LabeledListPlot[data,PlotRange->{{-12,12},{-10,10}},Frame->True,Axes->None];
>
> I also miss a lot ImplicitPlot.
>
> For example, with 5.2 :
> <<Graphics`
> ImplicitPlot[x^2+3y^2==4,{x,-3,3}]
>
> For the same Output in 6.0, you have to write much more :
> ContourPlot[x^2+3y^2==4,{x,-3,3},{y,-2,2},AspectRatio->Automatic,Axes->True,Frame->False,AxesLabel->{"x","y"}]
>
> I'm afraid Wolfram has also completely forgotten useful things for 
> students. For example SurfaceOfRevolution.
>
> If you want to rotate around the x-axis, with 5.2, it was very easy :
>
> <<Graphics`
> SurfaceOfRevolution[Cos[x],{x,0,2*Pi]},RevolutionAxis->{1,0,0}];
>
> But with 6.0, you have to know much more maths... so the average student 
> may not be able to obtain the surface!
>
> ParametricPlot3D[{x,Sin[x]Cos[\[Theta]],Sin[x]Sin[\[Theta]]},{x,0,2\[Pi]},{\[Theta],0,2\[Pi]},AxesLabel->{x,y,z}]
>
> So I really agree with Scott: Wolfram, please, let come back the 
> <<Graphics` package!
>
> Jaccard Florian
>
>
>
> -----Message d'origine-----
> De=A0: Scott [mailto:sguthery at gmail.com]
> Envoy=E9=A0: mercredi, 2. janvier 2008 07:17
> =C0=A0: mathgroup at smc.vnet.net
> Objet=A0:  PlotMarkers Broken
>
> Not only is the help system in 6.0 a giant step backward from 5.x but
> ListPlots have been gutted.  TextListPlot and LabelListPlot are both
> gone and we are I guess supposed to use PlotMarkers to get the same
> functionality.
>
> Unfortunately, no backward compatibility with TextListPlot is possible
> since one has to wrap each point up as a one-element list.  But even
> doing this PlotMarkers is broken.  For example, in the following for
> some unknown reason a '1' is written over each marker making the
> result a mess.
>
> ListPlot[{{{1, 1}}, {{2, 2}}, {{3, 3}}},
> PlotRange -> {{0, 4}, {0, 4}},
> PlotMarkers -> {{1, 20}, {2, 20}, {3, 20}}, PlotStyle -> Black]
>
> Please, Wolfram.  If it ain't broke, don't fix it.
>
> Cheers, Scott
>
>
> 



  • Prev by Date: Re: small init.m problem
  • Next by Date: Complex elimination and possible Integrate[] bug -- advice sought
  • Previous by thread: Re: PlotMarkers Broken
  • Next by thread: Re: PlotMarkers Broken