关于mathematias

hyy012345

如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。
3 O  N6 r+ L# Y$ z! \! E+ h

zhuxinran

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

宏心

http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
0 F9 A4 `( G) w* {* S* x

宏心

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

宏心

s[n_] := NSum[1/k, {k, 1, n}];
' i; L* F: l( b6 f  Ut1 = Table[{k, s[k]}, {k, 1, 200}];
p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
6 i4 L# l) @! J# ~( `p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
1 W1 h2 v; [! a7 |, A   DisplayFunction -> Identity];
2 b7 B% c- E1 D% Hp21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
" ]9 E3 ^0 T6 M  H: V/ s. oShow[p2, p21, DisplayFunction -> $DisplayFunction]
' x) e; u* j9 a5 J! `. ]c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
/ s5 j+ D/ I% tp211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
1 D- }# m- g% ~6 t   DisplayFunction -> Identity];
c1[n_] := s[n] - Log[200] + s[200]; t11 =
2 ~# s) ^: t7 p* u: v; G Table[{n, c1[n]}, {n, 1, 200}];
: k* r7 }. ]. l# a) Mp212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
Show[p211, p212, DisplayFunction -> Identity]
0 k2 Q, J. `4 d5 s+ Q0 f