good morning, how can I assess whether a number is Real and that does not return a result of "Infinity Complex, ... etc ..." I have to run the statement thousands of times, this I have written is extremely slow
a={1/0};
xEval[a_] := If[Count[{"Infinity", "Indeterminate", "ComplexInfinity", "Overflow[]", "Underflow[]"}, ToString[Quiet[a]]] == 0 && Element[a, Reals], True, False];