关于mathematias

hyy012345

如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。
: W% g; b: y/ C2 [( D# R

zhuxinran

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

宏心

http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
  J  o8 @; y1 T# |! z  H9 S& E

宏心

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

宏心

s[n_] := NSum[1/k, {k, 1, n}];
7 Z% Y1 P% Q+ xt1 = Table[{k, s[k]}, {k, 1, 200}];
2 r( B% w5 e; |! M) k9 l; |p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
5 \1 f9 D+ f/ G) e: Hp2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
; r2 y3 n4 G/ B: a   DisplayFunction -> Identity];
p21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
' b2 y, s6 t) N8 k+ bShow[p2, p21, DisplayFunction -> $DisplayFunction]
c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
0 M6 Z6 K! f" M& U$ |1 z9 zp211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
8 @* c  K: n) S/ X0 L; U: n* s   DisplayFunction -> Identity];
c1[n_] := s[n] - Log[200] + s[200]; t11 =
8 m+ J; [8 O! L' M1 z7 V Table[{n, c1[n]}, {n, 1, 200}];
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
1 b) V9 h, ?/ D& D$ L5 r- K   DisplayFunction -> Identity];
7 I& V. s1 _* s7 ZShow[p211, p212, DisplayFunction -> Identity]
% D! V8 _) `4 S