function [Intensidad_Media_G]=AnalisisImagenGlobal(Candidates_V,Candidates_H,Candidates_45,Candidates_135,Intensidad_V,Intensidad_H,Intensidad_45,Intensidad_135)

[LV,QV]=size(Candidates_V);
[LH,QH]=size(Candidates_H);
[L45,Q45]=size(Candidates_45);
[L135,Q135]=size(Candidates_135);

Candidates_G(1:LV,1:QV)=Candidates_V(1:LV,1:QV);
Candidates_G(LV+1:LV+LH,1:QH)=Candidates_H(1:LH,1:QH);
Candidates_G(LV+LH+1:LV+LH+L45,1:Q45)=Candidates_45(1:L45,1:Q45);
Candidates_G(LV+LH+L45+1:LV+LH+L45+L135,1:Q135)=Candidates_135(1:L135,1:Q135);

Intensidad_G(1:LV)=Intensidad_V(1:LV);
Intensidad_G(LV+1:LV+LH)=Intensidad_H(1:LH);
Intensidad_G(LV+LH+1:LV+LH+L45)=Intensidad_45(1:L45);
Intensidad_G(LV+LH+L45+1:LV+LH+L45+L135)=Intensidad_135(1:L135);

Maximo_Intensidad_G=max(Intensidad_G);
Umbral_Intensidad_G=0.3*Maximo_Intensidad_G;

[filas,columnas]=size(Intensidad_G);
z=1;

for i=1:columnas
    if Intensidad_G(i)<Umbral_Intensidad_G
        longitud=Candidates_G(i,3);
        Sub_Intensidad_G(z)=Intensidad_G(i);
        Sub_Candidates_G(z,1:2*longitud+3)=Candidates_G(i,1:2*longitud+3);
        z=z+1;
    end
end

Intensidad_Media_G=mean(Sub_Intensidad_G)-std(Sub_Intensidad_G);