function [c] = coste_ofertado(RES,Pentr,Eentr,q)
c=0;
for h=1:24;
if RES(q,h)>0.001
r=h+24*(h-1);
w=r+24;
for l=r:w
if Eentr(q,l)<=RES(q,h)
c=Pentr(q,l)*Eentr(q,l)+c;
end
end
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
