Sistema de potenciales delta de Dirac con un defecto

En la página titulada Sistema de potenciales delta de Dirac calculamos los niveles de energía y representamos las funciones de onda, para potenciales delta de Dirac negativos. El problema se divide en dos partes: E<0 y E>0. En esta página, los potenciales delta son positivos, por lo que solamente tenemos que estudiar el caso E>0

Sustitución

Resolveremos la ecuación de Schrödinger, en un sistema formado por cuatro potenciales delta, igualmente espaciados a, el parámetro del tercero es β y de los restantes α. A partir de este ejemplo, el lector puede generalizar para cualquier número de potenciales iguales e igualmente espaciados con un único defecto, tal como se puede apreciar en el código MATLAB

2 2m d 2 ψ(x) d x 2 +V(x)·ψ(x)=E·ψ(x)

El potencial V(x) es

{ V(0)= 0<x<aε,V(x)=0 aε<x<a+ε,V(x)=α 2 2m δ(xa) a+ε<x<2aε,V(x)=0 2aε<x<2a+ε,V(x)=α 2 2m δ(x2a) 2a+ε<x<3aε,V(x)=0 3aε<x<3a+ε,V(x)=β 2 2m δ(x3a) 3a+ε<x<4aε,V(x)=0 4aε<x<4a+ε,V(x)=α 2 2m δ(x4a) 4a+ε<x<5a,V(x)=0 V(5a)=

Siendo ε→0, una cantidad que tiende a cero

Las soluciones de la ecuación de Schrödinger en las regiones I, I, III, IV y V con potencial V(x)=0 son

d 2 ψ d x 2 + 2m 2 E·ψ=0,E>0 d 2 ψ d x 2 + k 2 ·ψ=0, k 2 = 2m 2 E ψ I (x)= A 1 sin(kx)+ B 1 cos(kx) ψ II (x)= A 2 sin( k(xa) )+ B 2 cos( k(xa) ) ψ III (x)= A 3 sin( k(x2a) )+ B 3 cos( k(xa) ) ψ IV (x)= A 4 sin( k(x3a) )+ B 4 sin( k(x3a) ) ψ V (x)= A 5 sin( k(x4a) )+ B 5 sin( k(x4a) )

En forma matricial, la relación entre los coeficientes es

( sin(ka) cos(ka) cos(ka) sin(ka) )( A 1 B 1 )=( 0 1 1 α k )( A 2 B 2 ) ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 2 B 2 )=( 0 1 1 α k )( A 3 B 3 ) ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 3 B 3 )=( 0 1 1 β k )( A 4 B 4 ) ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 4 B 4 )=( 0 1 1 α k )( A 5 B 5 )

Niveles de energía

Relacionamos A1 y B1 con A5 y B5

( A 1 B 1 )= ( M 1 N α ) 2 ( M 1 N β )( M 1 N α )( A 5 B 5 ) M 1 = ( sin(ka) cos(ka) cos(ka) sin(ka) ) 1 =( sin(ka) cos(ka) cos(ka) sin(ka) ) N α =( 0 1 1 α k ), N β =( 0 1 1 β k )

Teniendo en cuenta, la relaciones en los extremos, en x=0 (B1=0) y en x=5a, (A5sin(ka)+B5cos(ka)=0), obtenemos la ecuación transcendente

( A 1 0 )=( t 11 t 12 t 21 t 22 )( A 5 A 5 sin(ka) cos(ka) ) t 21 cos(ka) t 22 sin(ka)=0

Representamos los niveles de energía para un sistama de N=4 potenciales delta de Dirac, fijamos la separación constante a=1, el parámetro α=2, de todos los potenciales excepto el tercero, n=3, cuyo parámetro β va cambiando entre 0 y 10

