Get area under curve?

Questions
,
1

Hello, im new in Mathematica and i do not know how to do it very well, Im studying thermodynamics and i need to create a equation that give me the area under curve i have the coordinates:

5.6489268459732293 e + 003x^0
+1.5840388646726304 e + 004x^1
+1.8411479431773834 e + 004x^2
+1.1346125105186486 e + 004x^3
+3.9100547469412686 e + 003x^4
+7.1432694208139674 e + 002x^5
+5.4027518253964281 e + 001*x^6]

Also I have the limits
Lows -1.70 and Sup -2.99
I will aprecciate your help.
Thanks.

2

f[x_] := 5.648926845973229310^3x^0 + 1.584038864672630410^4x^1 +
1.841147943177383410^4x^2 + 1.134612510518648610^4x^3 +
3.910054746941268610^3x^4 + 7.143269420813967410^2x^5 +
5.402751825396428110^1x^6

 Plot[f[x], {x, -2.99, -1.7}, PlotRange -> {Automatic, {0, 6}}, 
 Filling -> Bottom, PlotLabels -> {"f[x]"}]

4505121.png
4505121.png438×263 2.87 KB

  AREA = NIntegrate[f[x], {x, -2.99, -1.7}]
  (* 5.79828 *)