La ecuación de Laplace, anillo y disco cargado

Anillo cargado

Vamos a calcular el potencial en el punto P producido por un anillo de radio a cargado con carga q. En la página titulada Campo y potencial eléctrico de una distribución continua de carga calculamos el potencial en un punto P del eje, θ=0, del anillo, distante r.

V(r,0)= 1 4π ε 0 q a 2 + r 2 = q 4π ε 0 a 1 1+ r 2 a 2

Puntos P que distan r<a del centro del anillo

Para estos puntos, el coeficiente Bn=0, para evitar que el potencial se haga infinito cuando r→0

V r<a (r,θ)= n=0 A n r n P n (cosθ)

El desarrollo en serie de (1+x)n con el exponente n=-1/2 es

( 1+x ) n =1+nx+ 1 2! n(n1) x 2 + 1 3! n(n1)(n2) x 3 +....+ n(n1)....(nm+1) m! x m +... ( 1+x ) 1/2 =1 1 2 x+ 1 2! ( 1 2 )( 3 2 ) x 2 + 1 3! ( 1 2 )( 3 2 )( 5 2 ) x 3 +....+ ( 1 2 )( 3 2 )....( 1 2 m+1 ) m! x m +...

El desarrollo en serie del potencial V(r,0) en un punto P del eje es proporcional a

( 1+ ( r a ) 2 ) 1/2 =1 1 2 ( r a ) 2 + ( 1 ) 2 1 2! 1·3 2 2 ( r a ) 4 + ( 1 ) 3 1 3! 1·3·5 2 3 ( r a ) 6 +....+ ( 1 ) m 1 m! 1·3·5...(2m1) 2 m ( r a ) 2m +... ( 1+ ( r a ) 2 ) 1/2 =1 1 2 ( r a ) 2 + 3 8 ( r a ) 4 5 16 ( r a ) 6 +... ( 1 ) m (2m)! 2 m m!· 2 m m! ( r a ) 2m +...

Math Symbolic de MATLAB nos proporciona el resultado del producto 1·3·5...·(2n-1)

>> syms n;
>> res=symprod((2*n-1),n,1,n);
>> simplify(res)
ans =factorial(2*n)/(2^n*factorial(n))

Los polinomios de Legendre cumplen

P1(0)=P3(0),...P2n-1(0)=0
P0(0)=1, P2(0)=-1/2, P4(0)=3/8, P6(0)=-5/16...

P 2n (0)= ( 1 ) n (2n)! ( 2 n n! ) 2

>> format rat
>> P4=(-1)^2*factorial(2*2)/(2^2*factorial(2))^2
P4 =       3/8  
>> P6=(-1)^3*factorial(2*3)/(2^3*factorial(3))^2
P6 =      -5/16      

En términos de los polinomios de Legendre, el desarrollo en serie se expresa

( 1+ ( r a ) 2 ) 1/2 = P 0 (0)+ P 2 (0) ( r a ) 2 + P 4 (0) ( r a ) 4 + P 6 (0) ( r a ) 6 +... P 2n (0) ( r a ) 2n

Comparando el potencial en un punto del eje del anillo, V(r, 0) con la solución de la ecuación de Laplace para los puntos del eje del anillo θ=0, obtenemos los valores de los coeficientes An. Teniendo en cuenta que Pn(1)=1

