How can I display a plot as points instead of a connected line?

Question

I have a parametric plot that, when put into Wolfram|Alpha, makes a graph. The function is as follows:

parametric plot ( 1*sqrt((2*1.5*1*n)/1)*cos(sqrt((2*1.5*1*n)/1)), 1*sqrt((2*1.5*1*n)/1)*sin(sqrt((2*1.5*1*n)/1)) ), n = 0..40

The final part, n = 0..40, is an arithmetic sequence that describes the range of the plot (which is a spiral).

How can I make W|A display, instead of a smooth line, 40 unconnected points?

Thank you very much!

related https://mathematica.stackexchange.com/q/50581/2079 (Simply add PlotStyle->None to get rid of the line ) — george2079, Jun 27 '17 at 21:12
Note that questions like "How can I make W|A display" are off-topic: "Some kinds of questions are considered off-topic: Questions on Wolfram Alpha (but questions on using Wolfram Alpha within Mathematica are okay)...". — Michael E2, Jun 28 '17 at 02:59

score 2 · Accepted Answer · answered Jun 27 '17 at 21:00

2

Writing:

ParametricPlot[Sqrt[3 n] {Cos[Sqrt[3 n]], Sin[Sqrt[3 n]]}, {n, 0, 40}, AspectRatio -> 1]

I get:

while writing:

ListPlot[Table[Sqrt[3 n] {Cos[Sqrt[3 n]], Sin[Sqrt[3 n]]}, {n, 0, 40}], AspectRatio -> 1]

I get:

which is what you want.

answered Jun 27 '17 at 21:00

πρόσεχε

4,452
1
12
28

Thanks for your answer, I'll give Mathematica a shot. Do you know if it's possible in Wolfram|Alpha itself? – snazzybouche Jun 27 '17 at 21:12

Bill W. · Answer 2 · 2017-06-28T14:50:01.273

0

@TeM_I count 41 points in your ListPlot:

ListPlot[Table[Sqrt[3 n] {Cos[Sqrt[3 n]],Sin[Sqrt[3 n]]},{n,0,40}],Axes->None,AspectRatio->1]

I would have posted this as a comment, but I don't have 50 points.

@snazzybouche : I understood you asked to display 40 points, not 41 points.

My statement was correct. Why the down vote?

edited Jun 28 '17 at 14:50

answered Jun 27 '17 at 22:43

Bill W.

183
2
7

41 would be correct as the array of points starts at 0 – snazzybouche Jun 28 '17 at 00:03
this seems to be exactly the same as TeM's answer. I didn't vote but that might be why. – george2079 Jun 28 '17 at 15:45

score 0 · Answer 3 · answered Jun 29 '17 at 06:41

@george2079_I basically used TeM's code to show that there were indeed, 41 points plotted. The OP asked for 40 points, not 41. This will plot 40 points:

ListPlot[Table[Sqrt[3 n] {Cos[Sqrt[3 n]],Sin[Sqrt[3 n]]},{n,0,39}],Axes->None,AspectRatio->1]

If the OP is satisified with the answer previously given, that's fine. I have no problem with that. I was just asking why I was down voted when my answer was true. If we're drilling holes in a part, 41 holes would ruin the piece, and be cause for rejection.

How can I display a plot as points instead of a connected line?

3 Answers3