Re: mapping of function revisited

*To*: mathgroup at smc.vnet.net*Subject*: [mg70050] Re: mapping of function revisited*From*: Bill Rowe <readnewsciv at sbcglobal.net>*Date*: Sun, 1 Oct 2006 04:09:39 -0400 (EDT)

On 9/27/06 at 6:05 AM, dimmechan at yahoo.com wrote: >Searching a little more I found one more alternative >exp1 = x^3 + (1 + z)^2; >MapAt[Sin, exp1, Flatten[(Position[exp1, #1] & ) /@ Cases[exp1, _?( >!NumberQ[#1] & ), {-1}], 1]] >Sin[x]^3 + (1 + Sin[z])^2 >Are there any other alternatives? Especially with proper pattern >matching? <snip> >Is it possible to obtain the previous result more compactly? Yes, In[4]:= exp1 /. {x -> Sin[x], z -> Sin[z]} Out[4]= Sin[x]^3 + (Sin[z] + 1)^2 -- To reply via email subtract one hundred and four