数学建模社区-数学中国

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

作者: hyy012345    时间: 2015-4-16 19:35
标题: 关于mathematias
如何用mathematias计算欧拉常数?它的一些语言规则是什么?求解。。。。。。
- V  }2 d3 `# z; g2 J3 I
作者: zhuxinran    时间: 2015-4-17 17:14
感谢楼主,资料非常好。。。+ d' f* u0 {# b8 B' L! G/ p

作者: 宏心    时间: 2015-4-21 09:55
http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa6 U+ x: p, m% }& w

作者: 宏心    时间: 2015-4-21 10:56
http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13; ^7 N" g. ?8 Y! }8 y

作者: 宏心    时间: 2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];
; f/ X0 h/ P  S" ^$ r4 wt1 = Table[{k, s[k]}, {k, 1, 200}];
' [- Q( d- U0 `$ bp1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
/ q, c3 q( t/ ~' M+ Y$ xp2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
6 j) m7 v. e. [; O9 N4 ]! |   DisplayFunction -> Identity];
0 o; t( K7 Y, ^% xp21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]}, % V% t' o" _) e! x6 M; a
   DisplayFunction -> Identity];
* z& I# _7 W! X" T% W, K- p, oShow[p2, p21, DisplayFunction -> $DisplayFunction]
/ T/ F6 K7 c0 kc[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
- a5 f$ p2 e- J( D% [. op211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
, ~, Q6 i0 Y! _" i; h: ]& }   DisplayFunction -> Identity];
+ K$ J8 d9 T0 b! y$ yc1[n_] := s[n] - Log[200] + s[200]; t11 =
/ M4 J6 M' C8 x: s Table[{n, c1[n]}, {n, 1, 200}];  g/ t3 G4 C; g- L
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
8 q) b: S# N4 M4 @  M( f9 ~9 k$ Z   DisplayFunction -> Identity];2 I2 x/ S: h9 Q- R* U$ r
Show[p211, p212, DisplayFunction -> Identity]
/ @* d4 e9 a3 I




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5