Grafique funciones usando unidades 

Una envoltura explícita Quantity en una función de caja negra.

In[1]:=

X Plot[StandardAtmosphereData[Quantity[x, "Feet"], "Pressure"], {x, 0, 1000}, FrameLabel -> Automatic, PlotTheme -> "Web", Filling -> Top, AspectRatio -> 1]

Out[1]=

La trayectoria balística de un misil disparado después de t segundos.

In[2]:=

X vel = Quantity[3000, "Feet"/"Seconds"]; grav = Quantity[1, "StandardAccelerationOfGravity"];

In[3]:=

X Plot[vel*t + 1/2 (-grav) t^2, {t, Quantity[0, "Seconds"], Quantity[3, "Minutes"]}, PlotTheme -> "Web", FrameLabel -> Automatic, Filling -> Bottom]

Out[3]=