关于mathematias

hyy012345

如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。

zhuxinran

感谢楼主，资料非常好。。。
" `+ j4 j% _, d- Q+ r+ g$ l3 J9 A

宏心

http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
3 W, h- o. D8 g1 j3 \( x

宏心

http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13

宏心

s[n_] := NSum[1/k, {k, 1, n}];
8 ]: Y8 y% h- C* b* \) v3 St1 = Table[{k, s[k]}, {k, 1, 200}];
p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
   DisplayFunction -> Identity];
+ I2 i- W( ?6 Q+ S/ A( F! Q+ E1 Gp21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
2 o- c. n- u& G5 l4 g7 X   DisplayFunction -> Identity];
  K0 q) N/ m2 o* BShow[p2, p21, DisplayFunction -> $DisplayFunction]
6 z5 \1 `. b  ^2 Rc[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
+ |' v; @7 Z& H# n) x/ pp211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
   DisplayFunction -> Identity];
c1[n_] := s[n] - Log[200] + s[200]; t11 =
Table[{n, c1[n]}, {n, 1, 200}];
# S- l( }. Z+ a1 W8 {8 jp212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
  W* \% o+ j* T1 H9 m9 Z   DisplayFunction -> Identity];
2 ~* ]) n8 v- y' ?3 xShow[p211, p212, DisplayFunction -> Identity]