绘制无限潜力(双井)

时间:2016-04-26 21:16:25

标签: plot wolfram-mathematica mathematica-8

我一直试图绘制一个具有3个区域的分段势函数的双井势图,但是我的代码却没有正确地绘制我正在寻找的东西。

这是我到目前为止所得到的:

enter image description here

如您所见,该图从两个势阱之间的屏障中间开始。它应该在vL的屏障之前开始,但不是。任何帮助都会做,谢谢!

1 个答案:

答案 0 :(得分:1)

将空白新笔记本粘贴并评估

L = 1;
bWidth = L/5;
v0 = 50;
vL = 4;
vD = 6;
v[x_] := 1 /; x < 0;
v[x_] := 1 /; x > L;
v[x_] := v0 /; (L - bWidth)/2 < x < (L + bWidth)/2;
v[x_] := vL /; 0 < x < (L - bWidth)/2;
v[x_] := vD /; (L + bWidth)/2 < x < L;
Plot[v[x], {x, -.25, 1.25}, PlotRange -> All]

enter image description here