数学建模社区-数学中国
标题:
关于mathematias
[打印本页]
作者:
hyy012345
时间:
2015-4-16 19:35
标题:
关于mathematias
如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。
# a2 B: z. }. p, p [" t
作者:
zhuxinran
时间:
2015-4-17 17:14
感谢楼主，资料非常好。。。
& u: D. I6 `+ W6 \- E' y/ M4 W
作者:
宏心
时间:
2015-4-21 09:55
http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
! r; @' u2 Q* }
作者:
宏心
时间:
2015-4-21 10:56
http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13
0 n% H8 T& K, c
作者:
宏心
时间:
2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];
/ n" ~+ W+ Y1 A5 ]2 d7 u
t1 = Table[{k, s[k]}, {k, 1, 200}];
' m6 H1 a; i" a8 P' p
p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
+ W" h8 y- N) `# u5 o2 U: _' i- y- k- d
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
4 I6 U' u! K+ ]$ W2 d
DisplayFunction -> Identity];
3 E+ n/ ]7 k9 V' Y3 r; X
p21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
2 k2 T( E8 E% w$ r+ g1 V Q, |+ q
DisplayFunction -> Identity];
4 R O4 Z" k% R9 x# z
Show[p2, p21, DisplayFunction -> $DisplayFunction]
}0 D, E7 n. Q9 U$ |! A3 r! U
c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
4 X/ E4 v5 y4 a1 x6 s
p211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
3 ]# i6 e) d- _2 n
DisplayFunction -> Identity];
; ?1 F. i9 ]- v' W0 V) @# k9 ]6 _
c1[n_] := s[n] - Log[200] + s[200]; t11 =
2 k& z. q- u* ?0 Y2 Q" b7 C2 c" M/ h
Table[{n, c1[n]}, {n, 1, 200}];
' W# V9 n" u$ ~ }. M; c+ r
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
! I) x9 m0 d' @3 R- V5 H
DisplayFunction -> Identity];
9 S2 g9 x% E+ L6 D
Show[p211, p212, DisplayFunction -> Identity]
- i# s$ h: t3 x! N; H) \
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5