How can I graph a cylindrical magnetic dipole?

Question

Leosdan Figueredo Noris 2023-4-26

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/1953464-how-can-i-graph-a-cylindrical-magnetic-dipole

编辑： chicken vector 2023-4-27

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

chicken vector 2023-4-26

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/1953464-how-can-i-graph-a-cylindrical-magnetic-dipole#answer_1223759

With quiver or quiver3 [Ref].

3 个评论
显示 1更早的评论隐藏 1更早的评论

Leosdan Figueredo Noris 2023-4-27

编辑：Cris LaPierre 2023-4-27

在 MATLAB Online 中打开

I already tried but it didn't work and I don't know what else to do.

This here is the code I managed to write.

Please, if someone could help me, I would be very grateful.

close all

clear all

clc

%-------------------------------------------------------------------------%

% INICIALIZAÇÃO

% Aqui, todas as grandezas, tamanho, cargas, etc. são definidos

%-------------------------------------------------------------------------%

% muo_0 = 4*pi*10^(-7);

% mou_r = ur

% Constante k = (mou_r*muo_0)/(4*pi) = mou_r*10^(-7)

% multiplique q*d pelo fator de ordem k*10^(-9) para m de ordem micro e nano

ur = 1;

k = ur*10^(-7)*10^(-9);

% momento magnético m = q*d

q = 1;

d = 40;

m = q*d;

% R vai ser a distância entre um ponto selecionado e a localização do

%ponto de carga com intervalos de 0 a R

R = 100;

%cria vetores igualmente espaçados x

x = linspace(-R,R,R/2);

z = x;

%cria a grade

[xx,zz] = meshgrid(x,z);

%-------------------------------------------------------------------------%

% CÁLCULO DOS CAMPOS MAGNÉTICOS %

%-------------------------------------------------------------------------%

% r = distância entre um ponto selecionado e o local da carga

rr = sqrt(xx.^2 + zz.^2);

% Bx = Componente X do Campo Magnético Bx(r) =(Âµ0/4pi)m*[(3xz)/r^5]

Bx = k*m .* (3.*xx.*zz)./(rr.^5);

% By = Componente Y do Campo Magnético By(r) =(Âµ0/4pi)m*[(3xz)/r^5]

% By = k*m .* (3.*xx.*zz)./(rr.^5);

% Bz = Componente Z do Campo Magnético Bz(r) =(Âµ0/4pi)m*[[(3z^2)-(r^2)]/r^5]

Bz = k*m .* (3.*zz.^2./rr.^5 - 1./rr.^3);

% B = Campo magnético total B(x,z)

B = sqrt(Bx.^2 + Bz.^2);

u = Bx./B;

v = Bz./B;

figure;

%plotagem vetorial por quiver

h = quiver(x,z,u,v);

set(h,'color','b','linewidth',1);

%stremslice graficado por streamslice

l = streamslice(x,z,u,v);

set(l,'Color','r','LineWidth',1);

axis tight

hold on

r=3;

n=10;

Z=1;

Z = Z*5;

[X,Y,Z] = cylinder(r,n); %r is radius n is number of points oyu want

[THETA,RHO,ZP] = cart2pol(X,Y,Z); %convert to polar coordinates

surfc(X,Y,Z);

axis equal

xlabel('Comprimento (mm)','fontname','Arial','fontsize',14,'color','k','fontangle',...

'normal','fontweight','demi')

ylabel(texlabel('Comprimento (mm)'),'fontname','Arial','fontsize',14,'color','k',...

'fontangle','normal','fontweight','demi')

title({'Dipolo magnético'},'fontname','Arial','fontsize',18,'color','k',...

'fontweight','bold','fontangle','normal')

chicken vector 2023-4-27

The magnetic field looks okay, you need to plot the cylinder?

chicken vector 2023-4-27

编辑：chicken vector 2023-4-27

在 MATLAB Online 中打开

r = 3;

n = 50;

scale = 5;

[X,Y,Z] = cylinder(r,n);

Z = Z*scale;

figure;

hold on;

surf(X,Y,Z,'FaceColor','r','EdgeColor','None');

fill3(X(2,:),Y(2,:),Z(2,:),'r');

surf(X,Y,Z-scale,'FaceColor','b','EdgeColor','None');

fill3(X(2,:),Y(2,:),Z(1,:) - scale,'b');

text(1.2*r*cos(pi/4),1.2*r*sin(pi/4),scale/2,'N','FontSize',32)

text(1.2*r*cos(pi/4),1.2*r*sin(pi/4),-scale/2,'S','FontSize',32)

hold off;

axis equal;

view([1 1 1])

set(gca,'XColor','None','YColor','None','ZColor','None','Color','None')

请先登录，再进行评论。

How can I graph a cylindrical magnetic dipole?

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

回答（1 个）

3 个评论
显示 1更早的评论隐藏 1更早的评论

另请参阅

类别

标签

Community Treasure Hunt

How can I graph a cylindrical magnetic dipole?

0 个评论 显示 -2更早的评论隐藏 -2更早的评论

回答（1 个）

3 个评论 显示 1更早的评论隐藏 1更早的评论

另请参阅

类别

标签

Community Treasure Hunt

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

3 个评论
显示 1更早的评论隐藏 1更早的评论