%programa de evaluación de datos del motor a ralentí
pme=10;
EGR=0;
Carga=0;
convergencia1=100;
if DD<10
   IIE=-15;
  if isempty(Edad)
     dosado_min=0.05;
  elseif Edad<3
     dosado_min=0.055;
  elseif Edad<6
     dosado_min=0.06;
  elseif Edad<=10
     dosado_min=0.065;
  end
elseif DD<15
   IIE=-10;
  if isempty(Edad)
     dosado_min=0.04;
  elseif Edad<3
     dosado_min=0.045;
  elseif Edad<6
     dosado_min=0.05;
  elseif Edad<=10
     dosado_min=0.055;
  end
elseif DD<40
   IIE=-5;
  if isempty(Edad)
    dosado_min=0.035;
  elseif Edad<3
    dosado_min=0.04;
  elseif Edad<6
    dosado_min=0.045;
  elseif Edad<=10
    dosado_min=0.05;
  end
end
pantalla0;
pause(2);
while abs(pme)>0.015
   if pme<0
      if convergencia1<70
         dosado_min=dosado_min+0.003;
      elseif convergencia1<80
         dosado_min=dosado_min+0.002;
      else
         dosado_min=dosado_min+0.001;
      end
      programa;
      pme=presion_efectiva;
    else
      if convergencia1<70
         dosado_min=dosado_min-0.003;
      elseif convergencia1<80
         dosado_min=dosado_min-0.002;
      else
         dosado_min=dosado_min-0.001;
      end
      programa;
      pme=presion_efectiva;
   end
   convergencia1=100*(0.2-abs(pme))/(0.2-0.002);
   if convergencia1<0
      convergencia1=0;
   elseif convergencia1>100
      convergencia1=100;
   end
 set(convergencia,'string',round(convergencia1));
 set(dosado,'string',dosado_min);
end
    if pme<0
      dosado_min=dosado_min+0.001;
      programa;
      pme=presion_efectiva;
    end
 convergencia1=100;
 set(convergencia,'string',round(convergencia1));
 set(dosado,'string',dosado_min);
 pause(3);
 close;