以下代码允许您玩转惠斯通电桥中的值。输出结果显示在滑块右侧。expr如何出现在其他地方,并如何设置固定大小?(我只能在Manipulate文档中找到控制大小和位置而非输出的选项。)
Manipulate[
Evaluate[(10^Rx/(10^R3 + 10^Rx) - 10^R2/(10^R1 + 10^R2))*Vin] "V",
{{R1, 5}, 1, 6, 0.01},
Pane["R1 = " Dynamic[Round[10^R1] "\[CapitalOmega]"],
ImageMargins -> {{2.5, 0}, {3, 0}}], {{R2, 5}, 1, 6, 0.01},
Pane["R2 = " Dynamic[Round[10^R2] "\[CapitalOmega]"],
ImageMargins -> {{2.5, 0}, {3, 0}}], {{R3, 5}, 1, 6, 0.01},
Pane["R3 = " Dynamic[Round[10^R3] "\[CapitalOmega]"],
ImageMargins -> {{2.5, 0}, {3, 0}}],
{{Rx, 5}, 1, 6, 0.01},
Pane["Rx = " Dynamic[Round[10^Rx] "\[CapitalOmega]"],
ImageMargins -> {{2.5, 0}, {3, 0}}],
{{Vin, 2.5}, 0, VMax, Appearance -> "Open"}]
\[CapitalAthenas]
:D - Dr. belisarius