sábado, 17 de enero de 2015

LAB 3

// ESTRUCTURA EN BLANCO
#include<iostream>
#include<math.h>
using namespace std;

int a, b, c, n, R1, R2, R3, Req, L, C, f;
double Fx, P, fo;
// ZONA DE DECLARACION DE LOS VECTORES
const int TAM_N=4, TAM_M=4;
int suma, i, j, Elemento, max, min, Matriz[TAM_N][TAM_M], A[TAM_N][TAM_M], B[TAM_N][TAM_M];

int main ()
 {
    //1)DECLARACION
  int opcion;
  do
  { // INICIO DEL DO - WHILE
  cout<<"********* MENU DE MATRICES *************************\n\n";
  cout<<" 1) LECTURA UNA MATRIZ \n";
  cout<<" 2) IMPRESION O ESCRITURA O VISULAIZACION DE LA MATRIZ \n";
  cout<<" 3) PROCESAR EL MAXIMO DE LOS ELEMENTOS DE LA MATRIZ\n";
  cout<<" 4) PROCESAR EL MINIMO DE LOS ELEMENTOS DE LA MATRIZ  \n";
  cout<<" 5) SUMA DE ELEMENTOS DE LA MATRIZ \n";
  cout<<" 6) SUMA DE MATRICES A + B \n";
  cout<<" 7) DIAGONAL DE UNA MATRIZ  \n";
  cout<<" 8) SUMA DE LAS FILAS DE LA MATRIZ  \n"; 
  cout<<" 9) SUMA DE LAS COLUMNAS FILAS DE LA MATRIZ  \n\n"; 
  cout<<"          DIGITE <0> PARA SALIR \n\n";
  cout<<"*************************************************\n\n";
  cout<<"   ELIJA UNA OPCION : "; cin>>opcion;
    //2)ASIGNACION
    switch (opcion)
    {
    case 1:
      {
       cout<<"*******  LECTURA DE VECTORES *********************\n\n";

       for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
       {
       cout<<"INGRESE EL ELEMENTO M[ "<<i<<","<<j<<" ] = "; cin>>Matriz[i][j];        
       }
       cout<<endl;
       cout<<"**********************************************\n\n";
     } //FIN DEL CASO 1
     break;     

    case 2:
      {
       cout<<"*******  IMPRESION O ESCRITURA DE LA MATRIZ *********************\n\n";

       for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
       {
       cout<<"ELEMENTO M[ "<<i<<","<<j<<" ] = "<<Matriz[i][j]<<endl;        
       }
       cout<<endl;
       cout<<"**********************************************\n\n";
     } //FIN DEL CASO 1
     break;     
    
  case 3:
    {  
     cout<<"******* PROCESAR EL MAXIMO DE LOS ELEMENTOS *********************\n\n";
     int max=0;
     for (i=1; i<=TAM_N; i++)
       for (j=1; j<=TAM_M; j++)    
        {
         if(Matriz[i][j]>max)
           max = Matriz[i][j];
        }
    // RESULTADO
     cout <<" EL MAXIMO DE LOS ELEMENTOS DE LA MATRIZ ES: "<<max;
     cout<<endl; 
     cout<<"**********************************************\n\n";
    } //FIN DEL CASO 2
    break;

    case 4:
      {
       cout<<"******* PROCESAR EL MINIMO ******\n\n";
       int min=100;
       for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
        {
         if(Matriz[i][j]<min)
         min = Matriz[i][j];
        }
      // RESULTADO
     cout <<" EL MINIMO DE LOS ELEMENTOS DE LA MATRIZ ES: "<<min;
     cout<<endl; 
     cout<<"**********************************************\n\n";
      } //FIN DEL CASO 3
      break;
     
    case 5:
     {
      cout<<"******* SUMA DE ELEMENTOS DE LA MATRIZ ******\n\n";    
//      int
    // int  suma;    
     suma = 0;
      for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
        {
          suma = suma + Matriz[i][j];
        }
      cout<<"---------------------------------- \n ";
      cout<<"LA SUMA DE LOS ELEMENTOS DE LA MATRIZ ES: "<< suma << endl;
      cout << endl;
      cout<<"********************************\n\n";    
            
     } //FIN DEL CASO 4
     break;
    
    case 6:
     {
      cout<<"******* SUMA DE MATRICES ************************\n\n";
      for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
       {
       cout<<"INGRESE EL ELEMENTO A[ "<<i<<","<<j<<" ] = "; cin>>A[i][j];        
       }
      for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
       {
       cout<<"INGRESE EL ELEMENTO B[ "<<i<<","<<j<<" ] = "; cin>>B[i][j];        
       }
     // PROCESO
      for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
       {
        Matriz[i][j] = A[i][j] + B[i][j];
       }    
     // resultado
       for (i=1; i<=TAM_N; i++)
        for (j=1; j<=TAM_M; j++)
       {
       cout<<"INGRESE EL ELEMENTO M[ "<<i<<","<<j<<" ] = "<<Matriz[i][j]<<endl;        
       }
       cout<<endl;
      cout << endl;
      cout<<"*************************************\n\n";     
     } //FIN DEL CASO 6
     break;

    case 7:
     {
      cout<<"******* DIAGONAL DE LA MATRIZ ******\n\n";
      suma = 0;
      c = 0;
      int max = 0, min = 100;
      for (i=1; i<=TAM_N; i++)
       for (j=1; j<=TAM_M; j++)
       {
         if (i==j)
         {
          cout<<"ELEMENTO CENTRAL M[ "<<i<<","<<j<<" ] = "<<Matriz[i][j]<<endl;    
          c = c + 1;
          suma = suma + Matriz[i][j]; 
          if (Matriz[i][j]>max)
             max = Matriz[i][j];
          if (Matriz[i][j]<min)
             min = Matriz[i][j];            
         }
       }// primer for
       cout<<"LA SUMA DE LOS ELEMENTOS ES: "<<suma<<endl;
       cout<<"EL PROMEDIO ES: "<<suma/c<<endl;      
       cout<<"EL MAXIMO ES: "<<max<<endl;      
       cout<<"EL MINIMO ES: "<<min<<endl;             
      cout<< endl;                   
      cout<<"******************************************\n\n";
      cout<<endl;
     }      //FIN DEL CASO 7
     break;

    case 8:
     {
      cout<<"******* SUMA DE LAS FILAS DE LA MATRIZ *********\n\n";
    
      for (i=1; i<=TAM_N; i++)
      {
        cout<<"------------------ fila "<<i<<endl; 
        suma = 0;
       for (j=1; j<=TAM_M; j++)
       {
         if (i==i)
         {
          cout<<"ELEMENTO DE LA FILA i = "<<i<<" M[ "<<i<<","<<j<<" ] = "<<Matriz[i][j]<<endl;    
          suma = suma + Matriz[i][j]; 
         } // fin del if
       }// primer for
         cout<<endl; 
         cout<<"LA SUMA DE LOS ELEMENTOS DE LA FILA i= "<<i<<" es: "<<suma<<endl;      
       }//segundo for
      cout<<endl;          
      cout<<"******************************************\n\n";
      }      //FIN DEL CASO 7
     break;
    
    case 9:
     {
      cout<<"******* SUMA DE LAS COLUMNAS FILAS DE LA MATRIZ  *******\n\n";
      for (j=1; j<=TAM_M; j++)
      {
        cout<<"------------------ COLUMNA "<<j<<endl;   
        suma = 0;
       for (i=1; i<=TAM_N; i++)
       {
         if (j==j)
         {
          cout<<"ELEMENTO DE LA COLUMNA j = "<<j<<" M[ "<<j<<","<<j<<" ] = "<<Matriz[i][j]<<endl;    
          suma = suma + Matriz[i][j]; 
         } // fin del if
       }// primer for
         cout<<endl; 
         cout<<"LA SUMA DE LOS ELEMENTOS DE LA COLUMNA j= "<<j<<" es: "<<suma<<endl;      
       }//segundo for         
      cout<<endl;          
      cout<<"******************************************\n\n";
      cout<<endl;
      }      //FIN DEL CASO 7
     break;
        
}// FIN DE SWITCH
   
} // FIN DEL DO - WHILE
while (opcion !=0);

    cout<<endl;cout<<"\n";
    system("pause");
    return 0;
}//FIN DEL PROGRAMA


