¡Descarga Campo Magnético en Cables Cortados y más Resúmenes en PDF de Electromagnetismo solo en Docsity!
Campo magnético de un cable cortado %Declaración de Variables x1=linspace(-5,+5,15); %linspace(Valor inicial, Final, Número de intervalos) y1=linspace(-5,+5,15); [x,y]=meshgrid(x1,y1); %meshgrid convierte dos vectores en matrices a=1;I=10; %Es la corriente %Cálculos %Ahora se guarda la operación en una variable para que sea más claro r=sqrt(x.^2+y.^2); Uo=4.pi.10.^-7; %A continuación se guardan los resultados de cada eje Ex=((-(Uo.I.y)./(2.pi.r.^2))); Ey=(((Uo.I.x)./(2.pi.r.^2))); %Gráfica h=quiver(x,y,Ex,Ey,'autoscalefactor',1); %quiver(x,y,u,v) traza flechas con componentes u y v en las coordenadas % cartesianas especificadas por X y Y. set(h,'color',[0 0 0],'linewidth',1.7); %set le da un color y tamaño de linea a las fechas creadas axis ([-4 4 -4 4]); %axis le da un tamaño a la pantalla y equal le pone los lados iguales axis equal; %Box on muestra el contorno del cuadro alrededor de los ejes box on %rectangle(coordenadas, curvatura entre 0 y 1[circulo]) h=rectangle('Position',[-a/2,-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); %text(posición. titulo, color y tamaño) text(-0.2,0.05,'X','Color','white','Fontsize',20); xlabel('X') ylabel('Y') title('Campo Magnético en un cable cortado')
Campo magnético de dos cables cortados %Declaración de Variables x1=linspace(-7,+7,25); %linspace(Valor inicial, Final, Número de intervalos) y1=linspace(-7,+7,25); [x,y]=meshgrid(x1,y1); %meshgrid convierte dos vectores en matrices a=0.75;I1=-60;I2=60; %Es la corriente Xn1=1;Yn1=0;Xn2=-1;Yn2=0; %Cálculos %Ahora se guarda la operación en una variable para que sea más claro r1=sqrt((x-Xn1).^2+(y-Yn1).^2); r2=sqrt((x-Xn2).^2+(y-Yn2).^2); Uo=4.pi.10.^-7; %A continuación se guardan los resultados de cada eje Ex=((-(Uo.I1.(y-Yn1))./(2.pi.r1.^2))+(-(Uo.I2.(y-Yn2))./(2.pi.r2.^2))); Ey=(((Uo.I1.(x-Xn1))./(2.pi.r1.^2))+((Uo.I2.(x-Xn2))./(2.pi.r2.^2))); %Gráfica h=quiver(x,y,Ex,Ey,'autoscalefactor',1); %quiver(x,y,u,v) traza flechas con componentes u y v en las coordenadas % cartesianas especificadas por X y Y. set(h,'color',[0 0 0],'linewidth',1.2); %set le da un color y tamaño de linea a las fechas creadas axis ([-4.5 4.5 -4.5 4.5]); %axis le da un tamaño a la pantalla y equal le pone los lados iguales axis equal; %Box on muestra el contorno del cuadro alrededor de los ejes box on %rectangle(coordenadas, curvatura entre 0 y 1[circulo]) h=rectangle('Position',[Xn1-a/2,Yn1-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); %text(posición. titulo, color y tamaño) text(Xn1-0.1,Yn1,'X','Color','white','Fontsize',20); h=rectangle('Position',[Xn2-a/2,Yn2-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn2-0.05,Yn2-0.05,'*','Color','white','Fontsize',20); xlabel('X') ylabel('Y') title('Campo Magnético en dos cable cortado')
set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn2-0.05,Yn2-0.05,'','Color','white','Fontsize',10); h=rectangle('Position',[Xn3-a/2,Yn3-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn3-0.05,Yn3,'X','Color','white','Fontsize',10); h=rectangle('Position',[Xn4-a/2,Yn4-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn4-0.05,Yn4-0.05,'','Color','white','Fontsize',10); h=rectangle('Position',[Xn5-a/2,Yn5-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn5-0.05,Yn5,'X','Color','white','Fontsize',10); h=rectangle('Position',[Xn6-a/2,Yn6-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn6-0.05,Yn6-0.05,'','Color','white','Fontsize',10); h=rectangle('Position',[Xn7-a/2,Yn7-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn7-0.05,Yn7,'X','Color','white','Fontsize',10); h=rectangle('Position',[Xn8-a/2,Yn8-a/2,a,a],'curvature',[1 1]); set(h,'Facecolor',[1 0 0],'Edgecolor',[0 0 0]); text(Xn8-0.05,Yn8-0.05,'','Color','white','Fontsize',10); xlabel('X') ylabel('Y') title('Campo Magnético en dos cable cortado')
