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
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
