- 注册时间
- 2009-2-12
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 22687
- 在线时间
- 小时
|
发表于 2013-10-27 09:21:00
|
显示全部楼层
我算的n=5跟星空的不一样,直观上看,我的各值增长缓慢有序,星空的跳跃很大,应该星空的有问题吧,呵呵:
{2,1.2071067811865475244}
{3,1.3333333333333333333}
{4,1.4208443854096138127}
{5,1.4863532289630506405}
{6,1.5379375565200349314}
{7,1.5800372106320523521}
{8,1.6153223997025154181}
{9,1.6455095229654850634}
{10,1.6717598117746269022}
{11,1.6948914447952002823}
{12,1.7155002229834597662}
{13,1.7340320305579521193}
{14,1.7508283247728315365}
{15,1.7661557795845829306}
{16,1.7802262265671340380}
{17,1.7932104410890079583}
{18,1.8052479032405679004}
{19,1.8164538550045598629}
{20,1.8269244980919275537}
{21,1.8367408861507595618}
{22,1.8459718828800575196}
{23,1.8546764405356997473}
{24,1.8629053764142772740}
{25,1.8707027733414674886}
{26,1.8781070949833550148}
{27,1.8851520823506100056}
{28,1.8918674806263563208}
{29,1.8982796331206052650}
{30,1.9044119702229642483}
{31,1.9102854146768111894}
{32,1.9159187196427814657}
{33,1.9213287523819213142}
{34,1.9265307336372515292}
{35,1.9315384406920866637}
{36,1.9363643804664991442}
{37,1.9410199377585781586}
{38,1.9455155027561487910}
{39,1.9498605811722265340}
{40,1.9540638897452618003}
{41,1.9581334393568971117}
{42,1.9620766076281072062}
{43,1.9659002025383830039}
{44,1.9696105183560617257}
{45,1.9732133849586884352}
{46,1.9767142114508434540}
{47,1.9801180248457163209}
{48,1.9834295044599796889}
{49,1.9866530125745791006}
{50,1.9897926218332249318}
- Table[{n,
- k /. FindRoot[
- Last@ComposeList[
- Map[Function[x, #] &, ((k x)^(1/#) - 1/#)^# & /@
- Range[2, n - 1]], k - 1]*k == (1/n)^n, {k, 2},
- WorkingPrecision -> 20]}, {n, 2, 50}] // Column
复制代码 |
|