数学建模社区-数学中国

标题: 关于mathematias [打印本页]
作者: hyy012345    时间: 2015-4-16 19:35
标题: 关于mathematias
如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。' E9 A9 L/ b$ @8 {: k% A$ h
作者: zhuxinran    时间: 2015-4-17 17:14
感谢楼主，资料非常好。。。
, F0 l/ }" |" i  T0 S3 S
作者: 宏心    时间: 2015-4-21 09:55
http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
  Q8 o: m# M" h; g" S7 p; j
作者: 宏心    时间: 2015-4-21 10:56
http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13
& ?! U6 M" J( T. b4 Y
作者: 宏心    时间: 2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];! T8 l8 t& G$ m3 \: B! V5 b* t
t1 = Table[{k, s[k]}, {k, 1, 200}];
0 }- p9 W2 b6 Q4 O8 |p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]  E9 U& c& n7 z& ?
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
% H" [9 C0 O8 H  o   DisplayFunction -> Identity];
3 F1 T; n" V/ s9 N5 Up21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
3 K1 \0 \( _1 b6 P   DisplayFunction -> Identity];
9 W& k, ?! W- d% RShow[p2, p21, DisplayFunction -> $DisplayFunction]% `  P1 M2 o7 ~4 f
c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];+ n0 A; X5 V$ Q$ [- i
p211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]}, 9 _3 B( A2 T1 R  _! u! t" M. J
   DisplayFunction -> Identity];( z$ d2 S* L3 T! s! M% C' e' S+ M
c1[n_] := s[n] - Log[200] + s[200]; t11 = . u0 B  k& S  @; |
Table[{n, c1[n]}, {n, 1, 200}];
. K' `# u0 l; [6 U5 _5 Fp212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
( U9 q" s; b( j9 S% C   DisplayFunction -> Identity];! W8 r* X& ]9 \% N7 e
Show[p211, p212, DisplayFunction -> Identity]# }2 c, w+ D8 p) y9 q. X$ a) t' N




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