The ContourPlot
generated by
k = 1.380648813 10^-23; T1 = 273; T2 = 330;
plt = ContourPlot[.3/(k T) Log10[1 + Z]/Z, {T, T1, T2}, {Z, 1, 50},
PlotRange -> All, ContourLabels -> All, PlotRangePadding -> 10]
(simplified from Question 78999) incorrectly lists the values of several contours as 0
.
From
Cases[plt, Text[z_, __] -> z, Infinity]
(* {2500000000000000000, 5000000000000000000, 7500000000000000000, 0, 0, 0, 0, 0, 0} *)
it is evident that ContourPlot
is not passing values equal to 10^19
or greater.
Is there any command or simple work-around to alleviate this problem (apart from dividing the first ContourPlot
argument by some number rs = 3
or greater and then replacing ContourLabels -> All
by ContourLabels -> Function[{x, y, z}, Inset[z*rs, {x, y}]]
?
Developer`$MaxMachineInteger
$\endgroup$Contours -> FindDivisions[{0, 2*10^19}, 10]
$\endgroup$