domingo, 11 de enero de 2015

LAB 2

  Vectores

// ESTRUCTURA
#include<iostream>
#include<math.h>
using namespace std;
const int TAM=1;
float A, T1, T2, K, L, n, Tn;
int main ()
 {
    //1)DECLARACION
    int opcion;
    do
    {// INICIO DEL DO - WHILE
    cout<<"\n\n";
    cout<<"********** INCA ENRIQUEZ, Bryan Juan ****************\n\n"<<endl;
    cout<<"********* Transferencia de calor ********************\n\n";
    cout<<" 1) \"Lectura de los valores\" \n";
    cout<<" 2) \"Impresion de los valores\" \n";
    cout<<" 3) \"Conduccion a traves de una seccion\" \n";
    cout<<" 4) \"Conduccion a traves de una seccion\"\n";
    cout<<" 5) \"La resistencia termica\"\n\n";
    cout<<" *************** Digite <0> para salir ****************\n\n";
    cout<<" Ingrese una opcion: "; cin>>opcion;
    //2)ASIGNACION
    switch (opcion)
    {
    case 1:
                 {
                 cout<<"\n\n";
                 cout<<"*************  \"Lectrura de los valores\" ***********\n\n";
                 cout<<" Ingrese la primera temperatura: ";cin>>T1;
                 cout<<" Ingrese la segunda temperatura: ";cin>>T2;
                 cout<<" Ingrese el area de seccion: ";cin>>A;
                 cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                 cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                 cout<<" Ingrese el numero de secciones en serie: ";cin>>n;
                 cout<<" Ingrese la ultima temperatura: ";cin>>Tn;
                 cout<<"**********************************************\n\n";
                 }
     break;//fin del caso 1   
    
     case 2:
                 {
                 cout<<"\n\n";       
                 cout<<"********** \"Impresion de los valores\" ***********\n\n";  
                 cout<<" la primera temperatura: "<<T1<<endl;
                 cout<<" la segunda temperatura: "<<T2<<endl;
                 cout<<" el area de seccion: "<<A<<endl;
                 cout<<" el coeficiente de conductividad termica: "<<K<<endl;
                 cout<<" el espesor de la seccion: "<<L<<endl;
                 cout<<" Ingrese el numero de secciones en serie: ";cin>>n;
                 cout<<" Ingrese la ultima temperatura: ";cin>>Tn;
                 cout<<"**********************************************\n\n";
                 }
     break;//fin del caso 2
   
     case 3:
                 {
                 cout<<"\n\n";
                 cout<<" ******** \"Conduccion a traves de una seccion\" *********\n\n";
                 float Q;
                 Q=(K*A*(T1-T2))/L;
                
                 cout<<"\n";
                 cout<<" => El Calor transferido por unidad de tiempo a traves de una seccion es: "<<Q<<endl;

                 }
     break;// fin del caso 3
   
     case 4:
                 {
                 cout<<"\n\n";
                 cout<<" ******* \"Calor transferido a traves de secciones en serie\" *******\n\n";

                 float Q2;
               
                 Q2=(T1-Tn)/(n*L/(K*A));
           
                 cout<<" => El calor transferido a traves de secciones en serie es: "<<Q2<<endl;
  
                 }
     break;// fin del caso 4
   
     case 5:
                  {
                  cout<<"\n\n";
                  cout<<" ************* \"Resistencia Termica\" *************\n\n";
                  float R;
                  R=L/K;
                  cout<<"\n";
                  cout<<" => La resistencia termica es : "<<R<<endl;
               
                  }
                 
     break;// fin del caso 5
        
    } // FIN DEL DO - WHILE
 
  }
 
  while (opcion !=0);

  cout<<endl;cout<<"\n";
  system("pause");
  return 0;
 

 
}//FIN DEL PROGRAMA 

        Visualizar la programación:   
                       
            https://drive.google.com/file/d/0BwYqpXj9lEJpc2NBZVQ0R3p3Tlk/view?usp=sharing
 

