数学建模社区-数学中国
标题:
关于mathematias
[打印本页]
作者:
hyy012345
时间:
2015-4-16 19:35
标题:
关于mathematias
如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。
6 e. C X- V% I# X) z; O
作者:
zhuxinran
时间:
2015-4-17 17:14
感谢楼主，资料非常好。。。
( E W% N6 K6 N1 m8 b( C
作者:
宏心
时间:
2015-4-21 09:55
http://wenku.baidu.com/link?url= ... _KReSEjVPJWiwuJYTxa
7 u/ M" I& O4 T9 Y
作者:
宏心
时间:
2015-4-21 10:56
http://wenku.baidu.com/link?url= ... MFeXTIGpPG2L-6-PM13
4 e: p5 i& e( ?2 [* A
作者:
宏心
时间:
2015-4-21 14:10
s[n_] := NSum[1/k, {k, 1, n}];
8 }2 q7 K, @5 H/ T' }/ \; O
t1 = Table[{k, s[k]}, {k, 1, 200}];
* e2 K6 A$ F, h. E7 b0 k! D
p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
* s3 R) `3 C/ V! f6 B2 g0 J
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
1 s. t4 O' m+ i4 G; [6 s5 S/ i* z3 V
DisplayFunction -> Identity];
$ R! c2 _/ v/ }
p21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
4 ^/ p4 Q. ^) D# ?9 | D
DisplayFunction -> Identity];
# Y7 f; r" S+ G* d7 y- H$ Y
Show[p2, p21, DisplayFunction -> $DisplayFunction]
3 f3 d7 a; l) [0 h: j' T
c[n_] := s[n] - Log[n]; t = Table[{n, c[n]}, {n, 1, 200}];
' I9 L& @5 w) F, v9 ]/ ?
p211 = ListPlot[t, PlotStyle -> {RGBColor[0, 0, 1]},
" H$ _4 ?$ x7 l
DisplayFunction -> Identity];
- e7 ?; `& ^# }2 u2 c+ b9 C
c1[n_] := s[n] - Log[200] + s[200]; t11 =
5 I3 e3 ~8 e1 t
Table[{n, c1[n]}, {n, 1, 200}];
, m, ^- y" Z* J8 N
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
) e! G6 x- J( h c" N8 ?
DisplayFunction -> Identity];
3 |; v. z4 ]$ q; }( _* }
Show[p211, p212, DisplayFunction -> Identity]
6 r: w# o! D1 X& _# i `( _& t
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5