想用mathematica表示一个数列,数列前32项都是1,从第33项（A33）开始,A33=（A1+A2）mod2,这个数列要有10000个数,这个公式叫Tausworthe,如果哪位知道这个的更是感激不尽!
问题描述：
想用mathematica表示一个数列,数列前32项都是1,从第33项（A33）开始,A33=（A1+A2）mod2,这个数列要有10000个数,这个公式叫Tausworthe,如果哪位知道这个的更是感激不尽!
答
RecurrenceTable[{a[n + 32] == Mod[(a[n] + a[n + 1]),2],Table[a[i] == 1,{i,32}]},a,{n,1,10000}]ListLinePlot[RecurrenceTable[{a[n + 32] == Mod[(a[n] + a[n + 1]),2],Table[a[i] == 1,{i,32}]},a,{n,1,10000}...