lunes, 8 de diciembre de 2014

LAB 1

Problemas de termodinámica

  1. En un gas monoatómico (Cv = 5 cal/mol*K) se realiza un trabajo de 1327 J. Si es un proceso adiabático, determinar el numero de moles con las disminuciones de temperatura de 40, 50 y 60 K. (1 cal = 4,2 J).                                                                                                       
  2. 13 gramos de oxigeno se mantienen a presión constante. Calcular el trabajo realizado si Cp = 0,207 cal/g*C; Cv = 0,137cal/g*C) y son calentados desde 30º C hasta 130ºC, 140ºC y 150 ºC.                                                                                                                                                    
  3. El estado inicial de un gas es 7 atm, 18 litros de volumen y 157º C. Hallar la temperatura en la nueva condición de 23 atm de presión, con volúmenes de 2, 4 y 6 atm.                                                           
  4. En un proceso isocórico a la temperatura de 67º C, un gas ejerce una presión de 8 atm ¿Que presion ejerce a la temperatura de 97º hasta 100º C?
Programacion para resolver los problemas :

https://drive.google.com/file/d/0BwYqpXj9lEJpdjdtaDl4ZlNFb1U/view?usp=sharing

lunes, 20 de octubre de 2014

EVAP-4 IIME-3

Transferencia de calor

