Re: what is wrong with this code?
- To: mathgroup at smc.vnet.net
- Subject: [mg130325] Re: what is wrong with this code?
- From: psycho_dad <s.nesseris at gmail.com>
- Date: Wed, 3 Apr 2013 04:08:22 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kje13u$grc$1@smc.vnet.net>
You're just seeing some artifacts. Increasing the plotpoints gives a better looking plot:
f[x_] := If[EvenQ[IntegerPart[x]], 0.4, 0.8];
Plot[f[x], {x, 1, 101}, PlotRange -> {0, 1}, PlotPoints -> 69]
BTW, next time try to be a bit more descriptive than just "what's wrong with this", OK?