Re: Table command strange output when 'i' over 16

*To*: mathgroup at smc.vnet.net*Subject*: [mg69824] Re: Table command strange output when 'i' over 16*From*: dimmechan at yahoo.com*Date*: Sat, 23 Sep 2006 23:45:34 -0400 (EDT)*References*: <ef2si4$me0$1@smc.vnet.net>

Hello. In the begining I considered it a weird bug. However, I took a look of it again. In general I am too sceptical about what is and what is not a bug. If you symbolically integrate something (especially if the integrand has branch cuts) there are still occasions that you see that Integrate does not give the correct result. (BTW, even and in these situations you have first the chance to "help" a little Integrate and second to use NIntegrate). But here? Why I say all these? Because I believe Mathematica is to make our "lives" easier but we should do the her "life" easier as well. When you use the command Table[0, {i, 1, 16}, {i, 1, 16}] something does not look good to me. Two different iterators with the same first element? Anyway I continue with the Inputs/Outputs (i.e. the easy thing...). I am too inexperienced user to deal more with theory or/and try to give a deeper explanation (i.e. the difficult thing...). Of course it cans happen to be just a weird bug and my comments to be completely out of place! Voila $Version "5.2 for Microsoft Windows (June 20, 2005)" Quit makeZeros[{n_, m_}] := Table[0, {i, 1, n}, {i, 1, m}] lst = Transpose[{Range[20], Range[20]}] {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {5, 5}, {6, 6}, {7, 7}, {8, 8}, {9, 9}, {10, 10}, {11, 11}, {12, 12}, {13, 13}, {14, 14}, {15, 15}, {16, 16}, {17, 17}, {18, 18}, {19, 19}, {20, 20}} Cases[makeZeros /@ Take[lst, 15], x_ /; x != 0, Infinity] {} Length[Cases[makeZeros /@ Take[lst, {16, 20}], x_ /; x != 0, Infinity]] 855 Take[Sort[Cases[makeZeros /@ Take[lst, {16, 20}], x_ /; x != 0, Infinity]], -20] {909719091, 909719091, 909719091, 926365751, 926431024, 926496307, 926496307, 943141176, 943143222, 943206968, 943206968, 943207993, 959789366, 959853360, 959853360, 959853360, 959853360, 959853360, 959853360, 959853360} Take[Sort[Cases[makeZeros /@ Take[lst, {16, 20}], x_ /; x != 0, Infinity]], 20] {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} Not the presence of very large as well small integers... However (and strangely for some of us,...but I keep my distances...) if you use i and j in iterators everything works fine (at least up to where I have verified...) Clear[makeZeros] makeZeros[{n_, m_}] := Table[0, {i, 1, n}, {j, 1, m}] lst = Transpose[{Range[300], Range[300]}]; Timing[Cases[makeZeros /@ lst, x_ /; x != 0, Infinity]] {8.438*Second, {}} Sincerely Dimitris ------------------------------------------- Rush "Freewill" You can choose a ready guide / In some celestial voice. If you choose not to decide / You still have made a choice You can choose from phantom fears / And kindness that can kill; I will choose a path that's clear / I will choose free will