I have problem with displaying variables in scientific notation in plot title. Below is my code sample,

```
ClearAll;
f1[a_,b_,c_]:=a*x^2+b*x^3+c;
f2[a_,b_,c_]:=a*x+b*x^2+(2-x)*c;
x=Range[0,10,0.01];
a1=1.0;b1=2.0;c1=0.000000001;
f3=f2[a1,b1,c1]+f1[a1,1,c1];
plot1=ListPlot[f3,PlotLabel->Style[" a="<>ToString[a1]<>"   b="<>ToString[b1]<>" c="<>ToString[c1]]]

```

It works on simple decimal numbers. However, longer decimals do not display properly. How to fix that?