Wolfram mathematica 用Mathematica绘制线图

我试图用Mathematica创建以下图表

我想根据欧姆定律，而不仅仅是一个原始数据集来生成这个

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

---

如果有任何帮助，我将不胜感激。

试试这个。当y轴比例随着r值的变化而变化时，您会发现直线坡度看起来是相同的。有一些简单的打印选项可用于更改该效果

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

---

这个问题似乎与主题无关，因为它属于mathematica.stackexchange.com。请查看

操纵
，了解如何输入阻力值并更新绘图。