|
numbers=RandomReal[{-2,6},11]
|
|
tpk[numbers_,overflowVal_]:=Module[{revNumbers},
|
|
revNumbers=Reverse[numbers];
|
|
f[x_]:=Abs[x]^0.5+5 x^3;
|
|
Do[
|
|
If[f[i]>overflowVal,
|
|
Print["f[",i,"]= Overflow"]
|
|
,
|
|
Print["f[",i,"]= ",f[i]]
|
|
]
|
|
,
|
|
{i,revNumbers}
|
|
]
|
|
]
|
|
tpk[numbers,400]
|