FindSequenceFunction V 7
- To: mathgroup at smc.vnet.net
- Subject: [mg94478] FindSequenceFunction V 7
- From: Dana DeLouis <dana01 at me.com>
- Date: Sun, 14 Dec 2008 07:39:43 -0500 (EST)
This is more of a comment / observation on this function... v1 = {2, 1, 0, 2, 1, 0}; v2 = {1, 2, 3, 1, 2, 3}; For the first list, I am impressed... Very nice. FindSequenceFunction[v1, x] Mod[2*x, 3] Mod[2*x, 3] /. x -> Range[6] {2, 1, 0, 2, 1, 0} However, on the second list, I get a Fourier Cos output. FindSequenceFunction[v2, x] (1/3)*(6 + 2*Cos[(2/3)*Pi* (-2 + x)] + 2*Cos[(4/3)*Pi....etc I was hoping for the shorter version... Mod[x, 3, 1] Mod[x, 3, 1] /. x -> Range[6] {1, 2, 3, 1, 2, 3} Oh well! Nice try though. - - - Dana DeLouis