/ / / / / /

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

作者  k75715 (數功揚名 所向披靡) 站內  ALGEBRA
標題  Re: [閒聊] 幫我用maple跑一下吧
時間  2008/07/17 Thu 22:49:30

※ 引述《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
--
今、手をつないでいるその人に出えたのは、

  キセキのような、かくりつです。

光の中に出ても、その手をはなすことのないように。
                                       〈野ブタ。をプロデュース〉

--
發信站 [中央數學  織夢天堂 bbs.math.ncu.edu.tw]
  •FROM [k75715 從 61-230-49-198.dynamic.hinet.net 發表]
□ Modify: 2008/07/17 Thu 22:52:38  61-230-49-198.dynamic.hinet.net 修改
→ grass :老實說我不太會用Maple.... XDD                            08/07/17
→ k75715 :老實說我也是  所以我用mathematica  XD                   08/07/17
→ grass :Maple一整個不理我.....快瘋了                             08/07/17

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