Excel - Traduccion al lenguaje python de un código de instrucciones que esta escrito en lenguaje excel .

Public function partic(n)

dim(40,40)

dim i,s,h,k

if n=1 then partic=1:exit function

k=n

for i=1 to n

a(1,i)=1

a(i,i)=1

next i

for h=2 to n

for i=2 to h-1

m=h-i

s=0

for j=1 to i:s=s+a(j,m):next j

a(i,h)=s

next i

next h

for h=1 to n

s=0

for i=1 to k

s=s+a(i,h)

next i

next h

partic=s

end function