procedure calculoDinamico is
   begin
   for I in 1..Max loop
         T(I) := (ST1(I-1) + ST2opt/2.0);
         SC1(I) := (((1.95 * SR1(I))-(4.0*(T(I)-ST4(I))))*((9.0*2.0*6.0*10000.0)))/((ST2opt-ST1(I-1))*4190.0*975.0);
         if(SC1(I)<7.5) then SC1(I):=7.5;
         elsif(SC1(I)>20.0) then SC1(I) :=20.0;
         end if;
         SC2(I) := (((0.135 + 0.003 * ST2opt - 0.0204 * ST3(I)-(SD1opt/24.0)))/(1.001*(-0.00004)*ST2_ini));
         if(SC2(I)<400.0) then SC2(I):=400.0;
         elsif(SC2(I)>600.0) then SC2(I):=600.0;
         end if;
         ST1(I) := ST2opt - 11.0;
      end loop;
   escrituraFichero(True);
   end calculoDinamico;