Re: What am I doing wrong?

*To*: mathgroup at smc.vnet.net*Subject*: [mg2192] Re: What am I doing wrong?*From*: ianc (Ian Collier)*Date*: Fri, 13 Oct 1995 02:24:51 -0400*Organization*: Wolfram Research, Inc.

In article <45d24c$63m at ralph.vnet.net>, JSNW at msg.ti.com (Jason Welter) wrote: > Kemp[z_] := If[z>5,Kemp=gft[z] + 21,Kemp=gft[z] - 21] > gft[z_] := If[z>5,gft=z^2 + 2,gft=z^2 - 2] > Kemp[4] > > SetDelayed::write: Tag Integer in (-14)[z_] is Protected. > $Failed > SetDelayed::write: Tag Integer in 7[z_] is Protected. > $Failed > (-14)[4] I can't reproduce exactly what you are seeing, but I think that your assignments to Kemp and gft withing your definitions are redundant and problematic. I only see a problem when I call Kemp for the second time. Changing the definition slightly (Kemp2 and gft2 below) eliminates the problem. In your example in calling Kemp you then set the symbol Kemp to a certain value (after you defined the function) and this value is used when you attempt to call the function Kemp for the second time. In[1]:= Kemp[z_] := If[z>5,Kemp=gft[z] + 21,Kemp=gft[z] - 21] In[2]:= gft[z_] := If[z>5,gft=z^2 + 2,gft=z^2 - 2] In[3]:= Kemp[4] Out[3]= -7 In[7]:= Kemp[5] Out[7]= (-7)[5] In[4]:= Kemp2[z_] := If[z>5,gft2[z] + 21,gft2[z] - 21] In[5]:= gft2[z_] := If[z>5,z^2 + 2,z^2 - 2] In[6]:= Kemp2[4] Out[6]= -7 In[8]:= Kemp2[5] Out[8]= 2 --Ian ----------------------------------------------------------- Ian Collier Technical Sales Support Wolfram Research, Inc. ----------------------------------------------------------- tel:(217)-398-0700 fax:(217)-398-0747 ianc at wri.com Wolfram Research Home Page: http://www.wri.com/ -----------------------------------------------------------