I am trying to plot a figure by the following codes:
Plot[(27 2^((-2 + a)/(-1 + a)) 5^(a/(-1 + a)) 7^(1/(1 - a))
a^2)/((-1 + a) (4 + 9 a)), {a, 1.001, 3}]
When running the above program, the warning appeared:
General::munfl:
1/7^960.765is too small to represent as a normalized machine number; precision may be lost.
How can I fix this problem? I have tried to set a higher WorkingPrecision value, but it didn't work.
Quiet@Plot[...it does not affect anything in terms of the plot. It is just saying it is too small of a number. – Nasser Nov 21 '22 at 11:22{a, 1 + 1/100, 3}– cvgmt Nov 21 '22 at 11:29Limit[(27 2^((-2 + a)/(-1 + a)) 5^(a/(-1 + a)) 7^(1/(1 - a)) a^2)/((-1 + a) (4 + 9 a)), a -> 1, Direction -> "FromAbove"]– cvgmt Nov 21 '22 at 11:35Plot[1/x^1000, {x, .001, 1}]– cvgmt Nov 21 '22 at 23:25Plot[With[{a = SetPrecision[a, 16]}, a (27 2^((-2 + a)/(-1 + a)) 5^(a/(-1 + a)) 7^(1/(1 - a)) a^2)/((-1 + a) (4 + 9 a))], {a, 1.001, 3}]Please refer to the suggested duplicate to understand the reason. – xzczd Nov 22 '22 at 02:19