近日在写毕业设计,有一个学术上的问题,使得StreamPlot函数显示的结果不够严谨。
参考文献上的源程序:
StreamPlot[
{NIntegrate[(1 - y*Cos[\[Alpha]])/(
2 \[Pi] (1 + y^2 + x^2 - 2*y*Cos[\[Alpha]])^1.5), {\[Alpha], 0,
2 \[Pi]}],
NIntegrate[(x*Cos[\[Alpha]])/(
2 \[Pi] (1 + y^2 + x^2 - 2*y*Cos[\[Alpha]])^1.5), {\[Alpha], 0,
2 \[Pi]}]},
{x, -2, 2}, {y, -2, 2}, StreamScale -> 0.05]
绘制的是两条通电直导线产生的磁感线,绘制的平面是导线的横截面。
然而,磁感线是闭合的,我们一般认为磁感线应该是一整条曲线,其疏密程度体现了磁场的强度(磁感应强度)的大小;而非像图中中心点附近,左侧的两条磁感线被切断了,虽然这样更好看更美观更平均,但是舍弃了物理事实。我希望有一个把曲线完全连接的方法,美观程度完全需要为了严谨性让步
参考文献上的源程序:
StreamPlot[
{NIntegrate[(1 - y*Cos[\[Alpha]])/(
2 \[Pi] (1 + y^2 + x^2 - 2*y*Cos[\[Alpha]])^1.5), {\[Alpha], 0,
2 \[Pi]}],
NIntegrate[(x*Cos[\[Alpha]])/(
2 \[Pi] (1 + y^2 + x^2 - 2*y*Cos[\[Alpha]])^1.5), {\[Alpha], 0,
2 \[Pi]}]},
{x, -2, 2}, {y, -2, 2}, StreamScale -> 0.05]
绘制的是两条通电直导线产生的磁感线,绘制的平面是导线的横截面。
然而,磁感线是闭合的,我们一般认为磁感线应该是一整条曲线,其疏密程度体现了磁场的强度(磁感应强度)的大小;而非像图中中心点附近,左侧的两条磁感线被切断了,虽然这样更好看更美观更平均,但是舍弃了物理事实。我希望有一个把曲线完全连接的方法,美观程度完全需要为了严谨性让步