查看: 2268|回复: 4

关于mathematias

字体大小: 正常放大

15 主题	12 听众	39 积分

升级 35.79%

TA的每日心情

	郁闷 2015-9-12 09:18

签到天数: 7 天

[LV.3]偶尔看看II

电梯直达

1^#

发表于 2015-4-16 19:35 |只看该作者 |正序浏览

|招呼Ta 关注Ta

如何用mathematias计算欧拉常数？它的一些语言规则是什么？求解。。。。。。

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

宏心

51 主题	19 听众	8030 积分

升级 60.6%

TA的每日心情

	开心 2026-6-11 16:29

签到天数: 3635 天

[LV.Master]伴坛终老

超级版主

自我介绍: 数据分析，统计学的教学，数学建模的辅导

5^#

发表于 2015-4-21 14:10 |只看该作者 |招呼Ta 关注Ta

s[n_] := NSum[1/k, {k, 1, n}];
t1 = Table[{k, s[k]}, {k, 1, 200}];
p1 = ListPlot[t1, PlotStyle -> PointSize[0.001]]
p2 = ListPlot[t1, PlotStyle -> {RGBColor[0, 0, 1]},
DisplayFunction -> Identity];
p21 = Plot[Log[x], {x, 1, 200}, PlotStyle -> {RGBColor[1, 0, 0]},
DisplayFunction -> Identity];
Show[p2, p21, DisplayFunction -> $DisplayFunction]
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 =
Table[{n, c1[n]}, {n, 1, 200}];
p212 = ListPlot[t11, PlotStyle -> {RGBColor[1, 0, 0]},
DisplayFunction -> Identity];
Show[p211, p212, DisplayFunction -> Identity]