Don't change my definition of a function
- To: mathgroup at smc.vnet.net
- Subject: [mg20691] Don't change my definition of a function
- From: "Toshiyuki (Toshi) Meshii" <meshii at mech.fukui-u.ac.jp>
- Date: Sun, 7 Nov 1999 02:10:20 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Hi, I think Math4 (Win98) is changing the definition of a function every time I execute some procedures. Can somebody let me know what is happening? Here it is. I defined FM[x] as FM[x_]=1.122- 1.4 x + 7.33 x^2 - 13.08 x^3 + 14. x^4 After I run dn = Table[FindRoot[ f[d] == 0, {d, 0.05 + (j - 1) 300}, MaxIterations -> 100], {j, 1, 8}]; an = le[ dn[[j, 1, 2]] BesselJ[ 1, dn[[j, 1, 2]] ri] + h BesselJ[ 0, dn[[j, 1, 2]] ri], {j, 1, 8}]; bn = Table[ dn[[j, 1, 2]]BesselY[ 1, dn[[j, 1, 2]] ri] + h BesselY[ 0, dn[[j, 1, 2]]ri], {j, 1, 8}]; cn = Table[ dn[[j, 1, 2]]BesselJ[1, dn[[j, 1, 2]] ro], {j, 1, 8}]; en = Table[ dn[[j, 1, 2]]BesselY[1, dn[[j, 1, 2]] ro], {j, 1, 8}]; FM[x] is still same as defined. However, after I run Do[d1 = dn[[j, 1, 2]]; c1 = cn[[j]]; a1 = an[[j]]; Print["n = ", j, " ,", N[( Pi c1^2h)/(c1^2(d1^2 + h^2) - (a1 d1)^2)]], {j, 8}] FM[x] is changed as follows. 1.122 - 66.7236 x + 7.33 x^2 - 13.08 x^3 + 14. x^4 Yes! Coefficient of x is by some reason changed. Why? -Toshi