function delta_dirac_30
    a=1;
    alfa=2;
    N=4;
    n=3; %posición defecto
    hold on
    for beta=0:0.5:10
        ff=@(x) niveles(x);
        xb=buscar_intervalos(ff,0.1,4,50);
        nb=size(xb);
        for m=1:nb(1)
            raiz=fzero(ff,[xb(m,1) xb(m,2)]);
            plot(beta,raiz^2,'ro','markersize',3,'markerfacecolor','r')
        end
    end
    line([alfa,alfa],[0,11],'lineStyle','--')
    ylim([0,11])
    hold off
    grid on
    xlabel('\beta');
    ylabel('E')
    title('Defecto en el sólido lineal')
  
    
    function res=niveles(k)
        T=eye(2);
        Ma=[0,1; 1,-alfa/k];  
        Mb=[0,1; 1,-beta/k];  
        MI=[sin(k*a),cos(k*a);cos(k*a),-sin(k*a)];
       for s=N:-1:n+1
             T=(MI*Ma)*T;
       end
        T=(MI*Mb)*T;
       for s=n-1:-1:1
             T=(MI*Ma)*T;
       end
        res=T(2,1)*cos(k*a)-T(2,2)*sin(k*a);
    end

   function xb = buscar_intervalos(f,a,b,n)
        x = a:(b-a)/n:b;
        j = 0; 
        y1=f(x(1));
        xb=[];
        for i = 1:length(x)-1
            y2=f(x(i+1));
            if sign(y1) ~= sign(y2) 
                j = j + 1;
                xb(j,1) = x(i);
                xb(j,2) = x(i+1);
            end
            y1=y2;
        end
        if isempty(xb) 
            disp('no se han encontrado cambios de signo')
        else
            disp(['número de intervalos:' int2str(j)]) 
        end
    end
end

Cuando el parámetro β=α=2, línea a trazos, no hay defecto.

Funciones de onda

Dados los coeficientes A1 y B1=0, obtenemos los coeficientes A2 y B2, A3 y B3, A4 y B4, A5 y B5. En forma matricial

( A 2 B 2 )= ( 0 1 1 α k ) 1 ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 1 B 1 ) ( A 3 B 3 )= ( 0 1 1 α k ) 1 ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 2 B 2 ) ( A 4 B 4 )= ( 0 1 1 β k ) 1 ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 3 B 3 ) ( A 5 B 5 )= ( 0 1 1 α k ) 1 ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 4 B 4 )

El coeficiente A1 se determina de modo que la suma

n=1 N+1 (n1)a na ( A n sin( k(x(n1)a) )+ B n cos( k(x(n1)a) ) ) 2 dx =1 n=1 N+1 { A n 2 2 ( a sin( 2ka ) 2k )+ B n 2 2 ( a+ sin( 2ka ) 2k ) A n B n 2k ( cos( 2ka )1 ) } =1

Representamos las funciones de onda correspondientes a los dos primeros niveles de energía para un sistama de N=4 potenciales delta de Dirac, fijamos la separación constante a=1, el parámetro α=2, de todos los potenciales excepto el tercero, n=3, cuyo parámetro β=0.5

function delta_dirac_27
    a=1;
    alfa=2;
    beta=0.5;
    N=4;
    n=3; %posición defecto
    ff=@(x) niveles(x);
    xb=buscar_intervalos(ff,0.1,4,50);
    nb=size(xb);
    kn=zeros(1,nb(1));
    for m=1:nb(1)
        kn(m)=fzero(ff,[xb(m,1) xb(m,2)]);
    end
    disp(kn)

    A=zeros(1,N+1);
    B=zeros(1,N+1);
    A(1)=1; B(1)=0;
    for k=kn(1:2)
        NaI=[alfa/k,1;1,0];  
        NbI=[beta/k,1;1,0];  
        M=[sin(k*a),cos(k*a);cos(k*a),-sin(k*a)];
        suma=A(1)^2*(a-sin(2*k*a)/(2*k))/2+B(1)^2*(a+sin(2*k*a)/(2*k))/2-
A(1)*B(1)*(cos(2*k*a)-1)/(2*k);
        for m=1:n-1
            Z=(NaI*M)*[A(m);B(m)];
            A(m+1)=Z(1);
            B(m+1)=Z(2);
            suma=suma+A(m+1)^2*(a-sin(2*k*a)/(2*k))/2+B(m+1)^2*(a+sin(2*k*a)/(2*k))
