I got this from examples, and it works, but I can not understand it
first the initial data
f1[x_] := 4 x^3 + 0.1 x^2 - 7 x - 1
pss = Plot[f1[x], {x, -1.3, 1.53}]
then
mx = Max[Last /@ Level[Cases[pss, _Line, Infinity], {-2}]]
or
mn = Min[Last /@ Level[Cases[pss, _Line, Infinity], {-2}]]
both work but I do not understand this _Line ??
PlotusingFullFormit's liable to drive you mad. :)InputFormis bad enough. A difficulty is that theFullFormis how an expression is interpreted, but due to wanting "nice" markup, the details are often hidden. Trya/b, for instance. :) – rcollyer Aug 15 '18 at 20:03shortInputForm. – xzczd Aug 16 '18 at 07:59