level 4
求度娘不要再吞我帖了
Clear["`*"]
q = 0.1;
f[x_] := (1 - q^(2 x))/(1 - q^2);
g[x_] := \!\(
\*UnderoverscriptBox[\(\[Product]\), \(k = 1\), \(x\)]\(f[k]\)\);
P = 1/g[x];
Plot[g[x], {x, 0, 5}]
2018年06月08日 01点06分
11
level 4
有人可以帮忙看看么,最近在弄这个图像,需要它来出论文
2018年06月16日 07点06分
12
吧务
level 15
在此之前,一个更重要的问题是,你的g[x]本身有意义吗?连乘的顶标按理来说只能是个整数,Mathematica之所以能把g[x]画出来,是因为它会自动对顶标向下取整:
Product[i^2, {i, 1, 6}]
Product[i^2, {i, 1, 6.5}]
但这更多的只是一种容错。这种行为真的是你预期的行为吗?
顺便这种容错在g[x]进行了符号计算之后就不复存在了。(你可以检查下P的表达式。)这也是P画不出来的原因。
2018年07月07日 07点07分
14