x[1]=1;
x[n_]:=Block[{},Cos[x[n-1]];
Table[x[k],{k,1,30}]//N;
ListPlot[%];
traz wrote:
> Hi, this might be a silly question, but how do you do this in mathematica.
>
> x1 == Cos[1];
> x2 == Cos[x1];
> x3 == Cos[x2];
>
> and so on ... ... so basically x(n)= Cos[x(n - 1)]
>
> I want to plot n against x(n). How do you do the code for this type of sequence in mathematica?
>
>