EVAP-IIM-3

 #include<iostream>

#include<math.h>

usingnamespacestd;

intmain()

{

intopcion;

cout<<"*************** programando en termodinamica *****************\n\n";

cout<<"               1) ********* primera ley de la termodinamica ******************* \n\n";

cout<<"               2) ********* rendimiento termodinamico ***************** \n\n";

cout<<"               3) ********* teorema de carnot ******************** \n\n";

cout<<"               4) ********* ciclo de rankine ************** \n\n";

cout<<"               5) ********* tranferencia de calor ************* \n\n";

cout<<"               ingrese una opcion: "; cin>>opcion;

cout<<endl;

switch(opcion)

    {

case 1:

                          {

cout<<"************primera ley de la termodinamica**************\n\n";

int U,Q,W;

cout<<"ingrese la cantidad de calor: ";

cin>>Q;

cout<<"ingrese el trabajo realizado: ";

cin>>W;

                          U = (Q-W);

cout<<"la energia interna es: " << U <<endl;

cout<<"***********************************\n ";                         

                          }

break;

case 2:

                          {

cout<<"************rendimiento termodinamico**************\n";

intE_sal,E_ent;

float N;

cout<<"ingrese la energia de salida: ";

cin>>E_sal;

cout<<"ingrese la energia de entrada: ";

cin>>E_ent;

                          N = (E_sal/E_ent);

cout<<"el rendimiento es: " << N <<endl;

                          }

break;

case 3:

                          {

cout<<"************teorema de carnot**************\n";

cout<<"rendmientos en motores termicos " <<endl;

intTf,Tc,q;

floatNmc,r;

cout<<"ingrese la temperatura del termostato frio: ";

cin>>Tf;

cout<<"ingrese la temperatura del termostato caliente: ";

cin>>Tc;

cout<<"ingrese el calor suministrado: ";

cin>>q;

                          r = (Tf/Tc);

Nmc = (q - r);

cout<<"el rendimiento del motor termico es: " <<Nmc<<endl;;

                          }

break;

case 4:

                          {

cout<<"************ciclo de rankine**************\n";

int Qin,m,W,ent_e,h1,h2,h3,h4,Qout,Wtur,Wbom;

float n;

cout<<"ingrese el caudal masico<kg/s>: ";

cin>>m;

cout<<"*********ingrese las entalpias especificas<N*m>:*********\n ";

cout<<"ingrese h1: ";

cin>>h1;

cout<<"ingrese h2: ";

cin>>h2;

cout<<"ingrese h3: ";

cin>>h3;

cout<<"ingrese h4: ";

cin>>h4;

Qin = (h1-h4)*m;

Wtur = (h1-h2)*m;

Qout = (h2-h3)*m;

Wbom = (h4-h3)*m;

                          n = (Wtur-Wbom)/Qin;

cout<<"la potencia termica es: " <<Qin<<endl;

cout<<"la potencia de la turbina es: " <<Wtur<<endl;

cout<<"la potencia termica de salida es: " <<Qout<<endl;

cout<<"la potencia de la bomba es: " <<Wbom<<endl;

cout<<"el rendimiento termico es: " << n <<endl;

                          }

break;

case 5:

                          {

cout<<"************transferencia de calor**************\n\n";

cout<<"******  por conduccion  *******\n";

int t,k,x,a,t1,t2;

float Q;

cout<<"ingrese el tiempo: ";

cin>>t;

cout<<"ingrese la conductividad termica: ";

cin>>k;

cout<<"ingrese el espesor del material: ";

cin>>x;

cout<<"ingrese el area de la superficie: ";

cin>>a;

cout<<"ingrese la temperatura t2: ";

cin>>t2;

cout<<"ingrese la temperatura t1: ";

cin>>t1;

                          Q = ((t*k*a*(t2-t1))/x);

cout<<"el calor es: " << Q <<endl;

cout<<"********************************\n\n";

cout<<"*********** por convencion **********\n:";

intT,H,As,Ts,Tinf;

float q;

cout<<"ingrese el tiempo: ";

cin>>T;

cout<<"ingrese el coeficiente de convencion: ";

cin>>H;

cout<<"ingrese el area del cuerpo en contacto con el fluido: ";

cin>>As;

cout<<"ingrese la temperatura de la superficie: ";

cin>>Ts;

cout<<"ingrese la temperatura del fluido : ";

cin>>Tinf;

                          q = (T*H*As*(Ts-Tinf));

cout<<"el calor es: " << q <<endl;

cout<<"*****************************************\n ";

                          }

break;

}

system("pause");

return 0;

}