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
>