"Basic hypergeometric series"의 두 판 사이의 차이
둘러보기로 가기
검색하러 가기
(피타고라스님이 이 페이지를 개설하였습니다.) |
|||
| 1번째 줄: | 1번째 줄: | ||
| − | + | Series[(1 - q)^(-1), {q, 0, 40}]<br> Series[\!\(<br> \*UnderoverscriptBox[\(\[Product]\), \(k = 1\), \(100\)]\((1 -<br> q^k)\)\), {q, 0, 100}]<br> h[q_] := 1 - q - q^2 + q^5 + q^7 - q^12 - q^15 + q^22 + q^26 - q^35 -<br> q^40 + q^51 + q^57 - q^70 - q^77 + q^92 + q^100<br> f[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 0\), \(100\)]\(PartitionsP[<br> k] q^k\)\)<br> d[n_] := DivisorSigma[1, n]<br> g[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(100\)]\(d[k] q^k\)\)<br> Expand[f[q]*h[q]]<br> Expand[g[q]*h[q]] | |
2009년 11월 28일 (토) 00:15 판
Series[(1 - q)^(-1), {q, 0, 40}]
Series[\!\(<br> \*UnderoverscriptBox[\(\[Product]\), \(k = 1\), \(100\)]\((1 -<br> q^k)\)\), {q, 0, 100}]
h[q_] := 1 - q - q^2 + q^5 + q^7 - q^12 - q^15 + q^22 + q^26 - q^35 -
q^40 + q^51 + q^57 - q^70 - q^77 + q^92 + q^100
f[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 0\), \(100\)]\(PartitionsP[<br> k] q^k\)\)
d[n_] := DivisorSigma[1, n]
g[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(100\)]\(d[k] q^k\)\)
Expand[f[q]*h[q]]
Expand[g[q]*h[q]]