+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (38G) Decimated Sequence & partial Sums (NOT OEIS A025715) (/thread-5695.html)
(38G) Decimated Sequence & partial Sums (NOT OEIS A025715) - Gerald H - 02-17-2016 10:34 AM
A programme to insert symbolics in the Sequence aplet to produce in U1 the integers without multiples of 10 & in U2 the partial sums of U1.
NB The partial sums are NOT OEIS A025715.
I am not happy with this programme & would be grateful for suggestions on improving the calculation method & reducing the size of programme on the HP 38G.
DECIMATE
Code:
RUN SEQSET:
RECURSE(U,N+FLOOR((N-1)/9),1,2)►U1(N):
CHECK 1:
RECURSE(U,(N^2+N+FLOOR(N/9)^2-FLOOR(N/9)+U3(N)^2+U3(N)+U4(N)^2+U4(N)+U5(N)^2+U5(N)+U6(N)^2+U6(N)+U7(N)^2+U7(N)+U8(N)^2+U8(N)+U9(N)^2+U9(N)+U0(N)^2+U0(N))/2,1,3)►U2(N):
CHECK 2:
RECURSE(U,FLOOR((N-1)/9),0,0)►U3(N):
RECURSE(U,FLOOR((N-2)/9),0,0)►U4(N):
RECURSE(U,FLOOR((N-3)/9),0,0)►U5(N):
RECURSE(U,FLOOR((N-4)/9),0,0)►U6(N):
RECURSE(U,FLOOR((N-5)/9),0,0)►U7(N):
RECURSE(U,FLOOR((N-6)/9),0,0)►U8(N):
RECURSE(U,FLOOR((N-7)/9),0,0)►U9(N):
RECURSE(U,FLOOR((N-8)/9),0,0)►U0(N):
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):