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