使用Mathematica中的数量绘图不能按预期工作

Question

我正在尝试使用Mathematica中的数量（带单位）绘制函数图。

insertvalues := {Lr -> Quantity[57* 10 ^-6, "Henry"], Cr -> Quantity[100* 10^-9, "Farad"], U1 -> Quantity[540, "V"]}
uc0[t_] = U1 (1 - Cos[1/Sqrt[Lr *Cr]*t])
Plot[uc0[t] /. insertvalues , {t, Quantity[0, "sec"], Quantity[2.5, "\[Mu]s"]}]

然而，结果情节保持空白：

我不知道出了什么问题或者如何调试它。任何想法如何解决这一点是值得赞赏的。 使用Wolfram Mathematica版本10.0.1。 谢谢！