20 lines
484 B
Text
20 lines
484 B
Text
ClearAll[Padovan]
|
|
Padovan[2,tmax_]:=Module[{start,a,m},
|
|
start={1,1,1};
|
|
start=MapIndexed[a[#2[[1]]]==#1&,start];
|
|
RecurrenceTable[{a[m]==a[m-2]+a[m-3]}~Join~start,a, {m,tmax}]
|
|
]
|
|
Padovan[n_,tmax_]:=Module[{start,eq,a,m},
|
|
start=Padovan[n-1,n+1];
|
|
start=MapIndexed[a[#2[[1]]]==#1&,start];
|
|
eq=Range[2,n+1];
|
|
eq=Append[start,a[m]==Total[a[m-#]&/@eq]];
|
|
RecurrenceTable[eq,a, {m,tmax}]
|
|
]
|
|
Padovan[2,15]
|
|
Padovan[3,15]
|
|
Padovan[4,15]
|
|
Padovan[5,15]
|
|
Padovan[6,15]
|
|
Padovan[7,15]
|
|
Padovan[8,15]
|