CAPÍTULO 1 - Universidad de Sevilla

Departamento de Física Aplicada III. Universidad de Sevillafunction [t,T,C]=regresion()clcclfdisp (' ')disp (' ')disp (' ')disp ('****************************************************************')disp ('*MENU DE INICIO DEL SISTEMA DE PERFUSIÓN *')disp ('* INTRODUZCA LOS DATOS NECESARIOS PARA ELABORAR LOS PERFILES ')disp ('**************************************************************** ')disp (' ')disp (' ')disp (' INTRODUZCA TIEMPO TOTAL DEL EXPERIMENTO (segundos) ')duracion=input (' Duración = ');disp (' ')t=0:1:duracion; %VECTOR DE TIEMPOtiempos=[]; %VECTOR DE TIEMPOS DE LOS PUNTOS TIEMPO,TEMPtemps=[]; %VECTOR DE TEMPERATURAS DE LOS PUNTOS TIEMPO,TEMPconcents=[]; %VECTOR DE CONCENTRACIONES DE LOS PTOS TIEMPO, CONCENTSdisp (' ')disp (' INTRODUZCA LOS PUNTOS SIGNIFICATIVOS DEL PERFIL DETEMPERATURA ')disp (' DE LA FORMA: TIEMPO,TEMPERATURA ')disp (' INTRODUZCA 0,0 PARA TERMINAR ')disp (' ')subplot (1,2,1); %ABRIMOS LA VENTANA DE REPRESENTACIÓNgrid on;title ('PERFIL DE TEMPERATURA ');xlabel ('TIEMPO (segundos) ');ylabel ('TEMPERATURA (grados) ');while (1==1) %LEEMOS LOS DATOS QUE VA INTRODUCIENDO EL USUARIOentrada(1)=input(' Tiempo = ');entrada(2)=input(' Temperatura = ') ;disp (' ')if (entrada==[0,0]) %FINbreakelse%EN PRIMER LUGAR REPRESENTAMOS EL PUNTO EN LA GRÁFICAplot (entrada(1),entrada(2),'xr');grid on;hold on;title ('PERFIL DE TEMPERATURA ');xlabel ('TIEMPO (segundos) ');ylabel ('TEMPERATURA (grados) ');endtiempos=[tiempos,entrada(1)]; %LO AÑADIMOS AL VECTOR DE TIEMPOStemps=[temps,entrada(2)]; %LO AÑADIMOS AL VECTOR DE TEMPERATURASendclear entrada;137