绘制线图Mathematica

Question

我正在尝试在Mathematica中创建以下图表。

我想以某种方式根据欧姆定律生成这个，而不仅仅是原始数据集。

我希望能够切换电阻值以更新图表，并以0至5 V的步长增加电压

任何帮助都会非常感激我完全陷入困境。

Answer 1

试试这个。您将发现线斜率看起来相同，而y轴刻度随着r值的变化而变化。您可以使用简单的绘图选项来改变这种效果。

i[v_, r_] := v/r;
Manipulate[
   Plot[i[v, r], {v, 1, 5000}, PlotRange -> All], {r, 100, 50000}]