V(r,0)= l=0 A n r n P n (1) = l=0 A n r n { A 1 =0, A 3 =0, A 5 =0,... A 0 = q 4π ε 0 a P 0 (0), A 2 = q 4π ε 0 a P 2 (0) a 2 ,..., A 2n = q 4π ε 0 a P 2n (0) a 2n ,...

La solución de la ecuación de Laplace para cualquier punto P (r,θ) con r<a es

V r<a (r,θ)= q 4π ε 0 a { P 0 (cosθ)+ P 2 (0) ( r a ) 2 P 2 (cosθ)+ P 4 (0) ( r a ) 4 P 4 (cosθ)+.... P 2n (0) ( r a ) 2n P 2n (cosθ)+... }

Puntos P que distan r>a del centro del anillo

Para estos puntos el coeficiente An=0, para evitar que el potencial se haga infinito cuando r→∞

V r>a (r,θ)= n=0 B n r n+1 P n (cosθ)

Escribimos el potencial en un punto del eje del anillo de la forma

V(r,0)= 1 4π ε 0 q a 2 + r 2 = q 4π ε 0 r 1 a 2 r 2 +1

Desarrollamos en serie (1+x2)-1/2 y calculamos los coeficientes Bn comparando el potencial en un punto del eje del anillo, V(r, 0) con la solución de la ecuación de Laplace para los puntos del eje del anillo θ=0

( 1+ ( a r ) 2 ) 1/2 =1 1 2 ( a r ) 2 + 3 8 ( a r ) 4 5 16 ( a r ) 6 +... ( 1 ) m (2m)! 2 m m!· 2 m m! ( a r ) 2m +...

La solución de la ecuación de Laplace para cualquier punto P (r,θ) con r>a es

V r>a (r,θ)= q 4π ε 0 r { P 0 (cosθ)+ P 2 (0) ( a r ) 2 P 2 (cosθ)+ P 4 (0) ( a r ) 4 P 4 (cosθ)+.... P 2n (0) ( a r ) 2n P 2n (cosθ)+... }

Ambas soluciones coinciden para r=a

Sea un anillo de radio a=1. Representamos el potencial, en unidades del potencial en el centro del anillo V(0,0)=q/(4πε0a), en la dirección radial de los puntos del plano paralelo al anillo y distante z=0.1. Comparamos esta representación gráfica con la que obtuvimos en la página titulada Campo y potencial eléctrico fuera del eje en términos de integrales elípticas

a=1; %radio del anillo
z=0.1; %por encima del plano del anillo
n=0:50; %número de términos del desarrollo en serie
xx=0:0.05:2;
V=zeros(1,length(xx));
i=0;
for x=xx
    r=sqrt(x^2+z^2);
    ch=cos(atan(x/z));
    i=i+1;
    if r<a
       V(i)=sum(legendreP(2*n,0).*legendreP(2*n,ch).*(r/a).^(2*n)); 
    else
       V(i)=a*sum(legendreP(2*n,0).*legendreP(2*n,ch).*(a/r).^(2*n))/r;       
    end
end
hold on
plot(xx,V);

%en términos de integrales elípticas
m=@(x) 4*a*x./(z.^2+(x+a).^2);
V=@(x) 2*a*ellipke(m(x))./sqrt(z.^2+(x+a).^2)/pi;
fplot(V,[0,2])

hold off
grid on
xlabel('x')
legend('legendre','elíptica','location','best')
ylabel('V(x,z)/V(0)')
title('Potencial')

Observamos una pequeña discrepancia para puntos situados encima del anillo, r≈a

Se sugiere al lector cambiar el valor de la variable z=0.25, 0.5, 1. Observar el efecto del número de términos del desarrollo en serie, en esta representación gráfica, se han tomado n=50, probar con 10, etc.

Potencial de un disco

El potencial producido por un disco de radio R uniformente cargado con una carga Q en un punto P, es la suma de los potenciales producidos en P por los anillos concéntricos de carga dq de radio a y anchura da

La carga dq de un anillo de radio a es

dq= Q π R 2 2πa·da=2 Q R 2 a·da

En las dos expresiones del potencial producido por un anillo cargado, sustituimos la carga q por la carga dq

d V r<a (r,θ)= Q 2π ε 0 R 2 da{ P 0 (cosθ)+ P 2 (0) ( r a ) 2 P 2 (cosθ)+ P 4 (0) ( r a ) 4 P 4 (cosθ)+.... P 2n (0) ( r a ) 2n P 2n (cosθ)+... } d V r>a (r,θ)= Q 2π ε 0 R 2 a r da{ P 0 (cosθ)+ P 2 (0) ( a r ) 2 P 2 (cosθ)+ P 4 (0) ( a r ) 4 P 4 (cosθ)+.... P 2n (0) ( a r ) 2n P 2n (cosθ)+... }

Puntos P que distan r>R del centro del disco

Para todos los anillos que componen el disco cargado se cumple la condición r>a.

V r>R (r,θ)= Q 2π ε 0 R 2 1 r 0 R { P 0 (cosθ)+ P 2 (0) ( a r ) 2 P 2 (cosθ)+ P 4 (0) ( a r ) 4 P 4 (cosθ)+.... P 2n (0) ( a r ) 2n P 2n (cosθ)+... }a·da = Q 2π ε 0 R 2 1 r { P 0 (cosθ) R 2 2 + P 2 (0) 1 r 2 R 4 4 P 2 (cosθ)+ P 4 (0) 1 r 4 R 6 6 P 4 (cosθ)+.... P 2n (0) 1 r 2n R 2n+2 2n+2 P 2n (cosθ)+... }= Q 2π ε 0 1 r { 1 2 P 0 (cosθ)+ 1 4 P 2 (0) ( R r ) 2 P 2 (cosθ)+ 1 6 P 4 (0) ( R r ) 4 P 4 (cosθ)+.... 1 2n+2 P 2n (0) ( R r ) 2n P 2n (cosθ)+... }

El resultado es

V r>R (r,θ)= Q 2π ε 0 R n=0 1 2n+2 ( R r ) 2n+1 P 2n (0) P 2n (cosθ)

Puntos P que distan r<R del centro del disco

El potencial en P es la suma de dos potenciales, la producida por

V r<R (r,θ)= Q 2π ε 0 R 2 1 r 0 r { P 0 (cosθ)+ P 2 (0) ( a r ) 2 P 2 (cosθ)+ P 4 (0) ( a r ) 4 P 4 (cosθ)+.... P 2n (0) ( a r ) 2n P 2n (cosθ)+... }a·da + Q 2π ε 0 R 2 r R { P 0 (cosθ)+ P 2 (0) ( r a ) 2 P 2 (cosθ)+ P 4 (0) ( r a ) 4 P 4 (cosθ)+.... P 2n (0) ( r a ) 2n P 2n (cosθ)+... }da = Q 2π ε 0 R r R { 1 2 P 0 (cosθ)+ 1 4 P 2 (0) P 2 (cosθ)+ 1 6 P 4 (0) P 4 (cosθ)+.... 1 2n+2 P 2n (0) P 2n (cosθ)+... }+ Q 2π ε 0 R 2 { P 0 (cosθ)( Rr )+ P 2 (0)( 1 r 1 R ) r 2 P 2 (cosθ)+ P 4 (0) 1 3 ( 1 r 3 1 R 3 ) r 4 P 4 (cosθ)+.... P 2n (0) 1 2n1 ( 1 r 2n1 1 R 2n1 ) r 2n P 2n (cosθ)+... }= Q 2π ε 0 R r R { 1 2 P 0 (cosθ)+ 1 4 P 2 (0) P 2 (cosθ)+ 1 6 P 4 (0) P 4 (cosθ)+.... 1 2n+2 P 2n (0) P 2n (cosθ)+... }+ Q 2π ε 0 R r R { P 0 (cosθ)+ P 2 (0) P 2 (cosθ)+ P 4 (0) 1 3 P 4 (cosθ)+.... P 2n (0) 1 2n1 P 2n (cosθ)+... } Q 2π ε 0 R { P 0 (cosθ) r R + P 2 (0) r 2 R 2 P 2 (cosθ)+ P 4 (0) 1 3 r 4 R 4 P 4 (cosθ)+.... P 2n (0) 1 2n1 r 2n R 2n P 2n (cosθ)+... }

El resultado es

V r<R (r,θ)= Q 2π ε 0 R r R n=0 ( 1 2n+2 + 1 2n1 ) P 2n (0) P 2n (cosθ) Q 2π ε 0 R n=0 1 2n1 ( r R ) 2n P 2n (0) P 2n (cosθ)

El potencial en la superficie del disco θ=π/2 es

V r<R ( r, π 2 )= Q 2π ε 0 R r R n=0 ( 1 2n+2 + 1 2n1 ) P 2n 2 (0) Q 2π ε 0 R n=0 1 2n1 r 2n R 2n P 2n 2 (0)

Calculamos el potencial en el centro del disco r=0, el primer término es nulo y en el segundo, el primer sumando n=0 de la serie es distinto de cero

V( 0, π 2 )= Q 2π ε 0 R 1 1 P 0 2 (0)= Q 2π ε 0 R

Representamos el potencial, en unidades del potencial en el centro del disco, de un disco de radio R=1 uniformemente cargado, en función de la distancia radial al eje y de la distancia z la plano del disco.

R=1; %radio del disco
xx=0:0.1:2;
zz=0.1:0.1:3;
V=zeros(length(zz),length(xx));
i=0; j=0;
n=0:20; %número de términos de la serie
for z=zz
    i=i+1;
    j=0;
    for x=xx
        j=j+1;
        r=sqrt(x^2+z^2);
        ch=cos(atan(x/z));
        if r<R
            V(i,j)=r*sum(legendreP(2*n,0).*legendreP(2*n,ch).
*(1./(2*n+2)+1./(2*n-1)))/R-sum(legendreP(2*n,0).*legendreP(2*n,ch).
*(r/R).^(2*n)./(2*n-1));
        else
            V(i,j)=sum(legendreP(2*n,0).*legendreP(2*n,ch).
*(R/r).^(2*n+1)./(2*n+2));       
        end
    end
end
[xx,zz]=meshgrid(xx,zz);
surf(xx,zz,V)
xlabel('x')
ylabel('z')
zlabel('V(x,z)/V(0)')
title('Potencial')
view(30,47)

Sea un disco de radio R=1. Representamos el potencial, en unidades del potencial en el centro del disco V(0,0)=Q/(4πε0a), en la dirección radial de los puntos del plano paralelo al disco y distante z=0.1. Comparamos esta representación gráfica con la que obtuvimos en la página titulada Campo y potencial eléctrico fuera del eje en términos de integrales elípticas

function disco_1()
R=1; %radio del disco
n=0:50; %número de términos de la serie
z=0.1; %por encima del plano del disco
hold on

xx=0:0.05:2;
V=zeros(1,length(xx));
i=0;
for x=xx
    r=sqrt(x^2+z^2);
    ch=cos(atan(x/z));
    i=i+1;
    if r<R
        V(i)=r*sum(legendreP(2*n,0).*legendreP(2*n,ch).*
(1./(2*n+2)+1./(2*n-1)))/R-sum(legendreP(2*n,0).*
legendreP(2*n,ch).*(r/R).^(2*n)./(2*n-1));
    else
        V(i)=sum(legendreP(2*n,0).*legendreP(2*n,ch).*
(R/r).^(2*n+1)./(2*n+2));       
    end
end
plot(xx,V)

%funciones elípticas
V=zeros(1,length(xx));
i=1;
for x=xx
    V(i)=2*integral(@ potencial, 0,R)/(pi*R);
    i=i+1;
end
plot(xx,V)

hold off
grid on
xlabel('x')
legend('laplace','elípticas','location','best')
ylabel('V(x,z)/V(0)')
title('Potencial')

  
function res=potencial(a)
        m=4*a.*x./(z^2+(x+a).^2);
        res=a.*ellipke(m)./sqrt(z^2+(x+a).^2);
    end
end

Se sugiere al lector cambiar el valor de la variable z=0.25, 0.5, 1. Observar el efecto del número de términos del desarrollo en serie, en esta representación gráfica, se han tomado n=50, probar con 10, etc.

Ecuación de Laplace para el disco, r>R

En este apartado, buscamos la solución alternativa de la ecuación de Laplace en coordenadas esféricas para los puntos r>R

V(r,θ)= n=0 ( A n r n + B n r n+1 ) P n (cosθ)

Como V→0 cuando r→∞, An=0 en la región del espacio r>R que rodea al disco

V(r,θ)= n=0 B n r n+1 P n (cosθ)

Puntos por encima del plano del disco, z>0

En la página previa hemos calculado el potencial producido por un disco cargado en un punto de su eje, θ=0 (z>0), r=z, lo que nos permite calcular los coeficientes Bn, sabiendo que para θ=0, cos θ=1, los polinomios de Legendre, Pn(1)=1.

V(r,0)= n=0 B n ( R r ) n+1 = σ 2 ε 0 ( R 2 + r 2 r ) V(r,0)= n=0 B n ( R r ) n+1 = σ 2 ε 0 r( ( R r ) 2 +1 1 )

Desarrollamos en serie el miembro derecho

>> syms x;
>> taylor(sqrt(1+x^2),x, 0,'Order',12)
ans =(7*x^10)/256 - (5*x^8)/128 + x^6/16 - x^4/8 + x^2/2 + 1

n=0 B n x n+1 = σR 2 ε 0 1 x ( x 2 +1 1 ) B 0 x+ B 1 x 2 + B 2 x 3 + B 3 x 4 + B 4 x 5 + B 5 x 6 + B 6 x 7 + B 7 x 8 + B 8 x 9 + B 9 x 10 +.. σR 2 ε 0 ( x 2 x 3 8 + x 5 16 5 x 7 128 + 7 x 9 256 ... ) B 2n1 =0 B 2n2 = σR 2 ε 0 1 2 ( 1 2 1 )....( 1 2 n+1 ) n!

Por ejemplo, el coeficiente B6 es proporcional a -5/128. B6=B2·4-2, n=4

>> n=4;
>> j=1:n;
>> prod(1/2-j+1)/factorial(n)
ans =   -0.0391
>> -5/128
ans =    -0.0391

Por ejemplo, el coeficiente B8 es proporcional a 7/256. B8=B2·5-2, n=5

>> n=5;
>> j=1:n;
>> prod(1/2-j+1)/factorial(n)
ans =    0.0273
>> 7/256
ans =    0.0273

El potencial en un punto (r,θ), tal que r>R por encima del disco z>0, es

V(r,θ)= σR 2 ε 0 n=1 1 2 ( 1 2 1 )....( 1 2 n+1 ) n! ( R r ) 2n1 P 2n2 (cosθ)

Puntos por debajo del plano del disco, z<0

En la página previa hemos calculado el potencial producido por un disco cargado en un punto de su eje, lo que nos permite calcular los coeficientes Bn, sabiendo que para θ=π (z<0), r=|z|, cos θ=-1, los polinomios de Legendre, Pn(-1)=(-1)n.

V(r,π)= n=0 B n ( R r ) n+1 ( 1 ) n = σ 2 ε 0 ( R 2 + r 2 r ) V(r,π)= n=0 B n ( R r ) n+1 ( 1 ) n = σ 2 ε 0 r( ( R r ) 2 +1 1 )

Los coeficientes Bn valen

n=0 B n ( R r ) n+1 ( 1 ) n = σR 2 ε 0 r R ( ( R r ) 2 +1 1 ) n=0 B n x n+1 ( 1 ) n = σR 2 ε 0 1 x ( x 2 +1 1 ) B 0 x B 1 x 2 + B 2 x 3 B 3 x 4 + B 4 x 5 B 5 x 6 + B 6 x 7 B 7 x 8 + B 8 x 9 B 9 x 10 +.. σR 2 ε 0 ( x 2 x 3 8 + x 5 16 5 x 7 128 + 7 x 9 256 ... ) B 2n1 =0 B 2n2 = σR 2 ε 0 1 2 ( 1 2 1 )....( 1 2 n+1 ) n!

Obtenemos el mismo resultado que para z>0, como cabría esperar

Representamos el potencial V(x,z) en unidades del potencial en el centro del disco V(0)=σR/(2ε0) para los puntos r>R

R=1; %radio del disco
x=0:0.1:2;
z=1:0.1:3;  %r>R
V=zeros(length(x), length(z));
for i=1:length(x)
    for j=1:length(z)
        vp=0;
        X=0.1*(i-1);
        Z=1+(j-1)*0.1;
        th=atan2(X,Z);
        r=sqrt(X^2+Z^2);
        for n=1:10
            k=1:n;
            vp=vp+prod(1/2-k+1)*(R/r)^(2*n-1)*legendreP(2*n-2, cos(th))
/factorial(n);
        end
        V(i,j)=vp/R;
    end
end
hold on
[x,z]=meshgrid(x,z);
surf(x,z,V)
xlabel('x')
ylabel('z')
zlabel('V(x,z)/V(0)')
title('Potencial')
view(30,30)

Representamos el potencial V(x,z) en unidades del potencial en el centro del disco V(0)=σR/(2ε0) para los puntos r>R, utilizando las dos soluciones de la ecuación de Laplace

R=1; %radio del disco
z=1.2; %por encima del plano del disco r>R
hold on

xx=0:0.05:2;
%primera solución de la ecuación de Laplace
V=zeros(1,length(xx));
i=0;
n=0:50; %número de términos de la serie
for x=xx
    r=sqrt(x^2+z^2);
    ch=cos(atan(x/z));
    i=i+1;
    if r<R
        V(i)=r*sum(legendreP(2*n,0).*legendreP(2*n,ch).*
(1./(2*n+2)+1./(2*n-1)))/R-sum(legendreP(2*n,0).*legendreP(2*n,ch).
*(r/R).^(2*n)./(2*n-1));
    else
        V(i)=sum(legendreP(2*n,0).*legendreP(2*n,ch).*
(R/r).^(2*n+1)./(2*n+2));       
    end
end
plot(xx,V)

%segunda solución de la ecuación de Laplace
V=zeros(1,length(xx));
i=0;
for x=xx
    r=sqrt(x^2+z^2);
    ch=cos(atan(x/z));
    i=i+1;
    vp=0;
    for n=1:10
       k=1:n;
       vp=vp+prod(1/2-k+1)*(R/r)^(2*n-1)*legendreP(2*n-2, ch)
/factorial(n);
     end
     V(i)=vp/R;
end
plot(xx,V)

hold off
grid on
xlabel('x')
legend('laplace 1','laplace 2','location','best')
ylabel('V(x,z)/V(0)')
title('Potencial')

Observamos que ambas soluciones de la ecuación de Laplace para el disco coinciden

Campo eléctrico, para los puntos r>R

E = V(r,θ) r r ^ 1 r V(r,θ) θ θ ^

Las componentes del campo eléctrico

E r (r,θ)= σ 2 ε 0 n=1 1 2 ( 1 2 1 )....( 1 2 n+1 ) n! (2n1) ( R r ) 2n P 2n2 (cosθ) E θ (r,θ)= σ 2 ε 0 n=1 1 2 ( 1 2 1 )....( 1 2 n+1 ) n! ( R r ) 2n sin(θ) d P 2n2 (x) dx | x=cosθ

Utilizamos la propiedad de los polinomios de Legendre Pn(x) para calcular su derivada respecto de x=cosθ

d P n+1 (x) dx =(n+1) P n (x)+x d P n (x) dx d P 0 (x) dx =0, d P 1 (x) dx =1, d P 2 (x) dx =3x,....

Las componentes rectangulares del campo eléctrico

E x = E r sinθ+ E θ cosθ E z = E r cosθ E θ sinθ

R=1; %radio del disco
hold on
X=linspace(0,2,100);
Ez=zeros(1,length(X));
Ex=zeros(1,length(X));
z=1.5;%mayor que R
i=1;
for x=X
    th=atan2(x,z);
    r=sqrt(x^2+z^2);
    Er=0;
    Et=0;
    Dp=0;    
    for n=1:10
        k=1:n;
        Er=Er+prod(1/2-k+1)*(R/r)^(2*n)*(2*n-1)*legendreP(2*n-2, cos(th))
/factorial(n);
        Et=Et+prod(1/2-k+1)*(R/r)^(2*n)*sin(th)*Dp/factorial(n);
        Dp1=(2*n-1)*legendreP(2*n-2, cos(th))+cos(th)*Dp;
        Dp=2*n*legendreP(2*n-1, cos(th))+cos(th)*Dp1;
    end
    Ex(i)=(Er*sin(th)+Et*cos(th))*pi;
    Ez(i)=(Er*cos(th)-Et*sin(th))*pi;
    i=i+1;
end
plot(X, Ex)
plot(X,Ez)
hold off
grid on
xlabel('x')
ylabel('E_x, E_z')
legend('E_x','E_z')
title('Componentes, E_x, E_z')   

Obtenemos una representación similar a la obtenida utilizando funciones elípticas. Cabe resaltar el considerable tiempo de cálculo que le lleva a MATLAB, tomando 2n=20 términos de la serie

Referencias

Tingting Liu, Haibin Sun. Electric Potential of a Uniform Charged Disc in Whole by Method of Superposition. Applied Physics Research, Vol. 2, No. 1, May 2010, ISSN: 1916-9639

Lim Yung-kuo. Problems and Solutions on Electromagnetism. World Scientific (1993). Problem 1009, pp. 11-14