Las leyes de la Termodinámica tratan de la transferencia de energía pero solo se refieren a sistemas que están en equilibrio. Por ello, permiten determinar la cantidad de energía requerida para cambiar un sistema de un estado de equilibrio a otro pero no sirven para predecir la rapidez con que puedan producirse estos cambios. La transferencia de calor complementa la primera y la segunda ley, proporcionando los métodos de análisis que pueden utilizarse para predecir esta velocidad de transmisión.


  • Objetivos                                                                                                                                           Aprender acerca de la transferencia de calor.                                                                           Hacer una programación sobre la transferencia de calor.                                                     Definir las distintas ecuaciones que se utilizan en la transferencia de calor.   Aprender a utilizar la plataforma Prezi para desrrolar temas de manera didáctica.                                                                    
  • Alcance                                                                                                                                                  Esta publicación será de libre acceso en Prezi y Blogger para cualquier persona que quiera tener conocimiento sobre la transferencia de calor y las distintas ecuaciones que corresponden a este tema.                                                                                                                                                                                                           
  • Justificación                                                                                                                                          La comprensión de este tema podra facilitar el desarrollo y conocimiento de la termodinámica.                                                                                                                                                                           
  • Marco Teórico                                                                                                                                                                                                                                                                                                    1. Transferencia de calor por conducción.                                                                   2. Transferencia de calor por conducción a través de secciones en series.                    3. Conductividad térmica.  
    4. Resistencia térmica.                                                                                                                                                                            Programación en Dev-C++    =====>   Transferencia de calor                                                                                                                                                                                          #include <iostream>
    using namespace std;
    int main ()
    {
        int opcion;
        cout<<"\n";
        cout << " *****************  MENU \"TRANSFERENCIA DE CALOR\"  **************\n\n";
        cout << "  1): \"  \" conduccion a traves de una seccion\n";
        cout << "  2): \"  \" conduccion a traves de secciones en serie\n";
        cout << "  3): Conductividad termica\n";
        cout << "  4): Resistencia termica\n\n";
        cout<<" INGRESE UNA OPCION: "; cin>>opcion;
       
        switch(opcion)
           {
             case 1:
                     {
                     cout<<"\n";
                     cout<<" ******* Calor transferido a traves de una seccion *******\n\n";
                     int T1, T2;
                     float A, K, L, Q;
                     cout<<" Ingrese la primera temperatura: ";cin>>T1;
                     cout<<" Ingrese la segunda temperatura: ";cin>>T2;
                     cout<<" Ingrese el area de seccion: ";cin>>A;
                     cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                     cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                    
                        if((T1-T2)>0)
                        {
                         Q=(K*A*(T1-T2))/L;
                         cout<<"\n";
                         cout<<" => El Calor transferido por unidad de tiempo es: "<<Q<<endl;
                        }        
                     else{
                          if((T1-T2)<0)
                              {
                               Q=(-1*K*A*(T1-T2))/L;
                               cout<<"\n";
                               cout<<" => El Calor transferido por unidad de tiempo es: "<<Q<<endl;
                              }
                          else   cout<<"\n";
                                 cout<<" => No hay transferencia de calor o es indeterminado: ";
                          }
                      system("pause");
                      return EXIT_SUCCESS;
                     }
             break;// fin del switch 1 
             case 2:
                     {
                     cout<<"\n";
                     cout<<" ******* Calor transferido a traves de secciones en serie *******\n\n";
                     int T1, Tn, n;
                     float A, K, L, Q;
                     cout<<" Ingrese la primera temperatura: ";cin>>T1;
                     cout<<" Ingrese la ultima temperatura: ";cin>>Tn;
                     cout<<" Ingrese el area de seccion: ";cin>>A;
                     cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                     cout<<" Ingrese el espesor de la seccion en serie: ";cin>>L;
                     cout<<" Ingrese el numero de secciones en serie: ";cin>>n;
                   
                     if((T1-Tn)>0)
                        {
                         Q=(T1-Tn)/(n*L/(K*A));
                         cout<<"\n";
                         cout<<" => El calor transferido a traves de secciones en serie es: "<<Q<<endl;
                        }        
                     else{
                          if((T1-Tn)<0)
                            {
                             Q=(-1*(T1-Tn))/(n*L/(K*A));
                             cout<<"\n";
                             cout<<" => El calor transferido a traves de secciones en serie es: "<<Q<<endl;
                            }
                          else   cout<<"\n";
                                 cout<<" => No hay transferencia de calor o es indeterminado: ";
                         }
                      system("pause");
                      return EXIT_SUCCESS;      
                      }
             break;// fin del switch 2
             case 3:
                     {
                      cout<<"\n";
                      cout<<" ******* Conductividad termica *******\n\n";
                      int T;
                      float L, Q, K, A;
                      cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                      cout<<" Ingrese el diferencial de temperatura : ";cin>>T;
                      cout<<" Ingrese la velocidad del flujo de calor: ";cin>>Q;
                      cout<<" Ingrese el area de la seccion: ";cin>>A;
                      if(T>0)
                        {
                         K=(Q*L)/(A*T);
                         cout<<"\n";
                         cout<<" => El coeficiente de conductividad termica es "<<K<<endl;
                        }        
                      else{
                          if(T<0)
                            {
                             K=-1*(Q*L)/(A*T);
                             cout<<"\n";
                             cout<<" => El coeficiente de conductividad termica es "<<K<<endl;
                            }
                          else   cout<<"\n";
                                 cout<<" => El resultado no tiene solucion o es indeterminado: ";
                         }     
                      system("pause");
                      return EXIT_SUCCESS;
                     }

             break;// fin del switch 3 
             case 4:
                     {
                      cout<<"\n";
                      cout<<" ******* Resistencia Termica *******\n\n";
                      float L, R, K;
                      cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                      cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                      R=L/K;
                      cout<<"\n";
                      cout<<" => La resistencia termica es : "<<R<<endl;
                   
                      system("pause");
                      return EXIT_SUCCESS;
                     }
             break;// fin del switch 4 
           }
        cout<<"\n";
       
        system(" pause");
        return 0;
    }                                                                                                                                                                                                                                                                                   ESQUEMA DE TRANSFERENCIA DE CALOR EN PREZI
                                                                                                                                                     



