level 1
Plot[(3.69453*2048*Log[(1 + E^(-14870*x))/(1 - E^(-14870*x))])/10^6 +
2048*Log[1 - E^(-29741*x)], {x, 0, 60}]
2023年12月25日 06点12分
2
level 5
有图像的,只是看起来没有。
纵轴和横轴有两段变粗的墨蓝色的线,就是图像。
最好先化简。
取值有问题。首先,x=0时,内部就存在2/0(正无穷大)和Log[0](负无穷大)相加,结果不定。
t=10^(-20),结果是-75236.7
在x>10^(-2.6)时,在精度上,机器认为结果数值都是0
即,从0到10^(-2.6)这么短的区间,一下子从可能是无穷大变到0,之后一直是0
类似于下面这个图像
test[0] = -75236;
test[x_] := 75236/10^-20 x - 75236 /; x < 10^-20
test[10^-20] = 0;
test[x_] := 0;
p1 = Plot[test[x], {x, 0, 10^-20}, PlotRange -> {{0, 60}, {-8000, 0}}];
p2 = Plot[test[x], {x, 10^-20, 60},
PlotRange -> {{0, 60}, {-8000, 0}}];
Show[p1, p2]
2023年12月25日 12点12分
4