Re: How to draw a discontinuous function (set of points)
- To: mathgroup at smc.vnet.net
- Subject: [mg79337] Re: [mg79302] How to draw a discontinuous function (set of points)
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 25 Jul 2007 02:03:15 -0400 (EDT)
- Reply-to: hanlonr at cox.net
data = Table[{x, Mod[x^2, 1000]}, {x, 0, 999}];
ListPlot[data,
PlotStyle -> {Hue[.6], PointSize[0.01]},
AxesLabel -> {n, Mod[x^2, 1000]},
LabelStyle -> {FontFamily -> "Times", FontSize -> 14}]
Bob Hanlon
---- Domnul Mihnea <domnul_mihnea at yahoo.com> wrote:
> Hello!
>
> I would like to draw the graph of the following function in Mathematica 6, f : Zn -> Zn, f(x) = x^2 (mod n), n given. I wanted to use the plot function (n being 1000) as in:
>
> Plot[Mod[x^2,1000], {x, 0, 999}, PlotStyle -> {Hue[.6], PointSize[0.01]}, AxesLabel -> {n, Mod[x^2,1000]}, TextStyle -> {FontFamily -> "Times", FontSize -> 14}]
>
> The problem is that Plot draws the graph for ALL the real points x between 0 and 999 (the interval [0,999]), when I would require the function to be applied just to the set natural numbers from 0 to 999 (the graph should be just a set of points).
>
> Thanks for reading my post! Any help would be more than welcome!
>