/2-A(m+1)*B(m+1)*(cos(2*k*a)-1)/(2*k);
        end
        m=n;
        Z=(NbI*M)*[A(m);B(m)];
        A(m+1)=Z(1);
        B(m+1)=Z(2);
        suma=suma+A(m+1)^2*(a-sin(2*k*a)/(2*k))/2+B(m+1)^2*(a+sin(2*k*a)/(2*k))
/2-A(m+1)*B(m+1)*(cos(2*k*a)-1)/(2*k);
        for m=n+1:N
            Z=(NaI*M)*[A(m);B(m)];
            A(m+1)=Z(1);
            B(m+1)=Z(2);
            suma=suma+A(m+1)^2*(a-sin(2*k*a)/(2*k))/2+B(m+1)^2*(a+sin(2*k*a)/(2*k))
/2-A(m+1)*B(m+1)*(cos(2*k*a)-1)/(2*k);
        end
        hold on
        for m=0:N
            fplot(@(x) (A(m+1)*sin(k*(x-m*a))+B(m+1)*cos(k*(x-m*a)))/sqrt(suma),
[m*a,(m+1)*a])
        end
    end
    hold off
    grid on
    xlabel('x')
    ylabel('\Phi(x)')
    title('Funciones de onda')

    function res=niveles(k)
        T=eye(2);
        Ma=[0,1; 1,-alfa/k];  
        Mb=[0,1; 1,-beta/k];  
        MI=[sin(k*a),cos(k*a);cos(k*a),-sin(k*a)];
       for s=N:-1:n+1
             T=(MI*Ma)*T;
       end
        T=(MI*Mb)*T;
       for s=n-1:-1:1
             T=(MI*Ma)*T;
       end
        res=T(2,1)*cos(k*a)-T(2,2)*sin(k*a);
    end

   function xb = buscar_intervalos(f,a,b,n)
        x = a:(b-a)/n:b;
        j = 0; 
        y1=f(x(1));
        xb=[];
        for i = 1:length(x)-1
            y2=f(x(i+1));
            if sign(y1) ~= sign(y2) 
                j = j + 1;
                xb(j,1) = x(i);
                xb(j,2) = x(i+1);
            end
            y1=y2;
        end
        if isempty(xb) 
            disp('no se han encontrado cambios de signo')
        else
            disp(['número de intervalos:' int2str(j)]) 
        end
    end
end

Las primeras raíces k de la ecuación transcendente son

 1.0145    1.8762    3.1416    3.5450

Desplazamiento

Resolveremos la ecuación de Schrödinger, en un sistema formado por cuatro potenciales delta, igualmente espaciados a, el parámetro de todos los potenciales es α. El tercer potencial delta se desplaza δ<a. A partir de este ejemplo, el lector puede generalizar para cualquier número de potenciales iguales con un único defecto, tal como se puede apreciar en el código MATLAB

El potencial V(x) es

{ V(0)= 0<x<aε,V(x)=0 aε<x<a+ε,V(x)=α 2 2m δ(xa) a+ε<x<2aε,V(x)=0 2aε<x<2a+ε,V(x)=α 2 2m δ(x2a) 2a+ε<x<3aε,V(x)=0 3a+δε<x<3a+δ+ε,V(x)=α 2 2m δ(x3aδ) 3a+δ+ε<x<4aε,V(x)=0 4aε<x<4a+ε,V(x)=α 2 2m δ(x4a) 4a+ε<x<5a,V(x)=0 V(5a)=

Siendo ε→0, una cantidad que tiende a cero

Las soluciones de la ecuación de Schrödinger en las regiones I, I, III, IV y V con potencial V(x)=0 son

d 2 ψ d x 2 + 2m 2 E·ψ=0,E>0 d 2 ψ d x 2 + k 2 ·ψ=0, k 2 = 2m 2 E ψ I (x)= A 1 sin(kx)+ B 1 cos(kx) ψ II (x)= A 2 sin( k(xa) )+ B 2 cos( k(xa) ) ψ III (x)= A 3 sin( k(x2a) )+ B 3 cos( k(xa) ) ψ IV (x)= A 4 sin( k(x3aδ) )+ B 4 cos( k(x3aδ) ) ψ V (x)= A 5 sin( k(x4a) )+ B 5 cos( k(x4a) )

En forma matricial, la relación entre los coeficientes es

( sin(ka) cos(ka) cos(ka) sin(ka) )( A 1 B 1 )=( 0 1 1 α k )( A 2 B 2 ) ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 2 B 2 )=( 0 1 1 α k )( A 3 B 3 ) ( sin( k(a+δ) ) cos( k(a+δ) ) cos( k(a+δ) ) sin( k(a+δ) ) )( A 3 B 3 )=( 0 1 1 α k )( A 4 B 4 ) ( sin( k(aδ) ) cos( k(aδ) ) cos( k(aδ) ) sin( k(aδ) ) )( A 4 B 4 )=( 0 1 1 α k )( A 5 B 5 )

