
Re: what is wrong with this code?
Posted:
Apr 3, 2013 4:07 AM


An interesting plot! It appears that Mathematica does not evaluate 'f' at a sufficient number of points. In the documentation, i could not find a way to control that; perhaps others will. This code shows the problem:
Clear[f, g, z]; z = {}; f[x_] := If[EvenQ[IntegerPart[x]], 0.4, 0.8]; g[x_] := (z = {z, x}; f[x]); Plot[g[x], {x, 1, 101}] z // Flatten // IntegerPart // DeleteDuplicates // Sort
On Tue, Apr 2, 2013 at 12:24 AM, <dougwangsaif@gmail.com> wrote:
> f[x_] := If[EvenQ[IntegerPart[x]], 0.4, 0.8]; > Plot[f[x], {x, 1, 101}] > >

