function [ R,V ] = RV_time( time,ro,vo )
% articulo Eskinat AIChE Journal february 1991, vol. 37, No. 2
% elaboro eqm, 23oct'17
%-------------------------------------------------------------
%ro=1.497;   
   if(time>=0 && time<200), r=ro-0.01; end
   if(time>=200 && time<400), r=ro-0.02; end
   if(time>=400 && time<600), r=ro; end
   if(time>=600 && time<800), r=ro-0.01; end
   if(time>=800 && time<1000), r=ro+0.03; end
   if(time>=1000 && time<1200), r=ro+0.005; end
   if(time>=1200 && time<1400), r=ro+0.01; end
   if(time>=1400 && time<1600), r=ro-0.03; end
   if(time>=1600 && time<1800), r=ro+0.02; end
   if(time>=1800 && time<2000), r=ro+0.025; end
   if(time>=2000 && time<2200), r=ro+0.03; end
   if(time>=2200 && time<2400), r=ro+0.005; end
   if(time>=2400 && time<2600), r=ro-0.02; end
   if(time>=2600 && time<2800), r=ro; end
   if(time>=2800 && time<3000), r=ro+0.02; end
   if(time>=3000 && time<3200), r=ro-0.02; end
   if(time>=3200 && time<3400), r=ro+0.005; end
   if(time>=3400 && time<3600), r=ro+0.01; end
   if(time>=3600 && time<3800), r=ro-0.02; end
   if(time>=3800 && time<4000), r=ro+0.005; end
   if(time>=4000 && time<4200), r=ro+0.025; end
   if(time>=4200 && time<4400), r=ro-0.03; end
   if(time>=4400 && time<4600), r=ro-0.01; end
   if(time>=4600 && time<4800), r=ro+0.01; end
   if(time>=4800 && time<5000), r=ro-0.03; end
   if(time>=5000 && time<5200), r=ro-0.01; end
   if(time>=5200 && time<5400), r=ro-0.02; end  %r=ro-0.02;
   if(time>=5400 && time<5600), r=ro; end       %r=ro;
   if(time>=5600 && time<5800), r=ro-0.01; end  %r=ro-0.01;
   if(time>=5800 && time<6000), r=ro-0.025; end %r=ro-0.025
   if(time>=6000 && time<6200), r=ro+0.02; end  %r=ro+0.02;
   if(time>=6200 && time<6400), r=ro-0.01; end  
   if(time>=6400 && time<6600), r=ro-0.03; end  
   if(time>=6600 && time<6800), r=ro-0.005; end 
   if(time>=6800 && time<7000), r=ro+0.01; end  
   if(time>=7000 && time<7200), r=ro-0.025; end 
   if(time>=7200 && time<7400), r=ro-0.01; end
   if(time>=7400 && time<7600), r=ro+0.025; end
   if(time>=7600 && time<7800), r=ro; end
   if(time>=7800 && time<8000), r=ro-0.01; end
   if(time>=8000 && time<8200), r=ro-0.02; end
   if(time>=8200 && time<8400), r=ro-0.005; end
   if(time>=8400 && time<8600), r=ro+0.025; end
   if(time>=8600 && time<8800), r=ro-0.025; end
   if(time>=8800 && time<9000), r=ro+0.005; end
   if(time>=9000), r=ro+0.005; end
   %----------------------------------------------------------
   if(time>=0 && time<300), v=vo-0.01; end
   if(time>=300 && time<600), v=vo-0.03; end
   if(time>=600 && time<900), v=vo; end
   if(time>=900 && time<1200), v=vo-0.015; end
   if(time>=1200 && time<1500), v=vo-0.03; end
   if(time>=1500 && time<1800), v=vo-0.005; end
   if(time>=1800 && time<2100), v=vo-0.02; end
   if(time>=2100 && time<2400), v=vo-0.035; end
   if(time>=2400 && time<2700), v=vo-0.01; end
   if(time>=2700 && time<3000), v=vo-0.025; end
   if(time>=3000 && time<3300), v=vo+0.04; end
   if(time>=3300 && time<3600), v=vo+0.01; end
   if(time>=3600 && time<3900), v=vo-0.025; end
   if(time>=3900 && time<4200), v=vo; end
   if(time>=4200 && time<4500), v=vo-0.015; end
   if(time>=4500 && time<4800), v=vo+0.035; end
   if(time>=4800 && time<5100), v=vo-0.005; end
   if(time>=5100 && time<5400), v=vo+0.01; end  %v=vo+0.01;
   if(time>=5400 && time<5700), v=vo-0.03; end  %v=vo-0.03;
   if(time>=5700 && time<6000), v=vo-0.01; end %v=vo-0.005;
   if(time>=6000 && time<6300), v=vo+0.03; end  %v=vo+0.03;
   if(time>=6300 && time<6600), v=vo+0.04; end
   if(time>=6600 && time<6900), v=vo+0.005; end
   if(time>=6900 && time<7200), v=vo+0.01; end
   if(time>=7200 && time<7500), v=vo-0.04; end
   if(time>=7500 && time<7800), v=vo+0.03; end
   if(time>=7800 && time<8100), v=vo-0.03; end
   if(time>=8100 && time<8400), v=vo; end
   if(time>=8400 && time<8700), v=vo-0.015; end
   if(time>=8700 && time<9000), v=vo+0.015; end
   if(time>=9000), v=vo+0.015; end
   V=v;
   R=r;
end

