clear
clc
M{1}= 'Enero';
M{2}= 'Febrero';
M{3}= 'Marzo';
M{4}= 'Abril';
M{5}= 'Mayo';
M{6}= 'Junio';
M{7}= 'Julio';
M{8}= 'Agosto';
M{9}= 'Septiembre';
M{10}= 'Octubre';
M{11}= 'Noviembre';
M{12}= 'Diciembre';

 mes1=3; dia1=25; dia2=21;
 mes2=5; dia3=23;
 mes3=10;dia4=28; 
 mes4=11;dia5=12;
 dm = [ 31 29 31 30 31 30 31 31 30 31 30 31 ]';
 
raiz = '\Users\Nazaret\Desktop\PFC\';
nh = 24;


for m = 1:12
    if m < 10
        nm = [ '0' num2str(m) ];
    else
        nm = num2str(m);
    end
   
    for d = 1:dm(m);
      %Salto de los dias que no tenemos----------------------------
        
 
        if (m==mes1 && d==dia1) || (m==mes1 && d==dia2) || (m==mes2 && d==dia3) || (m==mes3 && d==dia4)|| (m==mes4 && d==dia5)
            pause(3)
            continue;
        end
      %-----------------------------------------------------------  
       carp_fichero = [ 'DATOS\' num2str(m) ' ' M{m} ' 2012\' num2str(d) '\' ]; 
       fvc = [ raiz carp_fichero 'Ventas_Cas.txt' ];
       fvcs = [ raiz carp_fichero 'Ventas_CasS.txt' ];
       fr=[ raiz carp_fichero 'Resumen.txt' ];
       frs=[ raiz carp_fichero 'ResumenS.txt' ];
       pause(0.2)
       
       if d < 10
           nd = [ '0' num2str(d) ];
       else
           nd = num2str(d);
       end
         
       
           
       %% Lee datos
       fid1 = fopen(fvc,'r');
       fid2 = fopen(fvcs,'r');
       
       [ RE, RP ] = lee_fichero(fid1,nh);
       [ RES, RPS ] = lee_fichero(fid2,nh);
        %% Lee resumen
              
        f1 = fopen(fr,'r');
        f2 = fopen(frs,'r');
        
        Pcas = lee_resumen(f1);
        PcasS = lee_resumen(f2);
        

       %% Lee fichero entrada(Ingresos mínimos)
       fe = [ raiz  'ENTRADAS\VENTA_2012' nm nd '.1.txt' ];
       fid3 = fopen(fe,'r');

       [IM nombre n Pentr Eentr] = lee_entrada(fid3,nh);
       
       
       F = find(IM(:,2)>0.001);
       SumaS=sum(RES');
       Suma=sum(RE');
       [ng y]=size(RE);
     
           %diferencia de ingresos entre la simple y la compleja

     cost=[raiz 'Ganancias Iberdola.txt'];
     fid4=fopen(cost,'a');
     
     
      fprintf(fid4,'%s',num2str(d));
      fprintf(fid4,'%s','\');
      fprintf(fid4,'%s',num2str(m));
      fprintf(fid4,'\t');
     
      GEN={'ACE3' 'ALZ1' 'ARCOS1' 'ARCOS2' 'ARCOS3' 'ASC2' 'COF1' 'CTJON2R' 'CTN3' 'CTN4' 'DUER' 'EBRA' 'ESC6' 'GUA1' 'GUA2' 'IBEGPM1' 'IBEGPM2' 'IBEGVD1' 'IBEGVD2' 'IBEGVD5' 'IBEGVD6' 'IBEGVD7' 'IBEGVD8' 'IBGVD10' 'IBGVD11' 'IBGVD12' 'IBMON' 'ICUVD01' 'ICUVD02' 'ICUVD03' 'ICUVD04' 'ICUVD05' 'ICUVD06' 'ICUVD07' 'ICUVD08' 'ICUVD09' 'ICUVD10' 'ICUVD11' 'ICUVD12' 'ICUVD13' 'ICUVD14' 'ICUVD15' 'ICUVD16' 'ICUVD17' 'ICUVD18' 'JUCA' 'LAD4' 'MUEL' 'SIL' 'STC4R' 'TAJO' 'TRL1' 'VAN2'};
      prop=[1 0.52687 0.52687 1 1 1 0.15 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0.48 0.28];
      %GENend={'ALL1' 'ALZ1' 'ALZ2' 'ASC1' 'ASC2' 'BES3' 'BES5' 'CCO2' 'CCO3' 'COL4' 'COM4' 'COM5' 'EBRERZ' 'EBRFEN' 'ECYRVD1' 'EE21VD1' 'EE21VD2' 'ENDGVD1' 'FOI1' 'GDLQ' 'GDNA' 'GUIG' 'LIT1' 'LIT2' 'MLTG' 'PEGO3' 'PEGO4' 'PGR1' 'PGR2' 'PGR3' 'PGR4' 'PGR5' 'SBEU' 'SLTG' 'SROQ2' 'TEES' 'TERE' 'TER1' 'TER2' 'TER3' 'TJEG' 'VAN2'};
      %propend=[0.333333333 0.36021 0.36021 1 0.85 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0.72];
      %GENgasn={'ACE4' 'ALL1' 'ALZ1' 'ALZ2' 'BES4' 'CAMG10R' 'CAMG20R' 'CTGN1' 'CTGN2' 'CTGN3' 'GASNPM1' 'GASNPM2' 'GASNRE5' 'GASNVD1' 'GASNVD2' 'GASNVD3' 'GASNVD4' 'GASNVD5' 'GASNVD6' 'GNSUVD1' 'GNSUVD2' 'MALA1' 'MEI1' 'NRC1' 'NRC2' 'NRC3' 'PALOS1' 'PALOS2' 'PALOS3' 'PBCN1' 'PBCN2' 'ROB1' 'ROB2' 'SAGU1' 'SAGU2' 'SAGU3' 'SBO3' 'SROQ1' 'TRL1' 'UFBG' 'UFGC' 'UFMI' 'UFTA'};
      %propgn=[1 0.666666667 0.11292 0.11292 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0.345 1 1 1 1];%tanto por uno propietario
      [x y]=size (GEN);
      [x0 y0]=size(RPS);
   %Calculo ganancias
   
   GananciaS=0;
   Ganancia=0;
   Es=0;
   Ec=0;
    for g=1:y
        ngc=GEN{g}; 
        for i=1:x0
           
           Ngen=nombre{i};
           [x1 y1]=size(Ngen);
           [x2 y2]=size(ngc);
           if y1==y2
               if ngc == Ngen
                  PES=PcasS.*RES(i,:)';
                  PESdia=sum(PES);
                  PE=Pcas.*RE(i,:)';
                  PEdia=sum(PE)*prop(g);
                  Ganancia=Ganancia+ PEdia;
                  GananciaS=GananciaS+ PESdia;
                  Es=Es+sum(RES(i,:));
                  Ec=Ec+sum(RE(i,:));
               end
           end
        end
    end
    fprintf(fid4,'%5.2f',Ganancia);
    fprintf(fid4,'\t');
    fprintf(fid4,'%5.2f',GananciaS);
    fprintf(fid4,'\t');
    fprintf(fid4,'%5.2f',Ec);
    fprintf(fid4,'\t');
    fprintf(fid4,'%5.2f',Es);
    fprintf(fid4,'\n');
                 
     fclose all;             
             
    end
    fclose all;
end
       
    
   
   

      
   
    
    
   