"Basic hypergeometric series"의 두 판 사이의 차이
둘러보기로 가기
검색하러 가기
| 1번째 줄: | 1번째 줄: | ||
| − | Series[ | + | Series[QPochhammer[q, q], {q, 0, 100}]<br> Series[\!\(<br> \*UnderoverscriptBox[\(\[Product]\), \(k = 1\), \(100\)]\((1 -<br> q^k)\)\), {q, 0, 100}]<br> f[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 0\), \(100\)]\(PartitionsP[<br> k] q^k\)\)<br> Series[1/QPochhammer[q, q], {q, 0, 100}]<br> Series[f[q], {q, 0, 100}]<br> d[n_] := DivisorSigma[1, n]<br> g[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(100\)]\(d[k] q^k\)\)<br> Expand[f[q]*g[q]] |
| + | |||
| + | |||
| + | |||
| + | <h5>related items</h5> | ||
| + | |||
| + | * [[#]] | ||
2010년 3월 16일 (화) 20:02 판
Series[QPochhammer[q, q], {q, 0, 100}]
Series[\!\(<br> \*UnderoverscriptBox[\(\[Product]\), \(k = 1\), \(100\)]\((1 -<br> q^k)\)\), {q, 0, 100}]
f[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 0\), \(100\)]\(PartitionsP[<br> k] q^k\)\)
Series[1/QPochhammer[q, q], {q, 0, 100}]
Series[f[q], {q, 0, 100}]
d[n_] := DivisorSigma[1, n]
g[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(100\)]\(d[k] q^k\)\)
Expand[f[q]*g[q]]