关于mathematias

hyy012345

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

zhuxinran

感谢楼主，资料非常好。。。

宏心

http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa

宏心

http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13
- F/ ^8 ~! a: U# F( T

宏心

s[n_] := NSum[1/k, {k, 1, n}];
; @% E. j4 B4 ~t1 = Table[{k, s[k]}, {k, 1, 200}];
p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
: \' ]+ E+ C5 a1 _4 y7 O   DisplayFunction -> Identity];
6 j5 Y4 \& B/ E+ f: np21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
8 |5 G' G! r7 a: A9 `! W9 E+ G   DisplayFunction -> Identity];
$ r% ]8 [- R2 p# g' G8 u6 U1 c1 mShow[p2, p21, DisplayFunction -> $DisplayFunction]
c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
p211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
; T: O; B/ w# j9 L9 P) G   DisplayFunction -> Identity];
c1[n_] := s[n] - Log[200] + s[200]; t11 =
Table[{n, c1[n]}, {n, 1, 200}];
: {) m( d2 T" Vp212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
' u) J+ q+ v  u1 P6 b) A6 Y7 }   DisplayFunction -> Identity];
3 d" {# I0 s  \Show[p211, p212, DisplayFunction -> Identity]
6 L. Z. z' U( G, _. n3 g6 x5 ~+ {