% programa de llamada iterativa al programa principal
for iter=1:9
   RPM=ralenti+(iter-1)*((rev_maxima-ralenti)/8);
   programa;
   RPM_iterativo2(iter)=RPM;
   potencia_efectiva_iterativo2(iter)=potencia_efectiva;
   Rend_vol_iterativo2(iter)=Rend_vol;
   ang_retraso_iterativo2(iter)=ang_retraso;
   temp_max_iterativo2(iter)=max(T);
   pres_max_iterativo2(iter)=max(P);
   par_efectivo_iterativo2(iter)=par_efectivo;
   pme2(iter)=presion_efectiva;
   Rend_efectivo2(iter)=rend_efectivo;
   consumo2(iter)=cons_especifico;
   Te(iter)=TI;
   Pe(iter)=PI;
end
   resultado2=[RPM_iterativo2;potencia_efectiva_iterativo2];

   