Niveles de energía

Relacionamos A1 y B1 con A5 y B5

( A 1 B 1 )= ( M 1 N ) 2 ( M +δ 1 N )( M δ 1 N )( A 5 B 5 ) M 1 = ( sin(ka) cos(ka) cos(ka) sin(ka) ) 1 =( sin(ka) cos(ka) cos(ka) sin(ka) ) N=( 0 1 1 α k )

Representamos los niveles de energía para un sistama de N=4 potenciales delta de Dirac, fijamos la separación constante a=1, el parámetro α=2, de todos los potenciales. El tercero, n=3, se desplaza δ<a que va cambiando entre 0 y 0.9

function delta_dirac_29
    a=1;
    alfa=2;
    N=4;
    n=3; %posición defecto
    hold on
    for delta=linspace(0,0.9,20)
        ff=@(x) niveles(x);
        xb=buscar_intervalos(ff,0.1,4,50);
        nb=size(xb);
        for m=1:nb(1)
            raiz=fzero(ff,[xb(m,1) xb(m,2)]);
            plot(delta,raiz^2,'ro','markersize',3,'markerfacecolor','r')
        end
    end
    hold off
    grid on
    ylim([0,11])
    xlabel('\delta');
    ylabel('E')
    title('Defecto en el sólido lineal')

    function res=niveles(k)
        T=eye(2);
        M=[0,1; 1,-alfa/k];  
        MI=[sin(k*a),cos(k*a);cos(k*a),-sin(k*a)];
        MIa=[sin(k*(a+delta)),cos(k*(a+delta));cos(k*(a+delta)),-sin(k*(a+delta))];
        MIb=[sin(k*(a-delta)),cos(k*(a-delta));cos(k*(a-delta)),-sin(k*(a-delta))];
        for s=N:-1:n+2
             T=(MI*M)*T;
        end
        T=(MIb*M)*T;
        T=(MIa*M)*T;
        for s=n-1:-1:1
             T=(MI*M)*T;
        end
        res=T(2,1)*cos(k*a)-T(2,2)*sin(k*a);
    end

   function xb = buscar_intervalos(f,a,b,n)
        x = a:(b-a)/n:b;
        j = 0; 
        y1=f(x(1));
        xb=[];
        for i = 1:length(x)-1
            y2=f(x(i+1));
            if sign(y1) ~= sign(y2) 
                j = j + 1;
                xb(j,1) = x(i);
                xb(j,2) = x(i+1);
            end
            y1=y2;
        end
        if isempty(xb) 
            disp('no se han encontrado cambios de signo')
        else
            disp(['número de intervalos:' int2str(j)]) 
        end
    end
end

Para δ=0, no hay defecto

Funciones de onda

Dados los coeficientes A1 y B1=0, obtenemos los coeficientes A2 y B2, A3 y B3, A4 y B4, A5 y B5. En forma matricial

( A 2 B 2 )= ( 0 1 1 α k ) 1 ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 1 B 1 ) ( A 3 B 3 )= ( 0 1 1 α k ) 1 ( sin(ka) cos(ka) cos(ka) sin(ka) )( A 2 B 2 ) ( A 4 B 4 )= ( 0 1 1 α k ) 1 ( sin( k(a+δ) ) cos( k(a+δ) ) cos( k(a+δ) ) sin( k(a+δ) ) )( A 3 B 3 ) ( A 5 B 5 )= ( 0 1 1 α k ) 1 ( sin( k(aδ) ) cos( k(aδ) ) cos( k(aδ) ) sin( k(aδ) ) )( A 4 B 4 )

