/ / / / / /

上一篇 下一篇 同標題 發表文章 文章列表

作者  grass ( ) 站內  ALGEBRA
標題  Re: [閒聊] 幫我用maple跑一下吧
時間  2008/07/18 Fri 15:02:34

※ 引述《k75715 (數功揚名 所向披靡)》之銘言:
> ※ 引述《grass ( )》之銘言:
> > Q(n) =   Π   (1-2^(-j))
> >        1≦j≦n
> >                 -(j+1)j
> >                2
> > 1.   Σ  ---------------
> >     j≧0     Q(j)^2
> >             -(j+1)j
> >            2       S(j+i,i)                  j         (-2)
> > 2.   Σ  -------------------- , S(j,i) =    Σ    -----------------
> >     j≧0     Q(j)^2                      q=0,q≠i  2^(-q) - 2^(-i)
> Q[0]=1;
> Q[x_]:=Module[{y=x},For[i=1;pro=1,i<y+1,i++,pro*=(1-2^-i)];Return[pro]]
> Sum[2^(-(j + 1) j)/Q[j]^2, {j, 0, \[Infinity]}] // N
> 1.26587
> S[s_,j_]:=Module[{a=s,b=j},For[q=0;sum=0,q<b;q!=a,q++,sum+=-2/(2^-q-2^-a)];Return[sum]]
> Sum[(2^(-(w+1)*w)*S[w+b,b])/Q[w]^2,{w,0,\[Infinity]}]
> 0
> 這是我打的code  不確定有沒有打錯XD

1應該是錯的 我帶j=0,1進去都是1 那為什麼sum是1.26587 XDDD

真奇怪  @@


--
 白金之星☆時間暫停

--
發信站 [中央數學  織夢天堂 bbs.math.ncu.edu.tw]
  •FROM [grass 從 ccDHCP.Math.NCTU.edu.tw 發表]
→ k75715 :真的ㄟXD  電腦怪怪的XD                                  08/07/18
→ k75715 :我叫出前幾項來看  好像也沒啥錯誤....                    08/07/18

上一篇 下一篇 同標題 發表文章 文章列表