https://drive.google.com/file/d/0B3RZqyBWldi1aW5RRE1icGJ6VHM/view?usp=sharing
#include<iostream>
#include<math.h>
#include<windows.h>
using namespace std;
int i, j, opcion;
const int TAM_M=4, TAM_N=4;
double Vo[TAM_M][TAM_N], Pr[TAM_M][TAM_N], U[TAM_M][TAM_N], R[TAM_M][TAM_N], T[TAM_M][TAM_N], W[TAM_M][TAM_N], Q[TAM_M][TAM_N], We[TAM_M][TAM_N];
double Qent[TAM_M][TAM_N], Qsal[TAM_M][TAM_N], Te[TAM_M][TAM_N], Tsal[TAM_M][TAM_N], Matriz[TAM_M][TAM_N];
int main ()
{
cout<<"\n\t\t\t\tLABORATORIO 3\n\n";
cout<<"\t\t***************** MENU *****************\n\n";
cout<<"\t\t1) LECTURA DE MATRICES\n";
cout<<"\t\t2) CALCULO DE LA ENERGIA INTERNA\n";
cout<<"\t\t3) EFICIENCIA DE UNA MAQUINA TERMICA\n";
cout<<"\t\t4) MAQUINA DE CARNOT\n\n";
cout<<"\t\t\t DIGITE <0> PARA SALIR\n\n";
cout<<"\t\t*************************************************\n\n";
do
{
cout<<"\t\t\t ELIJA UNA OPCION : "; cin>>opcion; cout<<endl;
switch (opcion)
{
case 0:
cout<<"\n";
system("pause");
return 0;
case 1:
{
cout<<" ********** LECTURA DE MATRIZ **********\n\n";
for (i=1 ; i<=TAM_M ; i++)
for (j=1 ; j<=TAM_N ; j++)
{
cout<< "INGRESE EL ELEMENTO M [ "<<i<<" , "<<j<<"] = ";cin>>Matriz[i][j];
}
cout<<"\n\n\t\t--------------------------------------\n\n";
}
break;
case 2:
{
cout<<"\t************* CALCULO DE LA ENERGIA INTERNA *************\n\n Se tiene un recipiente que contiene gas cuyo volumen y presionvolumen es\n \
introducida por el usuario. Calcular la energia interna.\n\n\t\t\t\t SOLUCION\n\n La energia interna de un gas ideal de la presion a que esta sometido y \
el\n volumen del recipiente que lo contiene.\n\n U = 3*P*V/2\n\n";
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Introduzca la Volumen[ "<<i<<","<<j<<" ] = "; cin>>Vo[i][j];
}
cout<<endl;
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Introduzca el Presion[ "<<i<<","<<j<<" ] = "; cin>>Pr[i][j];
}
for (i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
U[i][j]=(3*Pr[i][j]*Vo[i][j])/2;
cout<<"\n U[ "<<i<<","<<j<<" ] = "<<U[i][j];
}
cout<<"\n\n\t\t--------------------------------------\n\n";
}
break;
case 3:
{
cout<<" ************* EFICIENCIA DE UNA MAQUINA TERMICA *************\n\n En una maquina termica, el trabajo neto y el calor que absorbe el \
recipiente\n de baja temperatura es introducida por el usuario. Calcular el calor entregado por el recipiente de alta temperatura y la eficiencia de la \
maquina termica.\n\n\t\t\t\t SOLUCION\n\n Por conservacion de la energia:\n\n\t\t\tQ entrada = W neto + Q salida\n\n";
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Indique W neto[ "<<i<<","<<j<<" ] = "; cin>>W[i][j];
}
cout<<endl;
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Ahora indique Q salida[ "<<i<<","<<j<<" ] = "; cin>>Q[i][j];
}
for (i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
We[i][j]=W[i][j]+Q[i][j];
R[i][j]=(W[i][j]/We[i][j])*100;
cout<<"\n Q entrada ["<<i<<","<<j<<"] = "<<W[i][j]<<" + "<<Q[i][j]<<" = "<<We[i][j]<<"\n\n Entonces la eficiencia = (W neto/Q entrada) x 100 % \
= ("<<W[i][j]<<"/"<<We[i][j]<<") * 100 = "<<R[i][j]<<" %";
}
cout<<"\n\n\t\t--------------------------------------\n\n";
}
break;
case 4:
{
cout<<"\t ************** MAQUINA DE CARNOT **************\n\n El calor que absorbe una maquina de Carnot, lo que arroja durante la\n compresion \
isotermica y T entrada del recipiente de alta temperatura es\n introducida por el usuario. ¿Cual sera la temperatura del recipiente de baja\n temperatura?\
\n\n\t\t\t\t SOLUCION\n\n Por la relacion de kelvin:\n\n\t\t\tT entrada/ T salida = Q entrada/ Qsalida\n\n";
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Determine el calor absorbido por la maquina (Q entrada)[ "<<i<<","<<j<<" ] = "; cin>>Qent[i][j];
}
cout<<endl;
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Determine el calor que arroja en la compresion isotermica (Qsalida)[ "<<i<<","<<j<<" ] = "; cin>>Qsal[i][j];
}
cout<<"\n Por ultimo";
for(i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" Determine T entrada del recipiente de alta temperatura[ "<<i<<","<<j<<" ] = "; cin>>Te[i][j];
Tsal[i][j]=(Te[i][j]*Qsal[i][j])/Qent[i][j];
}
cout<<" Entonces\n";
for (i=1; i<=TAM_M; i++)
for (j=1; j<=TAM_N; j++)
{
cout<<" T salida[ "<<i<<","<<j<<" ] = ("<<Te[i][j]<<" * "<<Qsal[i][j]<<"/"<<Qent[i][j]<<" = "<<Tsal[i][j];
}
cout<<"\n\n\t\t--------------------------------------\n\n";
}
break;
default:
cout<<" Introdujo un numero incorrecto. Introduzca una opcion valida.\n\n";
}
}
while (opcion !=0);
}