Smooth the data in a table, Why this cannot work?

• To: mathgroup at smc.vnet.net
• Subject: [mg62513] Smooth the data in a table, Why this cannot work?
• From: "simon yang" <yanshanguke at 163.com>
• Date: Sat, 26 Nov 2005 02:47:14 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello, every one. I meet a problem when I smooth the data in a table:
280.00,.000
282.00,.002
284.00,.002
286.00,.000
288.00,.000
290.00,.002
292.00,.003
294.00,.003
296.00,.003
298.00,.011
300.00,.031
302.00,.076
The method I used is:
For[i=3,i<=9,data[[1,i]][[2]] = (1/35)( -3(data[[1,i-3]][[2]]
+data[[1,i+3]][[2]]) +12(data[[1,i-2]][[2]] +data[[1,i+2]][[2]])
+17(data[[1,i-1][[2]] +data[[1,i+1]][[2]]));  i++]
it doen't work

the function Replace[] also don't work
\!\(For[i = 3,
i = \ 9, Replace[
datatemp, \(data[\([1, i]\)]\)[\([2]\)] -> \(1\/35\) \((\(-3\) \
\((\(data[\([1, i - 2]\)]\)[\([2]\)] + \(data[\([1, i +
2]\)]\)[\([2]\)])\) +
12 \((\(data[\([1, i -
1]\)]\)[\([2]\)] + \(data[\([1, i + 1]\)]\)[\([2]\)])\)
+
17 \( data[\([1, i]\)]\)[\([2]\)])\)];
\(i++\)]\)

Then what should I do ?
Thanks.

```

• Prev by Date: Re: Mathematica, Linux and OpenMosix
• Next by Date: webMathematica - does it need the Xvnc password?
• Previous by thread: (lack of) arguments to lists and joins thereof
• Next by thread: Re: Smooth the data in a table, Why this cannot work?