wolfram-mathematica - 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 を使用しています。ありがとう！