数学建模社区-数学中国

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

---

作者: hyy012345    时间: 2015-4-16 19:35
标题: 关于mathematias
如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。
5 ^( ~/ @. n% @% f! ?$ Q

---

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

---

作者: 宏心    时间: 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

---

作者: 宏心    时间: 2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];
t1 = Table[{k, s[k]}, {k, 1, 200}];
  S/ J2 Z$ Z; y; J( h" M7 q, ^" gp1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
1 i- N) _1 G1 Z9 y! \, w# rp2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
8 A7 p, v% [4 ]8 x0 w   DisplayFunction -> Identity];
3 t" ?5 u2 o2 \3 ?7 h: Q. z4 Np21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
4 c6 u4 b7 e& ~   DisplayFunction -> Identity];
% r, H: ]5 @+ [  q$ JShow[p2, p21, DisplayFunction -> $DisplayFunction]
+ F* c! ?! G& L# E% p$ R; t5 }c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
p211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
   DisplayFunction -> Identity];
c1[n_] := s[n] - Log[200] + s[200]; t11 =
4 [3 G4 V9 _* x* s& S Table[{n, c1[n]}, {n, 1, 200}];
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
, B! @* C. g( P* ?% q0 {7 B+ mShow[p211, p212, DisplayFunction -> Identity]
' W+ h; \* M  k  M5 i* N6 s

---

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

Powered by Discuz! X2.5