Hi,
Try to use
Simplify[], that should simplify any expression of the form
0*... to
0.Also
Chop[] will do what you need but only for
real numbers.
As it is seen from your vector you can also use the following idea:
expr1 = 1.*10^(-2) + 0.5 t + 10. Cosh[1. t] + 12. Sin[112. t]
expr2 = 1.*10^(-700) + 0.5 t + 10. Cosh[1. t]
expr3 = 1.*10^(-700) + 0.123*10^-1232 t + 10. Cosh[1. t]
expr4 = 1.*10^(-700) + 0.123*10^-1232 t + 1.*10^-242*Cosh[1. t]
Total[Chop[Apply[List, expr1] /. a_ b_ /; a < 10^-14 -> 0]]
Total[Chop[Apply[List, expr2] /. a_ b_ /; a < 10^-14 -> 0]]
Total[Chop[Apply[List, expr3] /. a_ b_ /; a < 10^-14 -> 0]]
Total[Chop[Apply[List, expr4] /. a_ b_ /; a < 10^-14 -> 0]]
I.M.