viernes, 12 de septiembre de 2014

EVAP-3 IIME-3

Trasnferencia de calor

Las leyes de la Termodinámica tratan de la transferencia de energía pero solo se refieren a sistemas que están en equilibrio. Por ello, permiten determinar la cantidad de energía requerida para cambiar un sistema de un estado de equilibrio a otro pero no sirven para predecir la rapidez con que puedan producirse estos cambios. La transferencia de calor complementa la primera y la segunda ley, proporcionando los métodos de análisis que pueden utilizarse para predecir esta velocidad de transmisión.


  •  Objetivos                                                                                                                 Aprender acerca de la transferencia de calor .                                                              Hacer una programación sobre la transferencia de calor .                                         Definir las distintas ecuaciones que se utilizan en la transferencia de calor .                                               
  •  Alcance                                                                                                           Esta publicación será de libre acceso para cualquier persona que quiera tener conocimiento sobre la transferencia de calor y las distintas ecuaciones que corresponden a este tema.                                                                                                                       
  • Justificación                                                                                                          La comprensión de este tema podra facilitar el desarrollo y conocimiento de la termodinámica.                                                                                                                                                                                                             
  • Marco Teórico   

  1. Transferencia de calor por conducción                                                                              Es el intercambio de energía interna, que es una combinación de la energía cinética y energía potencial de sus partículas microscópicas: moléculas, átomos y electrones. La conductividad térmica de la materia depende de su estructura microscópica: en un fluido se debe principalmente a colisiones aleatorias de las moléculas; en un sólido depende del intercambio de electrones libres (principalmente en metales) o de los
    modos de vibración de sus partículas microscópicas (dominante en los materiales no metálicos). Para el caso simplificado de flujo de calor estacionario en una sola dirección, el calor transmitido es proporcional al área perpendicular al flujo de calor, a la conductividad del material y a la diferencia de temperatura, y es inversamente proporcional al espesor.  
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
  2. Transferencia de calor por conducción a través de secciones en series                                                                                                                                                                    En estado estacionario el flujo de calor a través de todas las secciones debe ser el mismo para un conjunto de "n"  paredes en perfecto contacto térmico. Sin embargo las gradientes pueden ser distintas.
                                                                                                                                                                    https://drive.google.com/file/d/0BwYqpXj9lEJpZ1FLM2M0WU1IVEk/view?usp=sharing                         
                    

  3. Conductividad térmica                                                                                                                                                                                                                                        La conductividad térmica es el tiempo que emplea el flujo de calor en estado estable al atravesar una unidad de área de un material homogéneo inducido por una unidad de gradiente de temperatura en una dirección perpendicular a esa unidad de área, W/m⋅K.         
  4. Resistencia térmica                                                                                                                                                                                                                                            La resistencia térmica es la diferencia de temperatura, en estado estable, entre dos superficies definidas de un material o construcción que induce una unidad de velocidad de flujo de calor al atravesar una unidad de área, K⋅m2/W. De acuerdo a esta definición y a la ecuación de conductividad térmica, se puede obtener, por lo tanto, la resistencia térmica . Según lo indicado en la ecuación la resistencia térmica, el valor de la resistencia térmica puede determinarse dividiendo el grosor entre la conductividad térmica del espécimen.                                                                                                                                                        
    Programación en Dev-C++                                                                                                                                                                                                                                                                                                                                              
    #include <iostream>
    using namespace std;
    int main ()
    {
        int opcion;
        cout<<"\n";
        cout << " *****************  MENU \"TRANSFERENCIA DE CALOR\"  **************\n\n";
        cout << "  1): \"  \" conduccion a traves de una seccion\n";
        cout << "  2): \"  \" conduccion a traves de secciones en serie\n";
        cout << "  3): Conductividad termica\n";
        cout << "  4): Resistencia termica\n\n";
        cout<<" INGRESE UNA OPCION: "; cin>>opcion;
       
        switch(opcion)
           {
             case 1:
                     {
                     cout<<"\n";
                     cout<<" ******* Calor transferido a traves de una seccion *******\n\n";
                     int T1, T2;
                     float A, K, L, Q;
                     cout<<" Ingrese la primera temperatura: ";cin>>T1;
                     cout<<" Ingrese la segunda temperatura: ";cin>>T2;
                     cout<<" Ingrese el area de seccion: ";cin>>A;
                     cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                     cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                    
                        if((T1-T2)>0)
                        {
                         Q=(K*A*(T1-T2))/L;
                         cout<<"\n";
                         cout<<" => El Calor transferido por unidad de tiempo es: "<<Q<<endl;
                        }        
                     else{
                          if((T1-T2)<0)
                              {
                               Q=(-1*K*A*(T1-T2))/L;
                               cout<<"\n";
                               cout<<" => El Calor transferido por unidad de tiempo es: "<<Q<<endl;
                              }
                          else   cout<<"\n";
                                 cout<<" => No hay transferencia de calor o es indeterminado: ";
                          }
                      system("pause");
                      return EXIT_SUCCESS;
                     }
             break;// fin del switch 1 
             case 2:
                     {
                     cout<<"\n";
                     cout<<" ******* Calor transferido a traves de secciones en serie *******\n\n";
                     int T1, Tn, n;
                     float A, K, L, Q;
                     cout<<" Ingrese la primera temperatura: ";cin>>T1;
                     cout<<" Ingrese la ultima temperatura: ";cin>>Tn;
                     cout<<" Ingrese el area de seccion: ";cin>>A;
                     cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                     cout<<" Ingrese el espesor de la seccion en serie: ";cin>>L;
                     cout<<" Ingrese el numero de secciones en serie: ";cin>>n;
                   
                     if((T1-Tn)>0)
                        {
                         Q=(T1-Tn)/(n*L/(K*A));
                         cout<<"\n";
                         cout<<" => El calor transferido a traves de secciones en serie es: "<<Q<<endl;
                        }        
                     else{
                          if((T1-Tn)<0)
                            {
                             Q=(-1*(T1-Tn))/(n*L/(K*A));
                             cout<<"\n";
                             cout<<" => El calor transferido a traves de secciones en serie es: "<<Q<<endl;
                            }
                          else   cout<<"\n";
                                 cout<<" => No hay transferencia de calor o es indeterminado: ";
                         }
                      system("pause");
                      return EXIT_SUCCESS;      
                      }
             break;// fin del switch 2
             case 3:
                     {
                      cout<<"\n";
                      cout<<" ******* Conductividad termica *******\n\n";
                      int T;
                      float L, Q, K, A;
                      cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                      cout<<" Ingrese el diferencial de temperatura : ";cin>>T;
                      cout<<" Ingrese la velocidad del flujo de calor: ";cin>>Q;
                      cout<<" Ingrese el area de la seccion: ";cin>>A;
                      if(T>0)
                        {
                         K=(Q*L)/(A*T);
                         cout<<"\n";
                         cout<<" => El coeficiente de conductividad termica es "<<K<<endl;
                        }        
                      else{
                          if(T<0)
                            {
                             K=-1*(Q*L)/(A*T);
                             cout<<"\n";
                             cout<<" => El coeficiente de conductividad termica es "<<K<<endl;
                            }
                          else   cout<<"\n";
                                 cout<<" => El resultado no tiene solucion o es indeterminado: ";
                         }     
                      system("pause");
                      return EXIT_SUCCESS;
                     }

             break;// fin del switch 3 
             case 4:
                     {
                      cout<<"\n";
                      cout<<" ******* Resistencia Termica *******\n\n";
                      float L, R, K;
                      cout<<" Ingrese el espesor de la seccion: ";cin>>L;
                      cout<<" Ingrese el coeficiente de conductividad termica: ";cin>>K;
                      R=L/K;
                      cout<<"\n";
                      cout<<" => La Resistencia termica es : "<<R<<endl;
                   
                      system("pause");
                      return EXIT_SUCCESS;
                     }
             break;// fin del switch 4 
           }
        cout<<"\n";
       
        system(" pause");
        return 0;
    }

    Páginas web de consulta: