Re: IntegerPart
- To: mathgroup at smc.vnet.net
- Subject: [mg130319] Re: IntegerPart
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Tue, 2 Apr 2013 03:30:29 -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: <20130401045851.848996A96@smc.vnet.net>
The problem is not with IntegerPart, it is with the default setting for
PlotPoints in Plot. You are undersampling since the default value is too
low for your function.
Clear["Global`*"]
nSize = 100;
prefstate = Table[0, {nSize}];
Do[{prefstate[[i]] =
If[EvenQ[i], 0.8, 0.4]},
{i, nSize}];
Plot[
prefstate[[IntegerPart[x]]],
{x, 1, nSize + 1},
AxesOrigin -> {0, 0},
TicksStyle -> 18,
PlotStyle -> Black,
PlotPoints -> 125]
Alternatively, use SquareWave instead of prefstate
Plot[
SquareWave[{0.4, 0.8}, x/2],
{x, 1, nSize + 1},
AxesOrigin -> {0, 0},
TicksStyle -> 18,
PlotStyle -> Black,
PlotPoints -> 125,
ExclusionsStyle -> Black]
Bob Hanlon
On Mon, Apr 1, 2013 at 12:58 AM, <dougwangsaif at gmail.com> wrote:
> can anyone help with this. There seems to be something wrong with the
> IntegerPart function. Please help!
>
> Clear["Global`*"]
> nSize = 100;
>
> prefstate = Table[0, {i, 1, nSize}];
> Do[
> {prefstate[[i]] = If[EvenQ[i], 0.8, 0.4]},
> {i, 1, nSize}
> ];
>
> Plot[{prefstate[[IntegerPart[x]]]}, {x, 1, nSize + 1},
> AxesOrigin -> {0, 0}, TicksStyle -> Directive[18],
> PlotStyle -> {Black}]
>
>