04-07-2015, 04:04 PM
Here a programme for the 40gs & 39gs only to install symbolics in the Sequence Aplet & produce the Pentanacci series in U1.
Here more info on the Pentanacci series:
http://oeis.org/A124313
PENTANACCISEQ
MAKEMAT(I==1 OR I-1==J,5,5)►M1:
[[1,0,0,0,0]]►M2:
[0,0,0,1,0]►M3:
RUN SEQSET:
RECURSE(U,ABS((M2*(M1^(N-4)))*M3),1,0)►U1(N):
CHECK 1:
The programme SEQSET cleans the Sequence Aplet & sets flags as required.
SEQSET
SELECT Sequence:
UNCHECK 0:
0►NumFont:
0►Simult:
2►Angle:
1►InvCross:
1►NumStep:
1►Format:
1►NumCol:
1►NumStart:
6►NumRow:
RECURSE(U,0,0,0)►U1(N):
Ans►U2(N):
Ans►U3(N):
Ans►U4(N):
Ans►U5(N):
Ans►U6(N):
Ans►U7(N):
Ans►U8(N):
Ans►U9(N):
Ans►U0(N):
Here more info on the Pentanacci series:
http://oeis.org/A124313
PENTANACCISEQ
MAKEMAT(I==1 OR I-1==J,5,5)►M1:
[[1,0,0,0,0]]►M2:
[0,0,0,1,0]►M3:
RUN SEQSET:
RECURSE(U,ABS((M2*(M1^(N-4)))*M3),1,0)►U1(N):
CHECK 1:
The programme SEQSET cleans the Sequence Aplet & sets flags as required.
SEQSET
SELECT Sequence:
UNCHECK 0:
0►NumFont:
0►Simult:
2►Angle:
1►InvCross:
1►NumStep:
1►Format:
1►NumCol:
1►NumStart:
6►NumRow:
RECURSE(U,0,0,0)►U1(N):
Ans►U2(N):
Ans►U3(N):
Ans►U4(N):
Ans►U5(N):
Ans►U6(N):
Ans►U7(N):
Ans►U8(N):
Ans►U9(N):
Ans►U0(N):