El coeficiente A1 se determina de modo que la suma

0 a ( A 1 sin( kx )+ B 1 cos( kx ) ) 2 dx + a 2a ( A 2 sin( k(xa) )+ B 2 cos( k(xa) ) ) 2 dx + 2a 3a+δ ( A 3 sin( k(x2a) )+ B 3 cos( k(x2a) ) ) 2 dx + 3a+δ 4a ( A 4 sin( k(x3aδ) )+ B 4 cos( k(x3aδ) ) ) 2 dx + 4a 5a ( A 5 sin( k(x4a) )+ B 5 cos( k(x4a) ) ) 2 dx =1

El resultado es

A 1 2 2 ( a sin(2ka) 2k )+ B 1 2 2 ( a+ sin(2ka) 2k ) A 1 B 1 2k ( cos(2ka)1 )+ A 2 2 2 ( a sin(2ka) 2k )+ B 2 2 2 ( a+ sin(2ka) 2k ) A 2 B 2 2k ( cos(2ka)1 )+ A 3 2 2 ( a+δ sin( 2k(a+δ) ) 2k )+ B 3 2 2 ( a+δ+ sin( 2k(a+δ) ) 2k ) A 3 B 3 2k ( cos( 2k(a+δ) )1 )+ A 4 2 2 ( aδ sin( 2k(aδ) ) 2k )+ B 4 2 2 ( aδ+ sin( 2k(aδ) ) 2k ) A 4 B 4 2k ( cos( 2k(aδ) )1 )+ A 5 2 2 ( a sin(2ka) 2k )+ B 5 2 2 ( a+ sin(2ka) 2k ) A 5 B 5 2k ( cos(2ka)1 )=1

Representamos las funciones de onda correspondientes a los dos primeros niveles de energía para un sistama de N=4 potenciales delta de Dirac, fijamos la separación constante a=1, el parámetro α=2, de todos los potenciales. El tercero, n=3, se desplaza δ=0.75

function delta_dirac_28
    a=1;
    alfa=2;
    delta=0.75;
    N=4;
    n=3; %posición defecto
    ff=@(x) niveles(x);
    xb=buscar_intervalos(ff,0.1,4,50);
    nb=size(xb);
    kn=zeros(1,nb(1));
    for m=1:nb(1)
        kn(m)=fzero(ff,[xb(m,1) xb(m,2)]);
    end
    disp(kn)

    A=zeros(1,N+1);
    B=zeros(1,N+1);
    A(1)=1; B(1)=0;
    for k=kn(1:2)
        NI=[alfa/k,1;1,0];  
        M=[sin(k*a),cos(k*a);cos(k*a),-sin(k*a)];
        Ma=[sin(k*(a+delta)),cos(k*(a+delta));cos(k*(a+delta)),
-sin(k*(a+delta))];
        Mb=[sin(k*(a-delta)),cos(k*(a-delta));cos(k*(a-delta)),
-sin(k*(a-delta))];
        suma=A(1)^2*(a-sin(2*k*a)/(2*k))/2+B(1)^2*(a+sin(2*k*a)/(2*k))/2
-A(1)*B(1)*(cos(2*k*a)-1)/(2*k);
        for m=1:n-1
            Z=(NI*M)*[A(m);B(m)];
            A(m+1)=Z(1);
            B(m+1)=Z(2);
            suma=suma+A(m+1)^2*(a-sin(2*k*a)/(2*k))/2+B(m+1)^2*(a+sin(2*k*a)
/(2*k))/2-A(m+1)*B(m+1)*(cos(2*k*a)-1)/(2*k);
        end
        suma=suma+A(m+1)^2*(a+delta-sin(2*k*(a+delta))/(2*k))/2+B(m+1)^2*
