| 查看: 603 | 回复: 0 | |||
ldoop
|
[交流]
【求助】mathematica 求助
|
|
大家好，请帮忙看看我的这个小程序： n = Table[{140, 80, 57, 41, 31, 24, 20, 16, 13, 11, 10, 8, 7, 6, 5, 4, 4, 4, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1}]; f[j_, r_, x_, a_] := n[[j]] Log[r x] + LogGamma[a + 1] + LogGamma[n[[j]]] + Log[Hypergeometric2F1[n[[j]], n[[j]], n[[j]] + a, x - r x]] - Log[x] - Log[n[[j]]] - LogGamma[n[[j]] + a] - Log[HypergeometricPFQ[{1, 1, 1}, {2, 1 + a}, x] - (1 - r) HypergeometricPFQ[{1, 1, 1}, {2, 1 + a}, x - r x]]; L[r_, x_, a_] := Sum[N[f[j, r, x, a]], {j, 1, Length[n]}]; NMaximize[{L[x, r, a], 0 < x, x < 1, 0 < r, r < 0.2, a > 0}, {x, r, a}] 为什么计算不出来值呢？ 如果限制条件是r<1，可以得到值，再改成其他的就得到SystemException["MemoryAllocationFailure", 请大家帮忙看看原因？ 另外 为什么当n中含有29，30，会产生复数，也就是n=29 or 30 计算的L值是复数，应如何处理？或者避免？ 谢谢 |
回复此楼» 猜你喜欢
面上提前没消息，有中的吗
已经有14人回复
-
这种情况还有戏吗
已经有12人回复
-
微信指数没变化，科研之友没阅读
已经有19人回复
-
准备明年的基金了
已经有7人回复
-
面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！
已经有24人回复
-
2026年国自然面上资助率
已经有21人回复
-
基础研究怎么拉横向，学校到款任务越来越多，难以完成 拉横向，都有哪些途径啊
已经有10人回复
-
2027年申博
已经有3人回复
-
一个有机合成实验室都需要哪些设备？
已经有7人回复
-
HXDI做水性聚氨酯乳液，是不是特别容易出渣
已经有3人回复