Re: A problem with Thread[]
- To: mathgroup at smc.vnet.net
- Subject: [mg111405] Re: A problem with Thread[]
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Sat, 31 Jul 2010 02:40:25 -0400 (EDT)
On 7/30/10 at 6:56 AM, guerom00 at gmail.com (guerom00) wrote:
>Here is a snippet of code:
>MyArcTan := Function[{x, y},
>Module[{result},
>If[x == 0 && y == 0,
>result = 0,
>result = ArcTan[x, y]
>];
>result
>]
>];
>In[725]:= Thread[MyArcTan[{-1, 0, 1}, 0]]
>Out[725]= result$58407737
>Somehow, when I thread my custom function MyArcTan[], it does not
>execute the If[] test hence do not define the result...
>How can I solve that ?
No, the problem isn't with Thread or If. The problem is related
to the way Module localizes variables. For this function, there
is no need for Module or the local variable result. Your
function can be more simply written as:
MyArcTan := Function[{x, y}, If[x == 0 && y == 0, 0, ArcTan[x, y]=
]];
or
MyArcTan[x_, y_}]:= If[x == 0 && y == 0, 0, ArcTan[x, y]]
with either of these you can do:
In[3]:= Thread[f[{-1, 0, 1}, 0]] /. f -> MyArcTan
Out[3]= {Pi, 0, 0}
or
In[4]:= MapThread[MyArcTan, {{-1, 0, 0}, {0, 0, 0}}]
Out[4]= {Pi, 0, 0}
to get the desired output.