(a+delta+sin(2*k*(a+delta))/(2*k))/2-A(m+1)*B(m+1)*(cos(2*k*(a+delta))-1)
/(2*k);
        m=n;
        Z=(NI*Ma)*[A(m);B(m)];
        A(m+1)=Z(1);
        B(m+1)=Z(2);
        suma=suma+A(m+1)^2*(a-delta-sin(2*k*(a-delta))/(2*k))/2+B(m+1)^2*
(a-delta+sin(2*k*(a-delta))/(2*k))/2-A(m+1)*B(m+1)*(cos(2*k*(a-delta))-1)
/(2*k);       
        m=n+1;
        Z=(NI*Mb)*[A(m);B(m)];
        A(m+1)=Z(1);
        B(m+1)=Z(2);
        suma=suma+A(m+1)^2*(a-sin(2*k*a)/(2*k))/2+B(m+1)^2*(a+sin(2*k*a)
        /(2*k))/2-A(m+1)*B(m+1)*(cos(2*k*a)-1)/(2*k);
        
        for m=n+2:N
            Z=(NI*M)*[A(m);B(m)];
            A(m+1)=Z(1);
            B(m+1)=Z(2);
            suma=suma+A(m+1)^2*(a-sin(2*k*a)/(2*k))/2+B(m+1)^2*(a+sin(2*k*a)
            /(2*k))/2-A(m+1)*B(m+1)*(cos(2*k*a)-1)/(2*k);
        end
        hold on
        for m=0:n-2
            fplot(@(x) (A(m+1)*sin(k*(x-m*a))+B(m+1)*cos(k*(x-m*a)))/
sqrt(suma),[m*a,(m+1)*a])
        end
        m=n-1;
        fplot(@(x) (A(m+1)*sin(k*(x-m*a))+B(m+1)*cos(k*(x-m*a)))/
sqrt(suma),[m*a,(m+1)*a+delta])
        m=n;
        fplot(@(x) (A(m+1)*sin(k*(x-m*a-delta))+B(m+1)*cos(k*(x-m*a-delta)))
/sqrt(suma),[m*a+delta,(m+1)*a])
        for m=n+1:N
            fplot(@(x) (A(m+1)*sin(k*(x-m*a))+B(m+1)*cos(k*(x-m*a)))
/sqrt(suma),[m*a,(m+1)*a])
        end
     end
    hold off
    grid on
    xlabel('x')
    ylabel('\Phi(x)')
    title('Funciones de onda')


    function res=niveles(k)
        T=eye(2);
        M=[0,1; 1,-alfa/k];  
        MI=[sin(k*a),cos(k*a);cos(k*a),-sin(k*a)];
       MIa=[sin(k*(a+delta)),cos(k*(a+delta));cos(k*(a+delta)),-sin(k*(a+delta))];
       MIb=[sin(k*(a-delta)),cos(k*(a-delta));cos(k*(a-delta)),-sin(k*(a-delta))];
       for s=N:-1:n+2
             T=(MI*M)*T;
       end
        T=(MIb*M)*T;
        T=(MIa*M)*T;
       for s=n-1:-1:1
             T=(MI*M)*T;
       end
        res=T(2,1)*cos(k*a)-T(2,2)*sin(k*a);
    end

   function xb = buscar_intervalos(f,a,b,n)
        x = a:(b-a)/n:b;
        j = 0; 
        y1=f(x(1));
        xb=[];
        for i = 1:length(x)-1
            y2=f(x(i+1));
            if sign(y1) ~= sign(y2) 
                j = j + 1;
                xb(j,1) = x(i);
                xb(j,2) = x(i+1);
            end
            y1=y2;
        end
        if isempty(xb) 
            disp('no se han encontrado cambios de signo')
        else
            disp(['número de intervalos:' int2str(j)]) 
        end
    end
end

Las primeras raíces k de la ecuación transcendente son

 1.2432    1.8356    2.3518    2.7170    3.1965

Referencias

Todd K. Timberlake, Neilson Woodfield. Band formation and defects in a finite periodic quantum potential. Am. J. Phys. 90 (2), February 2022. pp. 93-102