基于Matlab的求无线长直线电流的磁感应线的分布规律

Posted 2021-06-19 毛_三月

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了基于Matlab的求无线长直线电流的磁感应线的分布规律相关的知识，希望对你有一定的参考价值。

问题：无线长直线电流的磁感应线的分布规律
无限长通电直线的磁感应强度是多少？磁感应线是如何分布的？
在这里插入图片描述

在这里插入图片描述

程序
%直线电流的磁感应线
clear                                  %清除变量
k0=input('请输入比例系数:');           %键入比例系数
%k0=1.2;                                %比例系数参考值
%k0=0.8;                                %比例系数参考值
n=7;                                   %磁感应线条数
r=ones(1,n-1)*k0;                      %半径向量的初值
r=[1,r];                               %补充第一个半径
r=cumprod(r);                          %累积连乘形成半径向量
%r=logspace(0,log10(k0^(n-1)),n);       %等比数列表示半径向量
theta=linspace(0,2*pi);                %角度向量
X=cos(theta')*r;                       %横坐标矩阵
Y=sin(theta')*r;                       %纵坐标矩阵
figure                                 %开创图形窗口
plot(X,Y,'LineWidth',2)                %画圆
grid on                                %加网格
axis equal                             %等轴
hold on                                %保持图像
plot(0,0,'o',0,0,'.','MarkerSize',10)  %画直线电流的剖面
plot(r,zeros(1,n),'^','MarkerFace','k')%画向上的箭头
plot(-r,zeros(1,n),'v','MarkerFace','k')%画向下的箭头
plot(zeros(1,n),r,'<','MarkerFace','k')%画向左的箭头
plot(zeros(1,n),-r,'>','MarkerFace','k')%画向右的箭头
fs=16;                                 %字体大小
title('直线电流的磁感应线','FontSize',fs)%标题
xlabel('\\itx/r\\rm_0','FontSize',fs)    %标记横坐标
ylabel('\\ity/r\\rm_0','FontSize',fs)    %标记纵坐标
text(-1,-0.5,['比例系数为\\itk\\rm_0=',num2str(k0)],'FontSize',fs)%标记文本