Grados a kelvin y farenhait

Solo disponible en BuenasTareas
  • Páginas : 2 (342 palabras )
  • Descarga(s) : 0
  • Publicado : 2 de noviembre de 2011
Leer documento completo
Vista previa del texto
Nos muestra los grados en Farenhait y Kelvin. disp('Este fichero sirve para que cuando se introduzce una temperatura en grado Celsius te lo muestra en grados Kelvin y ') disp('en gradosFarenhait ,y tambien te calcula la precion de dicha temperatura y te lo muestra en atmosferas y en N/m^2.') disp('Este calculo trata de que se introduce cualquier temperatura en grado Celsius')disp('y se mostrara en grados Kelvin y en grados Farenhait, pulse intro para continuar...') pause C=input('Introduzca la temperatura en grados Celsius > '); %pregrunta disp('Esta es latemperatura en grados Farenhait; ') F=(C*1.8)+38 %Farenhait disp('Esta es la temperatura en grados Kelvin; ') K=C+273.15 %Kelvin Pol=[-0.132 5.44 -21.0]; P=polyval(Pol,K) disp('Esta es la presion enatmosferas; ') atm=P %presion en atmosferas disp('Esta es la presion en N/m^2; ') Nm2=P/(9.265*10^-6) %presion en N/m^2 disp('The end') pause(5) disp('Este fichero sirve para que cuando seintroduzce los coeficientes de un polinomio de segundo') disp('grado te hace sus raices y tambien dandole valor a la variable del polinomio te muestra su valor.') disp('Este ejercicio trata deponer cualquier valor a los coeficientes del polinomio de') disp('segundo grado, sacar las raices del polinomio y tambien para cualquier valor de') disp('la x en el polinomio de antes sacarsu valor') a=input('Para un polinomio p=ax^2+bx+c,introduzca el valor que usted quiere darle al coeficiente "a" > ') %pregunta b=input('Para un polinomio p=ax^2+bx+c,introduzca el valor queusted quiere darle al coeficiente "b" > ') %pregunta c=input('Para un polinomio p=ax^2+bx+c,introduzca el valor que usted quiere darle al coeficiente "c" > ') %pregunta P=[a b c];raices=roots(P)

%raices del polinomio

x=input('Para un polinomio p=ax^2+bx+c,introduzca el valor de la variable "x" > ') %pregunta Resultado=polyval(P,x) %Resultado disp('The end') pause(5)

tracking img