Interpole datos con cantidades 

Genere una función de interpolación desde datos Quantity.

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]=

La entrada a la función de interpolación puede ser cualquier unidad de cantidad compatible y asociada con los datos de abscisas.

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]=

Grafique la función de interpolación.

In[6]:=

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

Out[6]=