Interpolate Data with Quantities 

Generate a interpolating function from Quantity data.

In[1]:=

X data = Table[{Quantity[i, "Seconds"], Quantity[1 - 8 (i/10)^2 + 8 (i/10)^4, "Pounds"]}, {i, 0, 10}] ; if = Interpolation[data]

Out[1]=

In[2]:=

X Plot[if[Quantity[t, "Seconds"]], {t, 0, 10}]

Out[2]=

The input to the interpolating function can be any compatible quantity unit associated with the abscissa data.

In[3]:=

X if[Quantity[3, "Seconds"]]

Out[3]=

In[4]:=

X if[Quantity[0.1, "Minutes"]]

Out[4]=

In[5]:=

X if[Quantity[0.001, "Hours"]]

Out[5]=

Plot the interpolating function.

In[6]:=

X input = Quantity[Range[0, 0.15, 0.15/100], "Minutes"]; ListLinePlot[Transpose[{input, if[input]}], AxesLabel -> Automatic]

Out[6]=