Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Thread function now working as expected

• To: mathgroup at smc.vnet.net
• Subject: [mg74587] Thread function now working as expected
• From: siewsk at bp.com
• Date: Tue, 27 Mar 2007 04:03:04 -0500 (EST)

I cannot get the Thread function to work on In[3] and I
am forced to do it manually in In[4]

Does anyone has any idea why In[3] is not working as I expected?

In[1]:= eqn1 = Sqrt[1 + 196*x^4] == 12*x - 1 - 14*x^2
Out[1]=
              4                     2
Sqrt[1 + 196 x ] == -1 + 12 x - 14 x


In[2]:= eqn2 = Thread[(#1^2 & )[eqn1], Equal]
Out[2]=
         4                     2 2
1 + 196 x  == (-1 + 12 x - 14 x )


In[3]:= dummy = Thread[Expand[eqn2], Equal]
Out[3]=
         4                     2 2
1 + 196 x  == (-1 + 12 x - 14 x )


In[4]:= eqn3 = Equal[ eqn2[[1]] , Expand[ eqn2[[2]] ]  ]
Out[4]=
         4                    2        3        4
1 + 196 x  == 1 - 24 x + 172 x  - 336 x  + 196 x


In[5]:= Simplify[eqn3]
Out[5]=
                  2
x (6 - 43 x + 84 x ) == 0

• Follow-Ups:
  • Re: Thread function now working as expected
    • From: "Chris Chiasson" <chris@chiasson.name>