Re: FindSequenceFunction V 7
- To: mathgroup at smc.vnet.net
- Subject: [mg94519] Re: FindSequenceFunction V 7
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 15 Dec 2008 07:46:55 -0500 (EST)
- References: <gi2uqc$a2k$1@smc.vnet.net>
Hi, probably there are an infinite number of solutions to for a formula that reproduce a certain finite sequence. What is nicer depend on your taste. Regards Jens Dana DeLouis wrote: > 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 >