#please do not post homework
Kenneth Chan
Math 454
HW 12

1.
CPg:=proc(L) local i,j,L1,K:
K:=[]:
for i from 1 to nops(L) do 
for j from seq(L, L in L1) do
K:=[op(K),sum(L[k],k=1..j)]
od:
od:
K:
end:

2. 
AveGF:=Proc(f,x):
subs(x-1,diff(f,x))/subs(x=1,f):
end:
kthMomentGF(f,x,k) local x,mu,f,f1,i:
mu:=AveGF(f,x):
f1:=f/x^mu/subs(x=1,f):
for i from 1 to k do
f1:=expand(x*diff(f1,x)):
od:
subs(x=1,f1):
end:

3.
ScaledMomentGF:=proc(f,x,k) local M, m1,m2:
for i to from 1 to k
m1:=seq(nops(f,i=0..k)
od:
m2:=seq(nops(f,i=0..2)
M:=m1/(m2^k/2):
end:

4.completely clueless on how to even attempt this