数学建模社区-数学中国

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

---

作者: hyy012345    时间: 2015-4-16 19:35
标题: 关于mathematias
如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。
3 T/ v6 A, w% S- C; p0 P8 ?

---

作者: zhuxinran    时间: 2015-4-17 17:14
感谢楼主，资料非常好。。。

---

作者: 宏心    时间: 2015-4-21 09:55
http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
) p- ^( B9 s8 ]# h: ]

---

作者: 宏心    时间: 2015-4-21 10:56
http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13

---

作者: 宏心    时间: 2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];
9 Z% T- J" x: U+ vt1 = Table[{k, s[k]}, {k, 1, 200}];
8 [( F  `5 ^8 N5 z" ?p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
  W& `9 V8 h* ~, ~3 U- s! jp2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
   DisplayFunction -> Identity];
/ }% i+ W6 D* h; i/ x9 Qp21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
* ?# m. q! f( Z$ Q+ QShow[p2, p21, DisplayFunction -> $DisplayFunction]
* G3 j4 R+ C! n( I: Cc[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
( O; V" t2 R' @  ^( op211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
   DisplayFunction -> Identity];
+ d) I0 ~, d& Q( D$ q; Dc1[n_] := s[n] - Log[200] + s[200]; t11 =
$ t5 f7 @6 e5 R% o Table[{n, c1[n]}, {n, 1, 200}];
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
9 P, d9 \9 d: x1 dShow[p211, p212, DisplayFunction -> Identity]

---

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

Powered by Discuz! X2.5