Interpole dados com quantidades 

Gere uma função de interpolação a partir de dados 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]=

A entrada para a função de interpolação pode ser qualquer unidade de quantidade compatível associada com os dados das abscissas.

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

Faça o gráfico da função de interpolação.

In[6]:=

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

Out[6]=