level 3
![[委屈]](/static/emoticons/u59d4u5c48.png)
level 3
墨夕澜
楼主
m1 = 3792;
m2 = 2788;
c2 = 200;
m3 = 2312;
c1 = 500;
Q1 = 6000;
f[p1_] = E^
m3 Q1 (E^(
2 p1) (-2 - c1 + p1) (1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])^4 -
E^(2 m3) ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))] (2 - c1 + p1 +
2 ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))] (2 + c1 - p1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])) -
E^(m3 + p1) (1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])^2 (2 - c1 + p1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))] (6 + c1 -
p1 + (2 - c1 + p1) ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])))
2020年06月24日 14点06分
3
m2 = 2788;
c2 = 200;
m3 = 2312;
c1 = 500;
Q1 = 6000;
f[p1_] = E^
m3 Q1 (E^(
2 p1) (-2 - c1 + p1) (1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])^4 -
E^(2 m3) ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))] (2 - c1 + p1 +
2 ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))] (2 + c1 - p1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])) -
E^(m3 + p1) (1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])^2 (2 - c1 + p1 +
ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))] (6 + c1 -
p1 + (2 - c1 + p1) ProductLog[(E^m1 + E^m2)/(
E^(1 + c2) + E^(1 + c2 + m3 - p1))])))
![[泪]](/static/emoticons/u6cea.png)
level 7
首先f[i]算出来的就不是个数字，我不确定画图时系统能不能把它当成数字。然后我拿N[]把它化成数字了但是数字太大了，我试着画点{f[i], i}， i在{0，100} 间。结果显示f[0]至f[100]的值已经远超机器最大范围了范围了
2020年06月24日 17点06分
4
好的，谢谢你，我觉得f[i]算出来应该是数值吧，因为MMA是可以直接计算ProductLog函数的数值解的，但是可能是我这个数据不合理，计算结果太大了所以画不了图，其实我就是想证明这个函数的最大值小于0，请问不画图有没有别的方法呢？
2020年06月27日 01点06分
