[Date Index]
[Thread Index]
[Author Index]
Re: Nested iterators in Compile
*To*: mathgroup at smc.vnet.net
*Subject*: [mg55112] Re: Nested iterators in Compile
*From*: "Ray Koopman" <koopman at sfu.ca>
*Date*: Sun, 13 Mar 2005 04:57:32 -0500 (EST)
*References*: <d0u6m8$klc$1@smc.vnet.net>
*Sender*: owner-wri-mathgroup at wolfram.com
Wolf, Hartmut wrote:
>>-----Original Message-----
>>From: Ray Koopman [mailto:koopman at sfu.ca]
To: mathgroup at smc.vnet.net
>>Sent: Friday, March 11, 2005 10:21 AM
>>Subject: [mg55112] Re: Nested iterators in Compile
>>
>>Wolf, Hartmut wrote:
>>> [...]
>>> Also mistrust any compiled function f with
>>>
>>> In[3]:= FreeQ[f[[-2]], Function]
>>> Out[3]= False
>>>
>>>
>>> This case can be solved easily:
>>>
>>> In[4]:= f2 = Compile[{{n, _Integer}},
>>> Module[{s = 0}, Do[Do[s += j, {j, i}], {i, n}];
>>> s]];
>>>
>>> In[5]:= f2[10]
>>> Out[5]= 220
>>>
>>> In[6]:= FreeQ[f2[[-2]], Function]
>>> Out[6]= True
>>>
>>
>>In[1]:= f1 = Compile[{n}, Module[{s = 0},
>> Do[s += j, {i, n}, {j, i}]; s]];
>>
>>In[2]:= f2 = Compile[{{n, _Integer}},Module[{s = 0},
>> Do[Do[s += j, {j, i}], {i, n}]; s]];
>>
>>In[3]:= FreeQ[f1[[#]],Function]& /@ Range@Length@f1
>> FreeQ[f2[[#]],Function]& /@ Range@Length@f2
>>
>>Out[3]= {True,True,True,False,False,True}
>>Out[4]= {True,True,True,True,False,True}
>>
>>Do you mean f[[-3]] ?
>>
>>
>
> In fact, I mean f[[4]] which, with my version is f[[-2]], with your's
> obviously not.
>
> I'm sorry about that, but would like to know what you see at
> f2//InputForm.
>
>
> --
> Hartmut Wolf
In[1]:= $Version
Out[1]= 5.1 for Mac OS X (October 25, 2004)
In[2]:= InputForm[f1 = Compile[{n}, Module[{s = 0},
Do[s += j, {i, n}, {j, i}]; s]]]
Out[2]//InputForm=
CompiledFunction[{_Real}, {{3, 0, 0}, {2, 0, 0}},
{0, 6, 3, 0, 0}, {{1, 5}, {4, 0, 0}, {37, 0, 1},
{21, Function[{n}, i], 3, 0, 0, 3, 0, 2}, {37, 2, 2},
{4, 0, 3}, {79, 3, 1, 6}, {4, 0, 4}, {79, 4, 2, -2},
{24, 0, 4, 5}, {9, 5, 0}, {42, -3}, {2}},
Function[{n}, Module[{s = 0}, Do[s += j, {i, n}, {j, i}];
s]], Evaluate]
In[3]:= InputForm[f2 = Compile[{{n, _Integer}},Module[{s = 0},
Do[Do[s += j, {j, i}], {i, n}]; s]]]
Out[3]//InputForm=
CompiledFunction[{_Integer}, {{2, 0, 0}, {2, 0, 1}},
{0, 7, 0, 0, 0}, {{1, 5}, {4, 0, 1}, {9, 0, 2}, {4, 0, 3},
{79, 3, 2, 8}, {9, 3, 4}, {4, 0, 5}, {79, 5, 4, 4},
{24, 1, 5, 6}, {9, 6, 1}, {42, -3}, {42, -7}, {2}},
Function[{n}, Module[{s = 0},
Do[Do[s += j, {j, i}], {i, n}]; s]], Evaluate]
Prev by Date:
**Re: Pattern gremlins.**
Next by Date:
**Re: LUDecomposition**
Previous by thread:
**Re: Re: Nested iterators in Compile**
Next by thread:
**NIntegrate a COM Object**
| |