数学建模社区-数学中国

标题: 关于mathematias [打印本页]

---

作者: hyy012345    时间: 2015-4-16 19:35
标题: 关于mathematias
如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。

---

作者: zhuxinran    时间: 2015-4-17 17:14
感谢楼主，资料非常好。。。
; j3 h! W# O2 s' R* }' a

---

作者: 宏心    时间: 2015-4-21 09:55
http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa

---

作者: 宏心    时间: 2015-4-21 10:56
http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13
( }; L( Z" Z% S% Q0 G& z: D7 f4 U

---

作者: 宏心    时间: 2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];
0 m3 C/ g  F7 rt1 = Table[{k, s[k]}, {k, 1, 200}];
1 Q% I+ f8 |  _4 ~, I: a7 r, jp1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
5 P$ F/ y: d# B0 \; ~   DisplayFunction -> Identity];
p21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
# r3 C+ `* J* u5 N: a   DisplayFunction -> Identity];
" F9 B3 V6 h" }$ o& pShow[p2, p21, DisplayFunction -> $DisplayFunction]
* G3 G# T- z; c! ], G; k9 Y1 Rc[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
p211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
* K9 z1 a7 i+ G4 a, Q% d5 [7 w   DisplayFunction -> Identity];
c1[n_] := s[n] - Log[200] + s[200]; t11 =
Table[{n, c1[n]}, {n, 1, 200}];
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
  R) O2 ?; X$ N/ T3 N* q   DisplayFunction -> Identity];
Show[p211, p212, DisplayFunction -> Identity]

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5