P=-0.000487443 x^(3/2) Cosh[0.0839293 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Surd[x, 4.]^7+0.000410809 x^(3/2) Cos[0.0000792465 Sqrt[x]] Cosh[0.0839293 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Surd[x, 4.]^7-3.03769*10^-7 x^2 Cosh[0.0839293 Surd[x, 4.]] Sin[0.0000792465 Sqrt[x]] Sin[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Surd[x, 4.]^7-0.000487443 x^(3/2) Cosh[0.0419647 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7+0.000410809 x^(3/2) Cos[0.0000792465 Sqrt[x]] Cosh[0.0419647 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7-3.03769*10^-7 x^2 Cosh[0.0419647 Surd[x, 4.]] Sin[0.0000792465 Sqrt[x]] Sin[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7+0.000487443 x^(3/2) Cos[0.0839293 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7-0.000410809 x^(3/2) Cos[0.0000792465 Sqrt[x]] Cos[0.0839293 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7+3.03769*10^-7 x^2 Cos[0.0839293 Surd[x, 4.]] Sin[0.0000792465 Sqrt[x]] Sin[0.0419647 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7+0.000487443 x^(3/2) Cos[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7-0.000410809 x^(3/2) Cos[0.0000792465 Sqrt[x]] Cos[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7+3.03769*10^-7 x^2 Cos[0.0419647 Surd[x, 4.]] Sin[0.0000792465 Sqrt[x]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^7-1.21576*10^-8 Sqrt[x] Cos[0.0000792465 Sqrt[x]] Cos[0.0839293 Surd[x, 4.]] Cosh[0.0839293 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Surd[x, 4.]^10-1.21576*10^-8 Sqrt[x] Cos[0.0000792465 Sqrt[x]] Cos[0.0419647 Surd[x, 4.]] Cosh[0.0839293 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0419647 Surd[x, 4.]] Surd[x, 4.]^10-1.21576*10^-8 Sqrt[x] Cos[0.0000792465 Sqrt[x]] Cos[0.0839293 Surd[x, 4.]] Cosh[0.0419647 Surd[x, 4.]] Sin[0.0419647 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^10-1.21576*10^-8 Sqrt[x] Cos[0.0000792465 Sqrt[x]] Cos[0.0419647 Surd[x, 4.]] Cosh[0.0419647 Surd[x, 4.]] Sin[0.0839293 Surd[x, 4.]] Sinh[0.0839293 Surd[x, 4.]] Surd[x, 4.]^10;
Plot[P, {x, 0, 10000}]