clear all; clc;

% CONVERTIDOR
user_choice = menu('Seleccione la dimensión que desea
convertir','Aceleración','Área','Densidad','Energía,calor,trabajo,energía interna,entalpía','Fuerza','Flujo de calor','Coeficiente de
transferencia de calor', 'Longitud', 'Masa','Potencia,Velocidad de transferencia de calor','Presión','Calor específico','Volumen
específico','Temperatura', 'Conductividad térmica', 'Velocidad','Volumen','Tasa de flujo volumétrico')

% ahora mostramos el cuadro que se va a visualizar

switch (user_choice)

% ACELERACIÓN
case 1
user_choice_1 = menu('Seleccione la unidad con la que usted cuenta:','m/s^2','cm/s^2','ft^s')
switch (user_choice_1)
case 1
x = input('Escribe la cantidad de m/s^2: ');
Ac1 = x*100;
Ac2 = x*3.2808;
fprintf('El valor de m/s^2 a cm/s^2: %f \n',Ac1);
fprintf('El valor de m/s^2 a ft/s^2: %f \n',Ac2);
case 2
x = input('Escribe la cantidad de cm/s^2: ');
Ac1 = x/100;
Ac2 = x*3.2808/100;
fprintf('El valor de cm/s^2 a m/s^2: %f \n',Ac3);
fprintf('El valor de cm/s^2 a ft/s^2: %f \n',Ac4);
case 3
x = input('Escribe la cantidad de ft/s^2: ');
Ac1 = x*0.3048;
Ac2 = x*0.3048*100;
fprintf('El valor de ft/s^2 a m/s^2: %f \n',Ac5);
fprintf('El valor de ft/s^2 a cm/s^2: %f \n',Ac6);
end

% ÁREA
case 2
user_choice_2 = menu('Seleccione la unidad con la que usted cuenta:','m^2','cm^2','mm^2','km^2','in^2','ft^2')
switch (user_choice_2)
case 1
x = input('Escribe la cantidad de m^2: ');
Ar1 = x*10e4
Ar2 = x*10e6
Ar3 = x*10e-6
Ar4 = x*1550
Ar5 = x*10.764
fprintf('El valor de m^2 a cm^2: %f \n',Ar1);
fprintf('El valor de m^2 a mm^2: %f \n',Ar2);
fprintf('El valor de m^2 a km^2: %f \n',Ar3);
fprintf('El valor de m^2 a in^2: %f \n',Ar4);
fprintf('El valor de m^2 a ft^2: %f \n',Ar5);

case 2
x = input('Escribe la cantidad de cm^2: ');
Ar1 = x/10e4
Ar2 = x*100
Ar3 = x*10e-10
Ar4 = x*1550/10e4
Ar5 = x*10.764/10e4
fprintf('El valor de cm^2 a m^2: %f \n',Ar1);
fprintf('El valor de cm^2 a mm^2: %f \n',Ar2);
fprintf('El valor de cm^2 a km^2: %f \n',Ar3);
fprintf('El valor de cm^2 a in^2: %f \n',Ar4);
fprintf('El valor de cm^2 a ft^2: %f \n',Ar5);
 case 3
x = input('Escribe la cantidad de mm^2: ');
Ar1 = x/10e6
Ar2 = x*0.01
Ar3 = x*10e-12
Ar4 = x*1.55e-3
Ar5 = x*1.0764e-5
fprintf('El valor de mm^2 a m^2: %f \n',Ar1);
fprintf('El valor de mm^2 a cm^2: %f \n',Ar2);
fprintf('El valor de mm^2 a km^2: %f \n',Ar3);
fprintf('El valor de mm^2 a in^2: %f \n',Ar4);
fprintf('El valor de mm^2 a ft^2: %f \n',Ar5);

case 4
x = input('Escribe la cantidad de km^2: ');
Ar1 = x*1e6
Ar2 = x*1e10
Ar3 = x*10e11
Ar4 = x*1.55e9
Ar5 = x*1.0764e7
fprintf('El valor de km^2 a m^2: %f \n',Ar1);
fprintf('El valor de km^2 a cm^2: %f \n',Ar2);
fprintf('El valor de km^2 a mm^2: %f \n',Ar3);
fprintf('El valor de km^2 a in^2: %f \n',Ar4);
fprintf('El valor de km^2 a ft^2: %f \n',Ar5);

case 5
x = input('Escribe la cantidad de in^2: ');
Ar1 = x/1550
Ar2 = x*10e3/1550
Ar3 = x*10e5/1550
Ar4 = x*10e-7/1550
Ar5 = x/144
fprintf('El valor de in^2 a m^2: %f \n',Ar1);
fprintf('El valor de in^2 a cm^2: %f \n',Ar2);
fprintf('El valor de in^2 a mm^2: %f \n',Ar3);
fprintf('El valor de in^2 a km^2: %f \n',Ar4);
fprintf('El valor 10de in^2 a ft^2: %f \n',Ar5);

case 6
x = input('Escribe la cantidad de ft^2: ');
Ar1 = x*0.09290304
Ar2 = x*10e3*0.09290304
Ar3 = x*10e5*0.09290304
Ar4 = x*144
Ar5 = x*10e-7/10.764
fprintf('El valor de ft^2 a m^2: %f \n',Ar1);
fprintf('El valor de ft^2 a cm^2: %f \n',Ar2);
fprintf('El valor de ft^2 a mm^2: %f \n',Ar3);
fprintf('El valor de ft^2 a in^2: %f \n',Ar4);
fprintf('El valor de ft^2 a km^2: %f \n',Ar5);

end

% DENSIDAD
case 3
user_choice_3 = menu('Seleccione la unidad con la que usted cuenta:','g/cm^3','kg/L','kg/m^3','lbm/ft^3','lbm/in^3')
switch (user_choice_3)
case 1
x = input('Escribe la cantidad de g/cm^3: ');
De1 = x
De2 = x*1000
De3 = x*0.036127
De4 = x*62.428
 fprintf('El valor de g/cm^3 a kg/L: %f \n',De1);
fprintf('El valor de g/cm^3 a kg/m^3: %f \n',De2);
fprintf('El valor de g/cm^3 a lbm/in^3: %f \n',De3);
fprintf('El valor de g/cm^3 a lbm/ft^3: %f \n',De4);

case 2
x = input('Escribe la cantidad de kg/L: ');
De1 = x
De2 = x*1000
De3 = x*0.036127
De4 = x*62.428
fprintf('El valor de kg/L a g/cm^3: %f \n',De1);
fprintf('El valor de kg/L a kg/m^3: %f \n',De2);
fprintf('El valor de kg/L a lbm/in^3: %f \n',De3);
fprintf('El valor de kg/L a lbm/ft^3: %f \n',De4);

case 3
x = input('Escribe la cantidad de kg/m^3: ');
De1 = x/1000
De2 = x/1000
De3 = x*1728*0.062428
De4 = x*0.062428
fprintf('El valor de kg/m^3 a g/cm^3: %f \n',De1);
fprintf('El valor de kg/m^3 a Kg/L: %f \n',De2);
fprintf('El valor de kg/m^3 a lbm/in^3: %f \n',De3);
fprintf('El valor de kg/m^3 a lbm/ft^3: %f \n',De4);

case 4
x = input('Escribe la cantidad de lbm/in^3: ');
De1 = x*0.036127
De2 = x*1000*0.036127
De3 = x*0.036127
De4 = x*1728
fprintf('El valor de lbm/in^3 a g/cm^3: %f \n',De1);
fprintf('El valor de lbm/in^3 a kg/m^3: %f \n',De2);
fprintf('El valor de lbm/in^3 a kg/L: %f \n',De3);
fprintf('El valor de lbm/in^3 a lbm/ft^3: %f \n',De4);

case 5
x = input('Escribe la cantidad de lbm/ft^3: ');
De1 = x/62.428
De2 = x/1000*62.428
De3 = x/62.428
De4 = x/1728
fprintf('El valor de lbm/ft^3 a g/cm^3: %f \n',De1);
fprintf('El valor de lbm/ft^3 a kg/cm^3: %f \n',De2);
fprintf('El valor de lbm/ft^3 a kg/L: %f \n',De3);
fprintf('El valor de lbm/ft^3 a lbm/in^3: %f \n',De4);
end

% ENERGÍA(E), CALOR(Q), TRABAJO(W), ENERGÍA INTERNA (U), ENTALPÍA (H)

case 4
user_choice_4 = menu('Seleccione la unidad con la que usted
cuenta:','Kj','J','N*m','Kpa*m^3','Kj/Kg','m^2/s^2','KWh','cal','BTU','psia*ft^3','lbf*ft','BTU/lbm','ft^2/s^2','termia')
switch (user_choice_4)
case 1
x = input('Escribe la cantidad de KJ: ');
E1 = x*1000
E2 = x*1000
E3 = x
E4 = x/3600
E5 = x/1000*4.184
E6 = x*0.94782
E7 = x*0.94782*5.40395
E8 = x*0.94782*778.169
E9 = x*1.055*10e5
 fprintf('El valor de Kj a J: %f \n',E1);
fprintf('El valor de Kj a N*m: %f \n',E2);
fprintf('El valor de Kj a Kpa*m^3: %f \n',E3);
fprintf('El valor de Kj a kWh: %f \n',E4);
fprintf('El valor de Kj a cal: %f \n',E5);
fprintf('El valor de Kj a BTU: %f \n',E6);
fprintf('El valor de Kj a psia*ft^3: %f \n',E7);
fprintf('El valor de Kj a lbf*ft: %f \n',E8);
fprintf('El valor de Kj a termia: %f \n',E9);

case 2
x = input('Escribe la cantidad de J: ');
E1 = x/1000
E2 = x
E3 = x/1000
E4 = x/3600000
E5 = x/4.184
E6 = x*0.94782/1000
E7 = (x*0.94782/1000)*5.40395
E8 = (x*0.94782/1000)*778.169
E9 = x*1.055*10e8
fprintf('El valor de J a Kj: %f \n',E1);
fprintf('El valor de J a N*m: %f \n',E2);
fprintf('El valor de J a Kpa*m^3: %f \n',E3);
fprintf('El valor de J a kWh: %f \n',E4);
fprintf('El valor de J a cal: %f \n',E5);
fprintf('El valor de J a BTU: %f \n',E6);
fprintf('El valor de J a psia*ft^3: %f \n',E7);
fprintf('El valor de J a lbf*ft: %f \n',E8);
fprintf('El valor de J a termia: %f \n',E9);

case 3
x = input('Escribe la cantidad de N*m: ');
E1 = x
E2 = x/1000
E3 = x*1000
E4 = x*3600000
E5 = x*4.184
E6 = x*0.94782/1000
E7 = x*0.94782*5.40395/1000
E8 = x*0.94782*778.169/1000
E9 = x*1000*1.055*10e5
fprintf('El valor de N*m a J: %f \n',E1);
fprintf('El valor de N*m a Kj: %f \n',E2);
fprintf('El valor de N*m a Kpa*m^3: %f \n',E3);
fprintf('El valor de N*m a kWh: %f \n',E4);
fprintf('El valor de N*m a cal: %f \n',E5);
fprintf('El valor de N*m a BTU: %f \n',E6);
fprintf('El valor de N*m a psia*ft^3: %f \n',E7);
fprintf('El valor de N*m a lbf*ft: %f \n',E8);
fprintf('El valor de N*m a termia: %f \n',E9);

case 4
x = input('Escribe la cantidad de KPa*m^3: ');
E1 = x*1000
E2 = x
E3 = x*1000
E4 = x*3600
E5 = x/1000*4.184
E6 = x*0.94782
E7 = x*0.94782*5.40395
E8 = x*0.94782*778.169
E9 = x*1.055*10e5
fprintf('El valor de Kpa*m^3 a J: %f \n',E1);
fprintf('El valor de Kpa*m^3 a Kj: %f \n',E2);
fprintf('El valor de Kpa*m^3 a N*m: %f \n',E3);
 fprintf('El valor de Kpa*m^3 a kWh: %f \n',E4);
fprintf('El valor de Kpa*m^3 a cal: %f \n',E5);
fprintf('El valor de Kpa*m^3 a BTU: %f \n',E6);
fprintf('El valor de Kpa*m^3 a psia*ft^3: %f \n',E7);
fprintf('El valor de Kpa*m^3 a lbf*ft: %f \n',E8);
fprintf('El valor de Kpa*m^3 a termia: %f \n',E9);

case 5
x = input('Escribe la cantidad de Kj/kg: ');
E1 = x*1000
E2 = x*0.43
E3 = x*0.43*25037

fprintf('El valor de Kj/kg a m^2/s^2: %f \n',E1);

fprintf('El valor de Kj/kg a BTU/lbm: %f \n',E2);
fprintf('El valor de Kj/kg a ft^2/s^2: %f \n',E3);

case 6
x = input('Escribe la cantidad de m^2/s^2: ');
E1 = x/1000
E2 = (x/1000)*0.43*25037
E3 = (x/1000)*0.43

fprintf('El valor de m^2/s^2 a Kj/kg: %f \n',E1);

fprintf('El valor de m^2/s^2 a ft^2/s^2: %f \n',E2);
fprintf('El valor de m^2/s^2 BTU/lbm: %f \n',E3);

case 7
x = input('Escribe la cantidad de KWh: ');
E1 = x*3600000
E2 = x/3600
E3 = x3600000
E4 = x/3600
E5 = x*3600/4184
E6 = x*3412.14
E7 = x*3412.14*5.40395
E8 = x*3412.14*778.169
E9 = (x*3412.14)/10e5
fprintf('El valor de KWh a J: %f \n',E1);
fprintf('El valor de KWh a Kj: %f \n',E2);
fprintf('El valor de KWh a N*m: %f \n',E3);
fprintf('El valor de KWh a Kpa*m^3: %f \n',E4);
fprintf('El valor de KWh a cal: %f \n',E5);
fprintf('El valor de KWh a BTU: %f \n',E6);
fprintf('El valor de KWh a psia*ft^3: %f \n',E7);
fprintf('El valor de KWh a lbf*ft: %f \n',E8);
fprintf('El valor de KWh a termia: %f \n',E9);

case 8
x = input('Escribe la cantidad de cal: ');
E1 = x*4184
E2 = x*4.184
E3 = x*4184
E4 = (x*4.184)/3600
E5 = x*4.184
E6 = x*4.184*0.94782
E7 = x*4.184*0.94782*5.40395
E8 = x*4.184*0.94782*778.169
E9 = x*4.184*1.055*10e5
fprintf('El valor de cal a J: %f \n',E1);
fprintf('El valor de cal a Kj: %f \n',E2);
fprintf('El valor de cal a N*m: %f \n',E3);
fprintf('El valor de cal a kWh: %f \n',E4);
fprintf('El valor de cal a Kpa*m^3: %f \n',E5);
fprintf('El valor de cal a BTU: %f \n',E6);
fprintf('El valor de cal a psia*ft^3: %f \n',E7);
 fprintf('El valor de cal a lbf*ft: %f \n',E8);
fprintf('El valor de cal a termia: %f \n',E9);

case 9
x = input('Escribe la cantidad de BTU: ');
E1 = x*1055.056
E2 = x*1.055056
E3 = x*1.055056*1000
E4 = (x*1.055056)/3600
E5 = x*1.055056
E6 = (x*1055.056)/4.184
E7 = x*5.40395
E8 = x*778.169
E9 = x/10e5
fprintf('El valor de BTU a J: %f \n',E1);
fprintf('El valor de BTU a Kj: %f \n',E2);
fprintf('El valor de BTU a N*m: %f \n',E3);
fprintf('El valor de BTU a kWh: %f \n',E4);
fprintf('El valor de BTU a Kpa*m^3: %f \n',E5);
fprintf('El valor de BTU a cal: %f \n',E6);
fprintf('El valor de BTU a psia*ft^3: %f \n',E7);
fprintf('El valor de BTU a lbf*ft: %f \n',E8);
fprintf('El valor de BTU a termia: %f \n',E9);

case 10
x = input('Escribe la cantidad de psia*ft^3: ');
E1 = (x/5.40395)*1055.056
E2 = (x/5.40395)*1.055056
E3 = (x/5.40395)*1.055056*1000
E4 = (x/5.40395)*(1.055056/3600)
E5 = (x/5.40395)*1.055056
E6 = (x/5.40395)*(1055.056/4.148)
E7 = (x/5.40395)
E8 = (x/778.169)
E9 = (x/5.40395)*10e5
fprintf('El valor de psia*ft^3 a J: %f \n',E1);
fprintf('El valor de psia*ft^3 a Kj: %f \n',E2);
fprintf('El valor de psia*ft^3 a N*m: %f \n',E3);
fprintf('El valor de psia*ft^3 a kWh: %f \n',E4);
fprintf('El valor de psia*ft^3 a Kpa*m^3: %f \n',E5);
fprintf('El valor de psia*ft^3 a cal: %f \n',E6);
fprintf('El valor de psia*ft^3 a BTU: %f \n',E7);
fprintf('El valor de psia*ft^3 a lbf*ft: %f \n',E8);
fprintf('El valor de psia*ft^3 a termia: %f \n',E9);

case 11
x = input('Escribe la cantidad de lbf*ft: ');
E1 = (x/778.169)*1055.056
E2 = (x/778.169)*1.055056
E3 = (x/778.169)*1.055056*1000
E4 = (x/778.169)*(1.055056/3600)
E5 = (x/778.169)*1.055056
E6 = (x/778.169)*(1055.056/4.148)
E7 = (x/778.169)
E8 = (x/778.169)*5.40395
E9 = (x/778.169)*10e5
fprintf('El valor de lbf*ft a J: %f \n',E1);
fprintf('El valor de lbf*ft a Kj: %f \n',E2);
fprintf('El valor de lbf*ft a N*m: %f \n',E3);
fprintf('El valor de lbf*ft a kWh: %f \n',E4);
fprintf('El valor de lbf*ft a Kpa*m^3: %f \n',E5);
fprintf('El valor de lbf*ft a cal: %f \n',E6);
fprintf('El valor de lbf*ft a BTU: %f \n',E7);
fprintf('El valor de lbf*ft a psia*ft^3: %f \n',E8);
fprintf('El valor de lbf*ft a termia: %f \n',E9);
 case 12
x = input('Escribe la cantidad de BTU/lbm: ');
E1 = (x/0.43)*1000
E2 = x*25037
E3 = (x/0.43)

fprintf('El valor de BTU/lbm a m^2/s^2: %f \n',E1);

fprintf('El valor de BTU/lbm a ft^2/s^2: %f \n',E2);
fprintf('El valor de BTU/lbm a Kj/kg: %f \n',E3);

case 13
x = input('Escribe la cantidad de ft^2/s^2: ');
E1 = (x/25037)/0.43*1000
E2 = x/25037
E3 = (x/25037)/0.43

fprintf('El valor de ft^2/s^2 a m^2/s^2: %f \n',E1);

fprintf('El valor de ft^2/s^2 a BTU/lbm: %f \n',E2);
fprintf('El valor de ft^2/s^2 a Kj/kg: %f \n',E3);

case 14
x = input('Escribe la cantidad de termia: ');
E1 = x*1.055056*10e8
E2 = x*1.055056*10e5
E3 = x*1.055056*10e8
E4 = (x*1.055056*10e5)/3600
E5 = x*1.055056*10e5
E6 = (x*1.055056*10e8)/4.184
E7 = x*10e5*5.40395
E8 = x*10e5*778.169
E9 = x*10e5
fprintf('El valor de termia a J: %f \n',E1);
fprintf('El valor de termia a Kj: %f \n',E2);
fprintf('El valor de termia a N*m: %f \n',E3);
fprintf('El valor de termia a kWh: %f \n',E4);
fprintf('El valor de termia a Kpa*m^3: %f \n',E5);
fprintf('El valor de termia a cal: %f \n',E6);
fprintf('El valor de termia a psia*ft^3: %f \n',E7);
fprintf('El valor de terma a lbf*ft: %f \n',E8);
fprintf('El valor de termia a BTU: %f \n',E9);
end

%FUERZA
case 5
user_choice_5 = menu('Seleccione la unidad con la que usted cuenta:','N','kg*m/s^2','dina','kgf','lbf','lbm*ft/s^2')
switch (user_choice_5)
case 1
x = input('Escribe la cantidad de N: ');
F1 = x
F2 = x*10e5
F3 = x/9.80665
F4 = x*0.22481
F5 = x*0.22481*32.174
fprintf('El valor de N a kg*m/s^2: %f \n',F1);
fprintf('El valor de N a dina: %f \n',F2);
fprintf('El valor de N a kgf: %f \n',F3);
fprintf('El valor de N a lbf: %f \n',F4);
fprintf('El valor de N a lbm*ft/s^2: %f \n',F5);

case 2
x = input('Escribe la cantidad de kg*m/s^2: ');
F1 = x
F2 = x*10e5
F3 = x/9.80665
F4 = x*0.22481
 F5 = x*0.22481*32.174
fprintf('El valor de kg*m/s^2 a N: %f \n',F1);
fprintf('El valor de kg^m/s^2 a dina: %f \n',F2);
fprintf('El valor de kg*m/s^2 a kgf: %f \n',F3);
fprintf('El valor de kg*m/s^2 a lbf: %f \n',F4);
fprintf('El valor de kg*m/s^2 a lbm*ft/s^2: %f \n',F5);

case 3
x = input('Escribe la cantidad de dina: ');
F1 = x/10e5
F2 = x/10e5
F3 = (x/10e5)/9.80665
F4 = (x/10e5)*0.22481
F5 = (x/10e5)*0.22481*32.174
fprintf('El valor de dina a N: %f \n',F1);
fprintf('El valor de dina a kg*m/s^2: %f \n',F2);
fprintf('El valor de dina a kgf: %f \n',F3);
fprintf('El valor de dina a lbf: %f \n',F4);
fprintf('El valor de dina a lbm*ft/s^2: %f \n',F5);

case 4
x = input('Escribe la cantidad de kgf: ');
F1 = x*9.80665
F2 = x*9.80665
F3 = x*9.80665*10e5
F4 = x*9.80665*0.22481
F5 = x*9.80665*0.22481*32.174
fprintf('El valor de kgf a N: %f \n',F1);
fprintf('El valor de kgf a kg*m/s^2: %f \n',F2);
fprintf('El valor de kgf a dina: %f \n',F3);
fprintf('El valor de kgf a lbf: %f \n',F4);
fprintf('El valor de kgf a lbm*ft/s^2: %f \n',F5);

case 5
x = input('Escribe la cantidad de lbf: ');
F1 = x*4.44822
F2 = x*4.44822
F3 = x*4.44822*10e5
F4 = (x*4.44822)/9.80665
F5 = x*32.174
fprintf('El valor de lbf a N: %f \n',F1);
fprintf('El valor de lbf a kg*m/s^2: %f \n',F2);
fprintf('El valor de lbf a dina: %f \n',F3);
fprintf('El valor de lbf a kgf: %f \n',F4);
fprintf('El valor de lbf a lbm*ft/s^2: %f \n',F5);

case 6
x = input('Escribe la cantidad de lbm*ft/s^2: ');
F1 = (x/32.174)*0.22481
F2 = (x/32.174)*0.22481
F3 = (x/32.174)*0.22481*10e5
F4 = (x/32.174)*(0.22481/9.80665)
F5 = x/32.174
fprintf('El valor de lbm*ft/s^2 a N: %f \n',F1);
fprintf('El valor de lbm*ft/s^2 a kg*m/s^2: %f \n',F2);
fprintf('El valor de lbm*ft/s^2 a dina: %f \n',F3);
fprintf('El valor de lbm*ft/s^2 a kgf: %f \n',F4);
fprintf('El valor de lbm*ft/s^2 a lbf: %f \n',F5);
end

% FLUJO DE CALOR
case 6
user_choice_6 = menu('Seleccione la unidad con la que usted cuenta:','W/cm^2','W/m^2','BTU/h*ft^2')
switch (user_choice_6)
case 1
 x = input('Escribe la cantidad de W/cm^2: ');
FQ1 = x*10e4
FQ2 = x*10e4*0.3171
fprintf('El valor de W/cm^2 a W/m^2: %f \n',FQ1);
fprintf('El valor de W/cm^2 a BTU/h*ft^2: %f \n',FQ2);

case 2
x = input('Escribe la cantidad de W/m^2: ');
FQ1 = x/10e4
FQ2 = (x/10e4)*0.3171
fprintf('El valor de W/m^2 a W/cm^2: %f \n',FQ1);
fprintf('El valor de W/m^2 a BTU/h*ft^2: %f \n',FQ2);

case 3
x = input('Escribe la cantidad de BTU/h*ft^2: ');
FQ1 = x/0.3171
FQ2 = (x/0.3171)/10e4
fprintf('El valor de BTU/h*ft^2 a W/m^2: %f \n',FQ1);
fprintf('El valor de BTU/h*ft^2 a W/cm^2: %f \n',FQ2);
end

% COEFICIENTE DE TRANSFERENCIA DE CALOR

case 7
user_choice_7 = menu('Seleccione la unidad con la que usted cuenta:','W/m^2*°C', 'W/m^2*K','BTU/h*ft^2*°F')
switch (user_choice_7)
case 1
x = input('Escribe la cantidad de W/m^2: ');

CTQ1 = x
CTQ2 = x*0.17612
fprintf('El valor de W/m^2*°C a W/m^2*K: %f \n',CTQ1);
fprintf('El valor de W/m^2*°C a BTU/h*ft^2*°F: %f \n',CTQ2);

case 2
x = input('Escribe la cantidad de W/m^2: ');

CTQ1 = x
CTQ2 = x*0.17612
fprintf('El valor de W/m^2*K a W/m^2*°C: %f \n',CTQ1);
fprintf('El valor de W/m^2*K a BTU/h*ft^2*°F: %f \n',CTQ2);

case 3
x = input('Escribe la cantidad de BTU/h*ft^2: ');

CTQ1 = x/0.17612
CTQ2 = x/0.17612
fprintf('El valor de BTU/h*ft^2*°F a W/m^2*°C: %f \n',CTQ1);
fprintf('El valor de BTU/h*ft^2*°F a W/m^2*K: %f \n',CTQ2);

end

% Longitud

case 8

user_choice_8 = menu('Seleccione la unidad con la que usted

cuenta:', 'm', 'cm', 'mm', 'μm', 'km', 'in', 'ft', 'yd', 'milla')

switch (user_choice_8)

case 1
 x = input('Escribe la cantidad de m: ');

L1 = x*100

L2 = x*1000

L3 = x*1000000

L4 = x/1000

L5 = x*39.370

L6 = x*3.2808

L7 = x*1.0926

L8 = x/(1000*1.6093)

fprintf('El valor de m a cm: %f \n',L1);

fprintf('El valor de m a mm: %f \n',L2);

fprintf('El valor de m a μm: %f \n',L3);

fprintf('El valor de m a km: %f \n',L4);

fprintf('El valor de m a in: %f \n',L5);

fprintf('El valor de m a ft: %f \n',L6);

fprintf('El valor de m a yd: %f \n',L7);

fprintf('El valor de m a millas: %f \n',L8);

case 2

x = input('Escribe la cantidad de cm: ');

L1 = x/100

L2 = x*10

L3 = x*10000

L4 = x/100000

L5 = x*39.370/100

L6 = x*3.2808/100

L7 = x*1.0926/100

L8 = x/(100000*1.6093)

fprintf('El valor de cm a m: %f \n',L1);

fprintf('El valor de cm a mm: %f \n',L2);

fprintf('El valor de cm a μm: %f \n',L3);

fprintf('El valor de cm a km: %f \n',L4);

fprintf('El valor de cm a in: %f \n',L5);

 fprintf('El valor de cm a ft: %f \n',L6);

fprintf('El valor de cm a yd: %f \n',L7);

fprintf('El valor de cm a millas: %f \n',L8);

case 3

x = input('Escribe la cantidad de mm: ');

L1 = x/10

L2 = x/1000

L3 = x*1000

L4 = x/1000000

L5 = x*39.370/1000

L6 = x*3.2808/1000

L7 = x*1.0926/1000

L8 = x/(1000000*1.6093)

fprintf('El valor de mm a cm: %f \n',L1);

fprintf('El valor de mm a m: %f \n',L2);

fprintf('El valor de mm a μm: %f \n',L3);

fprintf('El valor de mm a km: %f \n',L4);

fprintf('El valor de mm a in: %f \n',L5);

fprintf('El valor de mm a ft: %f \n',L6);

fprintf('El valor de mm a yd: %f \n',L7);

fprintf('El valor de mm a millas: %f \n',L8);

case 4

x = input('Escribe la cantidad de μm: ');

L1 = x/10000

L2 = x/1000

L3 = x/1000000

L4 = x/1000000000

L5 = x*39.370/1000000

L6 = x*3.2808/1000000

L7 = x*1.0926/1000000

L8 = x/(1000000000*1.6093)

fprintf('El valor de μm a cm: %f \n',L1);

 fprintf('El valor de μm a mm: %f \n',L2);

fprintf('El valor de μm a m: %f \n',L3);

fprintf('El valor de μm a km: %f \n',L4);

fprintf('El valor de μm a in: %f \n',L5);

fprintf('El valor de μm a ft: %f \n',L6);

fprintf('El valor de μm a yd: %f \n',L7);

fprintf('El valor de μm a millas: %f \n',L8);

case 5

x = input('Escribe la cantidad de km: ');

L1 = x*100000

L2 = x*1000000

L3 = x*1000000000

L4 = x*1000

L5 = x*39370

L6 = x*3280.8

L7 = x*1092.6

L8 = x/1.6093

fprintf('El valor de km a cm: %f \n',L1);

fprintf('El valor de km a mm: %f \n',L2);

fprintf('El valor de km a μm: %f \n',L3);

fprintf('El valor de km a m: %f \n',L4);

fprintf('El valor de km a in: %f \n',L5);

fprintf('El valor de km a ft: %f \n',L6);

fprintf('El valor de km a yd: %f \n',L7);

fprintf('El valor de km a millas: %f \n',L8);

case 6

x = input('Escribe la cantidad de in: ');

L1 = x*2.54

L2 = x*1000/39.370

L3 = x*1000000/39.370

L4 = x/(1000*39.370)

L5 = x/39.370
 L6 = (x*3.2808)/39.370

L7 = (x*1.0926)/38.370

L8 = x/(1000*1.6093*39.370)

fprintf('El valor de in a cm: %f \n',L1);

fprintf('El valor de in a mm: %f \n',L2);

fprintf('El valor de in a μm: %f \n',L3);

fprintf('El valor de in a km: %f \n',L4);

fprintf('El valor de in a m: %f \n',L5);

fprintf('El valor de in a ft: %f \n',L6);

fprintf('El valor de in a yd: %f \n',L7);

fprintf('El valor de in a millas: %f \n',L8);

case 7

x = input('Escribe la cantidad de ft: ');

L1 = x*100/3.2808

L2 = x*1000/3.2808

L3 = x*1000000/3.2808

L4 = x/(1000*3.2808)

L5 = x*39.370/3.2808

L6 = x/3.2808

L7 = x*1.0926/3.2808

L8 = x/5280

fprintf('El valor de ft a cm: %f \n',L1);

fprintf('El valor de ft a mm: %f \n',L2);

fprintf('El valor de ft a μm: %f \n',L3);

fprintf('El valor de ft a km: %f \n',L4);

fprintf('El valor de ft a in: %f \n',L5);

fprintf('El valor de ft a m: %f \n',L6);

fprintf('El valor de ft a yd: %f \n',L7);

fprintf('El valor de ft a millas: %f \n',L8);

case 8

x = input('Escribe la cantidad de yd: ');

L1 = x*100/1.0926
 L2 = x*1000/1.0926

L3 = x*1000000/1.0926

L4 = x/(1000*1.0926)

L5 = x*39.370/1.0926

L6 = x*3.2808/1.0926

L7 = x/1.0926

L8 = x/(1000*1.6093*1.0926)

fprintf('El valor de yd a cm: %f \n',L1);

fprintf('El valor de yd a mm: %f \n',L2);

fprintf('El valor de yd a μm: %f \n',L3);

fprintf('El valor de yd a km: %f \n',L4);

fprintf('El valor de yd a in: %f \n',L5);

fprintf('El valor de yd a ft: %f \n',L6);

fprintf('El valor de yd a m: %f \n',L7);

fprintf('El valor de yd a millas: %f \n',L8);

case 9

x = input('Escribe la cantidad de millas: ');

L1 = x*100*1609.3

L2 = x*1000*1609.3

L3 = x*1000000*1609.3

L4 = x*1609.3/1000

L5 = x*39.370*1609.3

L6 = x*3.2808*1609.3

L7 = x*1.0926*1609.3

L8 = x*1609.3

fprintf('El valor de millas a cm: %f \n',L1);

fprintf('El valor de millas a mm: %f \n',L2);

fprintf('El valor de millas a μm: %f \n',L3);

fprintf('El valor de millas a km: %f \n',L4);

fprintf('El valor de millas a in: %f \n',L5);

fprintf('El valor de millas a ft: %f \n',L6);

fprintf('El valor de millas a yd: %f \n',L7);

 fprintf('El valor de millas a m: %f \n',L8);

end

% Masa

user_choice_9 = menu('Seleccione la unidad con la que usted cuenta:',

'kg', 'g', 'ton', 'lbm', 'onza', 'slug', 'ton corta')

switch (user_choice_9)

case 1

x = input('Escribe la cantidad de kg: ');

M1 = x*1000

M2 = x/1000

M3 = x*2.2046226

M4 = x*1000/28.3495

M5 = x/14.5939

M6 = x/907.1847

fprintf('El valor de kg a g: %f \n',M1);

fprintf('El valor de kg a ton: %f \n',M2);

fprintf('El valor de kg a lbm: %f \n',M3);

fprintf('El valor de kg a onza: %f \n',M4);

fprintf('El valor de kg a slug: %f \n',M5);

fprintf('El valor de kg a ton corta: %f \n',M6);

case 2

x = input('Escribe la cantidad de g: ');

M1 = x/1000

M2 = x/1000000

M3 = x*2.2046226/1000

M4 = x/28.3495

M5 = x/(14.5939*1000)

M6 = x/(1000*907.1847)

fprintf('El valor de g a kg: %f \n',M1);

fprintf('El valor de g a ton: %f \n',M2);

fprintf('El valor de g a lbm: %f \n',M3);

 fprintf('El valor de g a onza: %f \n',M4);

fprintf('El valor de g a slug: %f \n',M5);

fprintf('El valor de g a ton corta: %f \n',M6);

case 3

x = input('Escribe la cantidad de ton: ');

M1 = x*1000000

M2 = x*1000

M3 = x*2.204622*1000

M4 = x*1000000/28.3495

M5 = x*1000/14.5939

M6 = x*1000/907.1847

fprintf('El valor de ton a g: %f \n',M1);

fprintf('El valor de ton a kg: %f \n',M2);

fprintf('El valor de ton a lbm: %f \n',M3);

fprintf('El valor de ton a onza: %f \n',M4);

fprintf('El valor de ton a slug: %f \n',M5);

fprintf('El valor de ton a ton corta: %f \n',M6);

case 4

x = input('Escribe la cantidad de lbm: ');

M1 = x*1000/2.2046226

M2 = x/(1000*2.2046226)

M3 = x/2.2046226

M4 = x*1000/(28.3495*2.2046226)

M5 = x/(14.5939*2.2046226)

M6 = x/(2.2046226*907.1847

fprintf('El valor de lbm a g: %f \n',M1);

fprintf('El valor de lbm a ton: %f \n',M2);

fprintf('El valor de lbm a kg: %f \n',M3);

fprintf('El valor de lbm a onza: %f \n',M4);

fprintf('El valor de lbm a slug: %f \n',M5);

fprintf('El valor de lbm a ton corta: %f \n',M6);

case 5
x = input('Escribe la cantidad de onza: ');

M1 = x*28.3495

M2 = x*28.3495/1000000

M3 = x*2.2046226*0.0283495

M4 = x*0.0283495

M5 = x*0.0283495/14.5939

M6 = x*0.0283495/907.1847

fprintf('El valor de onza a g: %f \n',M1);

fprintf('El valor de onza a ton: %f \n',M2);

fprintf('El valor de onza a lbm: %f \n',M3);

fprintf('El valor de onza a kg: %f \n',M4);

fprintf('El valor de onza a slug: %f \n',M5);

fprintf('El valor de konza a ton corta: %f \n',M6);

case 6

x = input('Escribe la cantidad de slug: ');

M1 = x*1000*14.5939

M2 = x*14.5939/1000

M3 = x*2.2046226*14.5939

M4 = x*1000*14.5939/28.3495

M5 = x*14.5939/14.5939

M6 = x*14.5939/907.1847

fprintf('El valor de slug a g: %f \n',M1);

fprintf('El valor de slug a ton: %f \n',M2);

fprintf('El valor de slug a lbm: %f \n',M3);

fprintf('El valor de slug a onza: %f \n',M4);

fprintf('El valor de slug a kg: %f \n',M5);

fprintf('El valor de slug a ton corta: %f \n',M6);

case 7

x = input('Escribe la cantidad de ton corta: ');

M1 = x*1000*907.1847

M2 = x*907.1847/1000

M3 = x*2.2046226*907.1847
 M4 = x*1000*907.1847/28.3495

M5 = x*907.1847/14.5939

M6 = x*907.1847

fprintf('El valor de ton corta a g: %f \n',M1);

fprintf('El valor de ton corta a ton: %f \n',M2);

fprintf('El valor de ton corta a lbm: %f \n',M3);

fprintf('El valor de ton corta a onza: %f \n',M4);

fprintf('El valor de ton corta a slug: %f \n',M5);

fprintf('El valor de ton corta a kg: %f \n',M6);

end

% Potencia, velocidad de transferencia de calor

user_choice_10 = menu('Seleccione la unidad con la que usted

cuenta:', 'W', 'J/s', 'kW', 'hp', 'Btu/h', 'lbf*ft/s', 'Btu/s',
'Btu/min', 'hp de caldera', 'kJ/h', 'ton de refrigeración')

switch (user_choice_10)

case 1

x = input('Escribe la cantidad de W: ');

P1 = x

P2 = x/1000

P3 = x/0.74570*1000

P4 = x*3412.14/1000

P5 = x*737.56/1000

P6 = x*0.7068/0.74570*1000

P7 = x*42.41/0.74570*1000

P8 = x*3412.14/33475*1000

P9 = x*3412.14*1.055056/1000

P10= x*42.41/(0.7068*200*1000)

fprintf('El valor de W a J/s: %f \n',P1);

fprintf('El valor de W a kW: %f \n',P2);

fprintf('El valor de W a hp: %f \n',P3);

fprintf('El valor de W a Btu/h: %f \n',P4);

fprintf('El valor de W a lbf*ft/s: %f \n',P5);

fprintf('El valor de W a Btu/s: %f \n',P6);

 fprintf('El valor de W a Btu/min: %f \n',P7);

fprintf('El valor de W a hp de caldera: %f \n',P8);

fprintf('El valor de W a kJ/h: %f \n',P9);

fprintf('El valor de W a ton de refrigeración: %f

\n',P10);

case 2

x = input('Escribe la cantidad de J/s: ');

P1 = x

P2 = x/1000

P3 = x/0.74570*1000

P4 = x*3412.14/1000

P5 = x*737.56/1000

P6 = x*0.7068/0.74570*1000

P7 = x*42.41/0.74570*1000

P8 = x*3412.14/33475*1000

P9 = x*3412.14*1.055056/1000

P10= x*42.41/(0.7068*200*1000)

fprintf('El valor de J/s a W: %f \n',P1);

fprintf('El valor de J/s a kW: %f \n',P2);

fprintf('El valor de J/s a hp: %f \n',P3);

fprintf('El valor de J/s a Btu/h: %f \n',P4);

fprintf('El valor de J/s a lbf*ft/s: %f \n',P5);

fprintf('El valor de J/s a Btu/s: %f \n',P6);

fprintf('El valor de J/s a Btu/min: %f \n',P7);

fprintf('El valor de J/s a hp de caldera: %f

\n',P8);

fprintf('El valor de J/s a kJ/h: %f \n',P9);

fprintf('El valor de J/s a ton de refrigeración: %f

\n',P10);

case 3

x = input('Escribe la cantidad de kW: ');

P1 = x*1000

P2 = x*1000
 P3 = x/0.74570

P4 = x*3412.14

P5 = x*737.56

P6 = x*0.7068/0.74570

P7 = x*42.41/0.74570

P8 = x*3412.14/33475

P9 = x*3412.14*1.055056

P10= x*42.41/(0.7068*200)

fprintf('El valor de kW a J/s: %f \n',P1);

fprintf('El valor de kW a W: %f \n',P2);

fprintf('El valor de kW a hp: %f \n',P3);

fprintf('El valor de kW a Btu/h: %f \n',P4);

fprintf('El valor de kW a lbf*ft/s: %f \n',P5);

fprintf('El valor de kW a Btu/s: %f \n',P6);

fprintf('El valor de kW a Btu/min: %f \n',P7);

fprintf('El valor de kW a hp de caldera: %f

\n',P8);

fprintf('El valor de kW a kJ/h: %f \n',P9);

fprintf('El valor de kW a ton de refrigeración: %f

\n',P10);

case 4

x = input('Escribe la cantidad de hp: ');

P1 = x*745.7

P2 = x/1.341

P3 = x*745.7

P4 = x*2544.5

P5 = x*550

P6 = x*0.7068

P7 = x*42.41

P8 = x*2544.5/33475

P9 = x*2544.5*1.055056

P10= x*42.41/200

fprintf('El valor de hp a J/s: %f \n',P1);

 fprintf('El valor de hp a kW: %f \n',P2);

fprintf('El valor de hp a W: %f \n',P3);

fprintf('El valor de hp a Btu/h: %f \n',P4);

fprintf('El valor de hp a lbf*ft/s: %f \n',P5);

fprintf('El valor de hp a Btu/s: %f \n',P6);

fprintf('El valor de hp a Btu/min: %f \n',P7);

fprintf('El valor de hp a hp de caldera: %f

\n',P8);

fprintf('El valor de hp a kJ/h: %f \n',P9);

fprintf('El valor de hp a ton de refrigeración: %f

\n',P10);

case 5

x = input('Escribe la cantidad de Btu/h: ');

P1 = x*1000/3412.14

P2 = x/3412.14

P3 = x/2544.5

P4 = x*1000/3412.14

P5 = x*737.56/3412.14

P6 = x*0.7068/2544.5

P7 = x*42.41/2544.5

P8 = x/33475

P9 = x*1.055056

P10= x*42.41/(2544.5*200)

fprintf('El valor de Btu/h a J/s: %f \n',P1);

fprintf('El valor de Btu/h a kW: %f \n',P2);

fprintf('El valor de Btu/h a hp: %f \n',P3);

fprintf('El valor de Btu/h a W: %f \n',P4);

fprintf('El valor de Btu/h a lbf*ft/s: %f \n',P5);

fprintf('El valor de Btu/h a Btu/s: %f \n',P6);

fprintf('El valor de Btu/h a Btu/min: %f \n',P7);

fprintf('El valor de Btu/h a hp de caldera: %f

\n',P8);

fprintf('El valor de Btu/h a kJ/h: %f \n',P9);

 fprintf('El valor de Btu/h a ton de refrigeración:
%f \n',P10);

case 6

x = input('Escribe la cantidad de lbf*ft/s: ');

P1 = x*1000/737.56

P2 = x/737.56

P3 = x/550

P4 = x*3412.14/737.56

P5 = x*1000/737.56

P6 = x*0.7068/550

P7 = x*42.41/550

P8 = x*3412.14/(737.56*33475)

P9 = (x*3412.14*1.055056)/737.56

P10= x*42.41/(550*200)

fprintf('El valor de lbf*ft/s a J/s: %f \n',P1);

fprintf('El valor de lbf*ft/s a kW: %f \n',P2);

fprintf('El valor de lbf*ft/s a hp: %f \n',P3);

fprintf('El valor de lbf*ft/s a Btu/h: %f \n',P4);

fprintf('El valor de lbf*ft/s a W: %f \n',P5);

fprintf('El valor de lbf*ft/s a Btu/s: %f \n',P6);

fprintf('El valor de lbf*ft/s a Btu/min: %f

\n',P7);

fprintf('El valor de lbf*ft/s a hp de caldera: %f

\n',P8);

fprintf('El valor de lbf*ft/s a kJ/h: %f \n',P9);

fprintf('El valor de lbf*ft/s a ton de

refrigeración: %f \n',P10);

case 7

x = input('Escribe la cantidad de Btu/s: ');

P1 = x*0.74570*1000/0.7068

P2 = x*0.74570/0.7068

P3 = x/0.7068

P4 = x*2544.5/0.7068

P5 = x*550/0.7068
 P6 = x*0.74570*1000/0.7068

P7 = x*42.41/0.7068

P8 = x*2544.5/(0.7068*33475)

P9 = x*2544.5*1.05556/0.7068

P10= x*42.41/(0.7068*200)

fprintf('El valor de Btu/s a J/s: %f \n',P1);

fprintf('El valor de Btu/s a kW: %f \n',P2);

fprintf('El valor de Btu/s a hp: %f \n',P3);

fprintf('El valor de Btu/s a Btu/h: %f \n',P4);

fprintf('El valor de Btu/s a lbf*ft/s: %f \n',P5);

fprintf('El valor de Btu/s a W: %f \n',P6);

fprintf('El valor de Btu/s a Btu/min: %f \n',P7);

fprintf('El valor de Btu/s a hp de caldera: %f

\n',P8);

fprintf('El valor de Btu/s a kJ/h: %f \n',P9);

fprintf('El valor de Btu/s a ton de refrigeración:

%f \n',P10);

case 8

x = input('Escribe la cantidad de Btu/min: ');

P1 = x*0.74570*1000/42.41

P2 = x*0.74570/42.41

P3 = x/42.41

P4 = x*2544.5/42.41

P5 = x*550/42.41

P6 = x*0.7068/42.41

P7 = x*0.74570*1000/42.41

P8 = x*2544.5/(42.41*33475)

P9 = x*2544.5*1.055056/42.41

P10= x/200

fprintf('El valor de Btu/min a J/s: %f \n',P1);

fprintf('El valor de Btu/min a kW: %f \n',P2);

fprintf('El valor de Btu/min a hp: %f \n',P3);

fprintf('El valor de Btu/min a Btu/h: %f \n',P4);

 fprintf('El valor de Btu/min a lbf*ft/s: %f
\n',P5);

fprintf('El valor de Btu/min a Btu/s: %f \n',P6);

fprintf('El valor de Btu/min a W: %f \n',P7);

fprintf('El valor de Btu/min a hp de caldera: %f

\n',P8);

fprintf('El valor de Btu/min a kJ/h: %f \n',P9);

fprintf('El valor de Btu/min a ton de

refrigeración: %f \n',P10);

case 9

x = input('Escribe la cantidad de hp de caldera: ');

P1 = x*1000*33475/3412.14

P2 = x*33475/3412.14

P3 = x*33475/2544.5

P4 = x*33475

P5 = x*737.56*33475/3412.14

P6 = x*0.7068*33475/2544.5

P7 = x*42.41*33475/2544.5

P8 = x*1000*33475/3412.14

P9 = x*1.055056*33475

P10= x*42.41*33475/(2544.5*200)

fprintf('El valor de hp de caldera a J/s: %f

\n',P1);

fprintf('El valor de hp de caldera a kW: %f

\n',P2);

fprintf('El valor de hp de caldera a hp: %f

\n',P3);

fprintf('El valor de hp de caldera a Btu/h: %f

\n',P4);

fprintf('El valor de hp de caldera a lbf*ft/s: %f

\n',P5);

fprintf('El valor de hp de caldera a Btu/s: %f

\n',P6);

fprintf('El valor de hp de caldera a Btu/min: %f

\n',P7);

fprintf('El valor de hp de caldera a W: %f \n',P8);

 fprintf('El valor de hp de caldera a kJ/h: %f
\n',P9);

fprintf('El valor de Whp de caldera a ton de

refrigeración: %f \n',P10);

case 10

x = input('Escribe la cantidad de kJ/h: ');

P1 = x*1000/1.055056*3412.14

P2 = x/1.055056*3412.14

P3 = x/1.055056*2544.5

P4 = x/1.055056

P5 = x*737.56/1.055056*3412.14

P6 = x*0.7068/1.055056*2544.5

P7 = x*42.41/1.055056*2544.5

P8 = x/1.055056*33475

P9 = x*1000/3412.14*1.055056

P10= x*42.41/1.055056*2544.5*200

fprintf('El valor de kJ/h a J/s: %f \n',P1);

fprintf('El valor de kJ/h a kW: %f \n',P2);

fprintf('El valor de kJ/h a hp: %f \n',P3);

fprintf('El valor de kJ/h a Btu/h: %f \n',P4);

fprintf('El valor de kJ/h a lbf*ft/s: %f \n',P5);

fprintf('El valor de kJ/h a Btu/s: %f \n',P6);

fprintf('El valor de kJ/h a Btu/min: %f \n',P7);

fprintf('El valor de kJ/h a hp de caldera: %f

\n',P8);

fprintf('El valor de kJ/h a W: %f \n',P9);

fprintf('El valor de kJ/h a ton de refrigeración:

%f \n',P10);

case 11

x = input('Escribe la cantidad de ton de

refrigeración: ');

P1 = x*0.74570*1000*200/42.41

P2 = x*0.74570*200/42.41

P3 = x*200/42.41
 P4 = x*2544.5*200/42.41

P5 = x*550*200/42.41

P6 = x*0.7068*200/42.41

P7 = x*200

P8 = x*2544.5*200/(42.41*33475)

P9 = x*2544.5*1.055056*200/42.41

P10= x*0.74570*1000*200/42.41

fprintf('El valor de ton de refrigeración a J/s: %f

\n',P1);

fprintf('El valor de ton de refrigeración a kW: %f

\n',P2);

fprintf('El valor de ton de refrigeración a hp: %f

\n',P3);

fprintf('El valor de ton de refrigeración a Btu/h:

%f \n',P4);

fprintf('El valor de ton de refrigeración a

lbf*ft/s: %f \n',P5);

fprintf('El valor de ton de refrigeración a Btu/s:

%f \n',P6);

fprintf('El valor de ton de refrigeración a

Btu/min: %f \n',P7);

fprintf('El valor de ton de refrigeración a hp de

caldera: %f \n',P8);

fprintf('El valor de ton de refrigeración a kJ/h:

%f \n',P9);

fprintf('El valor de ton de refrigeración a W: %f

\n',P10);

end

% Presión

user_choice_11 = menu('Seleccione la unidad con la que usted

cuenta:', 'Pa', 'N/m²', 'kPa', 'MPa', 'atm', 'bars', 'mm Hg a 0ºC',
'kgf/cm²', 'psia', 'psi', 'lbf/ft²', 'in Hg')

switch (user_choice_11)

case 1

x = input('Escribe la cantidad de Pa: ');

Pr1 = x
 Pr2 = x/1000

Pr3 = x/1000000

Pr4 = x/1000*101.325

Pr5 = x*1.01325/1000*101.325

Pr6 = x/0.1333*1000

Pr7 = x*1.03323/101.325*1000

Pr8 = x*1.4504e-4

Pr9 = x/1000*6.894757

Pr10= x*144/1000*6.894757

Pr11 = x/1000*3.387

fprintf('El valor de Pa a N/m²: %f \n',P1);

fprintf('El valor de Pa a kPa: %f \n',P2);

fprintf('El valor de Pa a MPa: %f \n',P3);

fprintf('El valor de Pa a atm: %f \n',P4);

fprintf('El valor de Pa a bars: %f \n',P5);

fprintf('El valor de Pa a mm Hg: %f \n',P6);

fprintf('El valor de Pa a kgf/cm²: %f \n',P7);

fprintf('El valor de Pa a psia: %f \n',P8);

fprintf('El valor de Pa a psi: %f \n',P9);

fprintf('El valor de Pa a lbf/ft²: %f \n',P10);

fprintf('El valor de Pa a in Hg: %f \n',P11);

case 2

x = input('Escribe la cantidad de N/m²: ');

Pr1 = x

Pr2 = x/1000

Pr3 = x/1000000

Pr4 = x/1000*101.325

Pr5 = x*1.01325/1000*101.325

Pr6 = x/0.1333*1000

Pr7 = x*1.03323/101.325*1000

Pr8 = x*1.4504e-4

Pr9 = x/1000*6.894757
 Pr10= x*144/1000*6.894757

Pr11 = x/1000*3.387

fprintf('El valor de N/m² a Pa: %f \n',P1);

fprintf('El valor de N/m² a kPa: %f \n',P2);

fprintf('El valor de N/m² a MPa: %f \n',P3);

fprintf('El valor de N/m² a atm: %f \n',P4);

fprintf('El valor de N/m² a bars: %f \n',P5);

fprintf('El valor de N/m² a mm Hg: %f \n',P6);

fprintf('El valor de N/m² a kgf/cm²: %f \n',P7);

fprintf('El valor de N/m² a psia: %f \n',P8);

fprintf('El valor de N/m² a psi: %f \n',P9);

fprintf('El valor de N/m² a lbf/ft²: %f \n',P10);

fprintf('El valor de N/m² a in Hg: %f \n',P11);

case 3

x = input('Escribe la cantidad de kPa: ');

Pr1 = x*1000

Pr2 = x*1000

Pr3 = x/1000

Pr4 = x/101.325

Pr5 = x*1.01325/101.325

Pr6 = x/0.1333

Pr7 = x*1.03323/101.325

Pr8 = x*1.4504e-4*1000

Pr9 = x/6.894757

Pr10= x*144/6.894757

Pr11 = x/3.387

fprintf('El valor de kPa a N/m²: %f \n',P1);

fprintf('El valor de kPa a Pa: %f \n',P2);

fprintf('El valor de kPa a MPa: %f \n',P3);

fprintf('El valor de kPa a atm: %f \n',P4);

fprintf('El valor de kPa a bars: %f \n',P5);

fprintf('El valor de kPa a mm Hg: %f \n',P6);

 fprintf('El valor de kPa a kgf/cm²: %f \n',P7);

fprintf('El valor de kPa a psia: %f \n',P8);

fprintf('El valor de kPa a psi: %f \n',P9);

fprintf('El valor de kPa a lbf/ft²: %f \n',P10);

fprintf('El valor de kPa a in Hg: %f \n',P11);

case 4

x = input('Escribe la cantidad de MPa: ');

Pr1 = x*1000000

Pr2 = x*1000000

Pr3 = x*1000

Pr4 = x*1000/101.325

Pr5 = x*1.01325*1000/101.325

Pr6 = x*1000/0.1333

Pr7 = x*1.03323*1000/101.325

Pr8 = x*1.4504e-4*1000000

Pr9 = x*1000/6.894757

Pr10= x*144*1000/6.894757

Pr11 = x*1000/3.387

fprintf('El valor de MPa a N/m²: %f \n',P1);

fprintf('El valor de MPa a Pa: %f \n',P2);

fprintf('El valor de MPa a kPa: %f \n',P3);

fprintf('El valor de MPa a atm: %f \n',P4);

fprintf('El valor de MPa a bars: %f \n',P5);

fprintf('El valor de MPa a mm Hg: %f \n',P6);

fprintf('El valor de MPa a kgf/cm²: %f \n',P7);

fprintf('El valor de MPa a psia: %f \n',P8);

fprintf('El valor de MPa a psi: %f \n',P9);

fprintf('El valor de MPa a lbf/ft²: %f \n',P10);

fprintf('El valor de MPa a in Hg: %f \n',P11);

case 5

x = input('Escribe la cantidad de atm: ');

Pr1 = x*101.325*1000
Pr2 = x*101.325*1000

Pr3 = x*101.325/1000

Pr4 = x*101.325

Pr5 = x*1.01325

Pr6 = x*760

Pr7 = x*1.03323

Pr8 = x*14.696

Pr9 = x*101.325/6.894757

Pr10= x*101.325*144/6.894757

Pr11 = x*29.92

fprintf('El valor de atm a N/m²: %f \n',P1);

fprintf('El valor de atm a Pa: %f \n',P2);

fprintf('El valor de atm a MPa: %f \n',P3);

fprintf('El valor de atm a kPa: %f \n',P4);

fprintf('El valor de atm a bars: %f \n',P5);

fprintf('El valor de atm a mm Hg: %f \n',P6);

fprintf('El valor de atm a kgf/cm²: %f \n',P7);

fprintf('El valor de atm a psia: %f \n',P8);

fprintf('El valor de atm a psi: %f \n',P9);

fprintf('El valor de atm a lbf/ft²: %f \n',P10);

fprintf('El valor de atm a in Hg: %f \n',P11);

case 6

x = input('Escribe la cantidad de bar: ');

Pr1 = x*101.325*1000/1.01325

Pr2 = x*101.325*1000/1.01325

Pr3 = x*101.325/1.01325*1000

Pr4 = x/1.01325

Pr5 = x*101.325/1.01325

Pr6 = x*760/1.01325

Pr7 = x*1.03323/1.01325

Pr8 = x*1.4504e-4*101.325*1000/1.01325

Pr9 = x*101.325/1.01325*6.894757
Pr10= x*144*101.325/6.894757*1.01325

Pr11 = x*101.325/1.01325*3.387

fprintf('El valor de bar a N/m²: %f \n',P1);

fprintf('El valor de bar a Pa: %f \n',P2);

fprintf('El valor de bar a MPa: %f \n',P3);

fprintf('El valor de bar a atm: %f \n',P4);

fprintf('El valor de bar a kPa: %f \n',P5);

fprintf('El valor de bar a mm Hg: %f \n',P6);

fprintf('El valor de bar a kgf/cm²: %f \n',P7);

fprintf('El valor de bar a psia: %f \n',P8);

fprintf('El valor de bar a psi: %f \n',P9);

fprintf('El valor de bar a lbf/ft²: %f \n',P10);

fprintf('El valor de bar a in Hg: %f \n',P11);

case 7

x = input('Escribe la cantidad de mm Hg: ');

Pr1 = x*101.325*1000/760

Pr2 = x*101.325*1000/760

Pr3 = x*101.325/1000*760

Pr4 = x/760

Pr5 = x*1.01325/760

Pr6 = x*0.1333

Pr7 = x*1.03323/760

Pr8 = x*14.696/760

Pr9 = x*0.1333/6.894757

Pr10= x*144*0.1333/1000*6.894757

Pr11 = x*0.1333/3.387

fprintf('El valor de mm Hg a N/m²: %f \n',P1);

fprintf('El valor de mm Hg a Pa: %f \n',P2);

fprintf('El valor de mm Hg a MPa: %f \n',P3);

fprintf('El valor de mm Hg a atm: %f \n',P4);

fprintf('El valor de mm Hg a bars: %f \n',P5);

fprintf('El valor de mm Hg a kPa: %f \n',P6);

 fprintf('El valor de mm Hg a kgf/cm²: %f \n',P7);

fprintf('El valor de mm Hg a psia: %f \n',P8);

fprintf('El valor de mm Hg a psi: %f \n',P9);

fprintf('El valor de mm Hg a lbf/ft²: %f \n',P10);

fprintf('El valor de mm Hg a in Hg: %f \n',P11);

case 8

x = input('Escribe la cantidad de kgf/cm²: ');

Pr1 = x*1000*1.03323/101.325

Pr2 = x*1000*1.03323/101.325

Pr3 = x*1.03323/101.325*1000

Pr4 = x/1.03323

Pr5 = x*1.01325/1.03323

Pr6 = x*1.03323/0.1333*101.325

Pr7 = x*101.325/1.03323

Pr8 = x*1.4504e-4*1000*101.325/1.03323

Pr9 = x*101.325/6.894757*1.03323

Pr10= x*144*101.325/6.894757*1.03323

Pr11 = x*101.325/1.03323*3.387

fprintf('El valor de kgf/cm² a N/m²: %f \n',P1);

fprintf('El valor de kgf/cm² a Pa: %f \n',P2);

fprintf('El valor de kgf/cm² a MPa: %f \n',P3);

fprintf('El valor de kgf/cm² a atm: %f \n',P4);

fprintf('El valor de kgf/cm² a bars: %f \n',P5);

fprintf('El valor de kgf/cm² a mm Hg: %f \n',P6);

fprintf('El valor de kgf/cm² a kPa: %f \n',P7);

fprintf('El valor de kgf/cm² a psia: %f \n',P8);

fprintf('El valor de kgf/cm² a psi: %f \n',P9);

fprintf('El valor de kgf/cm² a lbf/ft²: %f

\n',P10);

fprintf('El valor de kgf/cm² a in Hg: %f \n',P11);

case 9

x = input('Escribe la cantidad de psia: ');

Pr1 = x/1.4504e-4
Pr2 = x/1.4504e-4

Pr3 = x/1.4504e-4*1000000

Pr4 = x/14.696

Pr5 = x*1.01325/101.325*1.45e-4*1000

Pr6 = x*760/1.4504e-4*1000*101.325

Pr7 = x*1.03323/14.696

Pr8 = x*1.4504e-4*1000

Pr9 = x*0.020886/1.4504e-4*144

Pr10= x*0.020886/1.4504e-4

Pr11 = x*29.92/14.696

fprintf('El valor de psia a N/m²: %f \n',P1);

fprintf('El valor de psia a Pa: %f \n',P2);

fprintf('El valor de psia a MPa: %f \n',P3);

fprintf('El valor de psia a atm: %f \n',P4);

fprintf('El valor de psia a bars: %f \n',P5);

fprintf('El valor de psia a mm Hg: %f \n',P6);

fprintf('El valor de psia a kgf/cm²: %f \n',P7);

fprintf('El valor de psia a kPa: %f \n',P8);

fprintf('El valor de psia a psi: %f \n',P9);

fprintf('El valor de psia a lbf/ft²: %f \n',P10);

fprintf('El valor de psia a in Hg: %f \n',P11);

case 10

x = input('Escribe la cantidad de psi: ');

Pr1 = x*6.894757*1000

Pr2 = x*6.894757*1000

Pr3 = x*6.894757/1000

Pr4 = x*6.894757/101.325

Pr5 = x*6.894757*1.01325/101.325

Pr6 = x*6.894757/0.1333

Pr7 = x*6.894757*1.03323/101.325

Pr8 = x*144*1.4504e-4/0.020886

Pr9 = x*6.894757
Pr10= x*144

Pr11 = x*6.894757/3.387

fprintf('El valor de psi a N/m²: %f \n',P1);

fprintf('El valor de psi a Pa: %f \n',P2);

fprintf('El valor de psi a MPa: %f \n',P3);

fprintf('El valor de psi a atm: %f \n',P4);

fprintf('El valor de psi a bars: %f \n',P5);

fprintf('El valor de psi a mm Hg: %f \n',P6);

fprintf('El valor de psi a kgf/cm²: %f \n',P7);

fprintf('El valor de psi a psia: %f \n',P8);

fprintf('El valor de psi a kPa: %f \n',P9);

fprintf('El valor de psi a lbf/ft²: %f \n',P10);

fprintf('El valor de psi a in Hg: %f \n',P11);

case 11

x = input('Escribe la cantidad de lbf/ft²: ');

Pr1 = x*6.894757*1000/144

Pr2 = 1000*x*6.894757/144

Pr3 = x*6.894757/144*1000

Pr4 = x*6.894757/144*101.325

Pr5 = x*6.894757*1.01325/144*101.325

Pr6 = x*6.894757/144*0.1333

Pr7 = x*6.894757*1.03323/144*101.325

Pr8 = x*1.4504e-4/0.020886

Pr9 = x/144

Pr10= x*6.894757/144

Pr11 = x*6.894757/144*3.387

fprintf('El valor de lbf/ft² a N/m²: %f \n',P1);

fprintf('El valor de lbf/ft² a Pa: %f \n',P2);

fprintf('El valor de lbf/ft² a MPa: %f \n',P3);

fprintf('El valor de lbf/ft² a atm: %f \n',P4);

fprintf('El valor de lbf/ft² a bars: %f \n',P5);

fprintf('El valor de lbf/ft² a mm Hg: %f \n',P6);

 fprintf('El valor de lbf/ft² a kgf/cm²: %f \n',P7);

fprintf('El valor de lbf/ft² a psia: %f \n',P8);

fprintf('El valor de lbf/ft² a psi: %f \n',P9);

fprintf('El valor de lbf/ft² a KPa: %f \n',P10);

fprintf('El valor de lbf/ft² a in Hg: %f \n',P11);

case 12

x = input('Escribe la cantidad de in Hg: ');

Pr1 = x*3.387*1000

Pr2 = x*3.387*1000

Pr3 = x*3.387/1000

Pr4 = x*3.387/101.325

Pr5 = x*3.387*1.01325/101.325

Pr6 = x*3.387/0.1333

Pr7 = x*3.387*1.03323/101.325

Pr8 = x*14.696/29.92

Pr9 = x*3.387/6.894757

Pr10= x*3.387*144/6.894757

Pr11 = x*3.387

fprintf('El valor de in Hg a N/m²: %f \n',P1);

fprintf('El valor de in Hg a Pa: %f \n',P2);

fprintf('El valor de in Hg a MPa: %f \n',P3);

fprintf('El valor de in Hg a atm: %f \n',P4);

fprintf('El valor de in Hg a bars: %f \n',P5);

fprintf('El valor de in Hg a mm Hg: %f \n',P6);

fprintf('El valor de in Hg a kgf/cm²: %f \n',P7);

fprintf('El valor de in Hg a psia: %f \n',P8);

fprintf('El valor de in Hg a psi: %f \n',P9);

fprintf('El valor de in Hg a lbf/ft²: %f \n',P10);

fprintf('El valor de in Hg a kPa: %f \n',P11);

end
case 12 %Calor esp
ce = menu('Seleccione la unidad con la que usted
cuenta:','kJ/kg*°C','kJ/kg*K','J/g*°C','Btu/lbm*°F','Btu/lbmol*R');
switch (ce)
case 1
x = input('Escribe la cantidad de kJ/kg*°C: ');
Ce1 = x;
Ce2 = x;
Ce3 = x*0.23885;
Ce4 = x*0.23885;
fprintf('El valor de kJ/kg*°C a kJ/kg*K: %f \n',Ce1);
fprintf('El valor de kJ/kg*°C a J/g*°C: %f \n',Ce2);
fprintf('El valor de kJ/kg*°C a Btu/lbm*°F: %f \n',Ce3);
fprintf('El valor de kJ/kg*°C a Btu/lbmol*R: %f \n',Ce4);

case 2
x = input('Escribe la cantidad de kJ/kg*K: ');
Ce1 = x;
Ce2 = x;
Ce3 = x*0.23885;
Ce4 = x*0.23885;
fprintf('El valor de kJ/kg*K a kJ/kg*°C: %f \n',Ce1);
fprintf('El valor de kJ/kg*K a J/g*°C: %f \n',Ce2);
fprintf('El valor de kJ/kg*K a Btu/lbm*°F: %f \n',Ce3);
fprintf('El valor de kJ/kg*K a Btu/lbmol*R: %f \n',Ce4);

case 3
x = input('Escribe la cantidad de J/g*°C: ');
Ce1 = x
Ce2 = x
Ce3 = x*0.23885
Ce4 = x*0.23885
fprintf('El valor de J/g*°C a kJ/kg*K: %f \n',Ce1);
fprintf('El valor de J/g*°C a kJ/kg*°C: %f \n',Ce2);
fprintf('El valor de J/g*°C a Btu/lbm*°F: %f \n',Ce3);
fprintf('El valor de J/g*°C a Btu/lbmol*R: %f \n',Ce4);

case 4
x = input('Escribe la cantidad de Btu/lbm*°F: ');
Ce1 = x/0.23885;
Ce2 = x/0.23885;
Ce3 = x/0.23885;
Ce4 = x;
fprintf('El valor de Btu/lbm*°F a kJ/kg*K: %f \n',Ce1);
fprintf('El valor de Btu/lbm*°F a J/g*°C: %f \n',Ce2);
fprintf('El valor de Btu/lbm*°F a kJ/kg*°C: %f \n',Ce3);
 fprintf('El valor de Btu/lbm*°F a Btu/lbmol*R: %f \n',Ce4);

case 5
x = input('Escribe la cantidad de Btu/lbmol*R: ');
Ce1 = x/0.23885;
Ce2 = x/0.23885;
Ce3 = x/0.23885;
Ce4 = x;
fprintf('El valor de Btu/lbmol*R a kJ/kg*K: %f \n',Ce1);
fprintf('El valor de Btu/lbmol*R a J/g*°C: %f \n',Ce2);
fprintf('El valor de Btu/lbmol*R a Btu/lbm*°F: %f \n',Ce3);
fprintf('El valor de Btu/lbmol*R a kJ/kg*°C: %f \n',Ce4);

end

case 13 %Volumen esp

case 13
user_choice_13 = menu('Seleccione la unidad con la que usted cuenta:','m^3/kg','L/kg','cm^3/g','ft^3/lbm');
switch (user_choice_13)
case 1
x = input('Escribe la cantidad de m^3/kg: ');
ve1 = x*1000;
ve2 = x*1000;
ve3 = x*16.02;
fprintf('El valor de m^3/kg a L/kg: %f \n',ve1);
fprintf('El valor de m^3/kg a cm^3/g: %f \n',ve2);
fprintf('El valor de m^3/kg a ft^3/lbm: %f \n',ve3);

case 2
x = input('Escribe la cantidad de L/kg: ');
ve1 = x/1000;
ve2 = x;
ve3 = x/1000*16.02;
fprintf('El valor de L/kg a m^3/kg: %f \n',ve1);
fprintf('El valor de L/kg a cm^3/g: %f \n',ve2);
fprintf('El valor de L/kg a ft^3/lbm: %f \n',ve3);

case 3
x = input('Escribe la cantidad de cm^3/g: ');
ve1 = x;
ve2 = x/1000;
ve3 = x/1000*16.02;
fprintf('El valor de cm^3/g a L/kg: %f \n',ve1);
fprintf('El valor de cm^3/g a m^3/kg: %f \n',ve2);
fprintf('El valor de cm^3/g a ft^3/lbm: %f \n',ve3);

case 4
x = input('Escribe la cantidad de ft^3/lbm: ');
ve1 = x*0.062428*1000;
ve2 = x*0.062428;
ve3 = x*0.062428;
fprintf('El valor de ft^3/lbm a L/kg: %f \n',ve1);
fprintf('El valor de ft^3/lbm a cm^3/g: %f \n',ve2);
fprintf('El valor de ft^3/lbm a m^3/kg: %f \n',ve3);

end
 case 14 %Temperatura
temp = menu('Seleccione la unidad con la que usted cuenta:','°C','°F','K','R');
switch (temp)
case 1
x = input('Escribe la cantidad de °C: ');
t1 = x*1.8+32;
t2 = x+273.15;
t3 = x*1.8+32+459.67;
fprintf('El valor de °C a °F: %f \n',t1);
fprintf('El valor de °C a K: %f \n',t2);
fprintf('El valor de °C a R: %f \n',t3);
case 2
x = input('Escribe la cantidad de °F: ');
t1 = (x-32)/1.8;
t2 = (x-32)/1.8+273.15;
t3 = x+459.67;
fprintf('El valor de °F a °C: %f \n',t1);
fprintf('El valor de °F a K: %f \n',t2);
fprintf('El valor de °F a R: %f \n',t3);

case 3
x = input('Escribe la cantidad de K: ');
t1 = (x-273.15)*1.8+32;
t2 = x-273.15;
t3 = x*1.8;
fprintf('El valor de K a °F: %f \n',t1);
fprintf('El valor de K a °C: %f \n',t2);
fprintf('El valor de K a R: %f \n',t3);

case 4
x = input('Escribe la cantidad de R: ');
t1 = x-459.67;
t2 = (x-32-459.67)/1.8+273.15;
t3 = (x-32-459.67)/1.8;
fprintf('El valor de R a °F: %f \n',t1);
fprintf('El valor de R a K: %f \n',t2);
fprintf('El valor de R a °C: %f \n',t3);
end
case 15 %Conductividad termica
ct = menu('Seleccione la unidad con la que usted
cuenta:','W/m*°C','W/m*K','Btu/h*ft*°F');
switch (ct)
case 1
x = input('Escribe la cantidad de W/m*°C: ');
ct1 = x;
ct2 = x*0.57782;
fprintf('El valor de W/m*°C a W/m*K: %f \n',ct1);
 fprintf('El valor de W/m*°C a Btu/h*ft*°F: %f \n',ct2);
case 2
x = input('Escribe la cantidad de W/m*K: ');
ct1 = x;
ct2 = x*0.57782;
fprintf('El valor de W/m*K a W/m*°C: %f \n',ct1);
fprintf('El valor de W/m*K a Btu/h*ft*°F: %f \n',ct2);

case 3
x = input('Escribe la cantidad de BTU/h*ft*°F: ');
ct1 = x/0.57782;
ct2 = x/0.57782;
fprintf('El valor de BTU/h*ft*°F a W/m*K: %f \n',ct1);
fprintf('El valor de Btu/h*ft*°F a W/m*°C: %f \n',ct2);

end

case 16 %Velocidad
vel = menu('Seleccione la unidad con la que usted cuenta:','m/s','km/h','ft/s','mi/h');
switch (vel)
case 1
x = input('Escribe la cantidad de m/s: ');
vel1 = x*3.6;
vel2 = x*3.2808;
vel3 = x*2.237;
fprintf('El valor de m/s a km/h: %f \n',vel1);
fprintf('El valor de m/s a ft/s: %f \n',vel2);
fprintf('El valor de m/s a mi/h: %f \n',vel3);
case 2
x = input('Escribe la cantidad de km/h: ');
vel1 = x/3.6;
vel2 = x/3.6*3.2808;
vel3 = x/3.6*2.237;
fprintf('El valor de km/h a m/s: %f \n',vel1);
fprintf('El valor de km/h a ft/s: %f \n',vel2);
fprintf('El valor de km/h a mi/h: %f \n',vel3);

case 3
x = input('Escribe la cantidad de ft/s: ');
vel1 = x/3.2808*3.6;
vel2 = x/3.2808;
vel3 = x*2.237/3.2808;
fprintf('El valor de ft/s a km/h: %f \n',vel1);
fprintf('El valor de ft/s a m/s: %f \n',vel2);
fprintf('El valor de ft/s a mi/h: %f \n',vel3);

case 4
x = input('Escribe la cantidad de mi/h: ');
 vel1 = x*1.6093;
vel2 = x*1.46667;
vel3 = x/2.237;
fprintf('El valor de mi/h a km/h: %f \n',vel1);
fprintf('El valor de mi/h a ft/s: %f \n',vel2);
fprintf('El valor de mi/h a m/s: %f \n',vel3);
end

case 17 %Volumen
vol = menu('Seleccione la unidad con la que usted
cuenta:','m^3','L','cm^3','in^3','ft^3','gal','fl onza');
switch (vol)
case 1
x = input('Escribe la cantidad de m^3: ');
vol1 = x*1000;
vol2 = x*1000000;
vol3 = x*61024;
vol4 = x*35.315;
vol5 = x*264.17;
vol6 = x*264.17*128;
fprintf('El valor de m^3 a L: %f \n',vol1);
fprintf('El valor de m^3 a cm^3: %f \n',vol2);
fprintf('El valor de m^3 a in^3: %f \n',vol3);
fprintf('El valor de m^3 a ft^3: %f \n',vol4);
fprintf('El valor de m^3 a gal: %f \n',vol5);
fprintf('El valor de m^3 a fl onza: %f \n',vol6);

case 2
x = input('Escribe la cantidad de L: ');
vol1 = x/1000;
vol2 = x*1000;
vol3 = x/1000*61024;
vol4 = x/1000*35.315;
vol5 = x/1000*264.17;
vol6 = x/1000*264.17*128;
fprintf('El valor de L a m^3: %f \n',vol1);
fprintf('El valor de L a cm^3: %f \n',vol2);
fprintf('El valor de L a in^3: %f \n',vol3);
fprintf('El valor de L a ft^3: %f \n',vol4);
fprintf('El valor de L a gal: %f \n',vol5);
fprintf('El valor de L a fl onza: %f \n',vol6);

case 3
 x = input('Escribe la cantidad de cm^3: ');
vol1 = x/1000;
vol2 = x/1000000;
vol3 = x/1000000*61024;
vol4 = x/1000000*35.315;
vol5 = x/1000000*264.17;
vol6 = x*128/29.5735;
fprintf('El valor de cm^3 a L: %f \n',vol1);
fprintf('El valor de cm^3 a m^3: %f \n',vol2);
fprintf('El valor de cm^3 a in^3: %f \n',vol3);
fprintf('El valor de cm^3 a ft^3: %f \n',vol4);
fprintf('El valor de cm^3 a gal: %f \n',vol5);
fprintf('El valor de cm^3 a fl onza: %f \n',vol6);

case 4
x = input('Escribe la cantidad de in^3: ');
vol1 = x*3.7854/231;
vol2 = x/61024*1000000;
vol3 = x/61024;
vol4 = x/61024*35.315;
vol5 = x/61024*264.17;
vol6 = x/61024*264.17*128;
fprintf('El valor de in^3 a L: %f \n',vol1);
fprintf('El valor de in^3 a cm^3: %f \n',vol2);
fprintf('El valor de in^3 a m^3: %f \n',vol3);
fprintf('El valor de in^3 a ft^3: %f \n',vol4);
fprintf('El valor de in^3 a gal: %f \n',vol5);
fprintf('El valor de in^3 a fl onza: %f \n',vol6);

case 5
x = input('Escribe la cantidad de ft^3: ');
vol1 = x/35.315*1000;
vol2 = x/35.315*1000000;
vol3 = x/35.315*61024;
vol4 = x/35.315;
vol5 = x/35.315*264.17;
vol6 = x/35.315*264.17*128;
fprintf('El valor de ft^3 a L: %f \n',vol1);
fprintf('El valor de ft^3 a cm^3: %f \n',vol2);
fprintf('El valor de ft^3 a in^3: %f \n',vol3);
fprintf('El valor de ft^3 a m^3: %f \n',vol4);
fprintf('El valor de ft^3 a gal: %f \n',vol5);
fprintf('El valor de ft^3 a fl onza: %f \n',vol6);

case 6
x = input('Escribe la cantidad de gal: ');
vol1 = x/264.17*1000;
 vol2 = x/264.17*1000000;
vol3 = x/264.17*61024;
vol4 = x/264.17*35.315;
vol5 = x/264.17;
vol6 = x/264.17*264.17*128;
fprintf('El valor de gal a L: %f \n',vol1);
fprintf('El valor de gal a cm^3: %f \n',vol2);
fprintf('El valor de gal a in^3: %f \n',vol3);
fprintf('El valor de gal a ft^3: %f \n',vol4);
fprintf('El valor de gal a m^3: %f \n',vol5);
fprintf('El valor de gal a fl onza: %f \n',vol6);

case 7
x = input('Escribe la cantidad de fl onza: ');
vol1 = x/33814*1000;
vol2 = x/33814*1000000;
vol3 = x/33814*61024;
vol4 = x/33814*35.315;
vol5 = x/33814*264.17;
vol6 = x/33814;
fprintf('El valor de fl onza a L: %f \n',vol1);
fprintf('El valor de fl onza a cm^3: %f \n',vol2);
fprintf('El valor de fl onza a in^3: %f \n',vol3);
fprintf('El valor de fl onza a ft^3: %f \n',vol4);
fprintf('El valor de fl onza a gal: %f \n',vol5);
fprintf('El valor de fl onza a m^3: %f \n',vol6);

end

case 18 %Tasa de flujo volumetrico

tfv = menu('Seleccione la unidad con la que usted
cuenta:','m^3/s','L/min','cm^3/s','gal/min','ft^3/s','ft^3/min');
switch (tfv)
case 1
x = input('Escribe la cantidad de m^3/s: ');
tvf1 = x*60000;
tvf2 = x*1000000;
tvf3 = x*15850;
tvf4 = x*35.315;
tvf5 = x*2118.9;
fprintf('El valor de m^3/s a L/min: %f \n',tvf1);
fprintf('El valor de m^3/s a cm^3/s: %f \n',tvf2);
fprintf('El valor de m^3/s a gal/min: %f \n',tvf3);
fprintf('El valor de m^3/s a ft^3/s: %f \n',tvf4);
 fprintf('El valor de m^3/s a ft^3/min: %f \n',tvf5);

case 2
x = input('Escribe la cantidad de L/min: ');
tvf1 = x/60000;
tvf2 = x/60000*1000000;
tvf3 = x/60000*15850;
tvf4 = x/60000*35.315;
tvf5 = x/60000*2118.9;
fprintf('El valor de L/min a m^3/s: %f \n',tvf1);
fprintf('El valor de L/min a cm^3/s: %f \n',tvf2);
fprintf('El valor de L/min a gal/min: %f \n',tvf3);
fprintf('El valor de L/min a ft^3/s: %f \n',tvf4);
fprintf('El valor de L/min a ft^3/min: %f \n',tvf5);

case 3
x = input('Escribe la cantidad de cm^3/s: ');
tvf1 = x/1000000*60000;
tvf2 = x/1000000;
tvf3 = x/1000000*15850;
tvf4 = x/1000000*35.315;
tvf5 = x/1000000*2118.9;
fprintf('El valor de cm^3/s a L/min: %f \n',tvf1);
fprintf('El valor de cm^3/s a m^3/s: %f \n',tvf2);
fprintf('El valor de cm^3/s a gal/min: %f \n',tvf3);
fprintf('El valor de cm^3/s a ft^3/s: %f \n',tvf4);
fprintf('El valor de cm^3/s a ft^3/min: %f \n',tvf5);

case 4
x = input('Escribe la cantidad de gal/min: ');
tvf1 = x/15850*60000;
tvf2 = x/15850*1000000;
tvf3 = x/15850;
tvf4 = x/15850*35.315;
tvf5 = x/15850*2118.9;
fprintf('El valor de gal/min a L/min: %f \n',tvf1);
fprintf('El valor de gal/min a cm^3/s: %f \n',tvf2);
fprintf('El valor de gal/min a m^3/s: %f \n',tvf3);
fprintf('El valor de gal/min a ft^3/s: %f \n',tvf4);
fprintf('El valor de gal/min a ft^3/min: %f \n',tvf5);

case 5
x = input('Escribe la cantidad de ft^3/s: ');
tvf1 = x/35.315*60000;
tvf2 = x/35.315*1000000;
tvf3 = x/35.315*15850;
tvf4 = x/35.315;
tvf5 = x/35.315*2118.9;
 fprintf('El valor de ft^3/s a L/min: %f \n',tvf1);
fprintf('El valor de ft^3/s a cm^3/s: %f \n',tvf2);
fprintf('El valor de ft^3/s a gal/min: %f \n',tvf3);
fprintf('El valor de ft^3/s a m^3/s: %f \n',tvf4);
fprintf('El valor de ft^3/s a ft^3/min: %f \n',tvf5);

case 6
x = input('Escribe la cantidad de ft^3/min: ');
tvf1 = x/2118.9*60000;
tvf2 = x/2118.9*1000000;
tvf3 = x/2118.9*15850;
tvf4 = x/2118.9*35.315;
tvf5 = x/2118.9;
fprintf('El valor de ft^3/min a L/min: %f \n',tvf1);
fprintf('El valor de ft^3/min a cm^3/s: %f \n',tvf2);
fprintf('El valor de ft^3/min a gal/min: %f \n',tvf3);
fprintf('El valor de ft^3/min a ft^3/s: %f \n',tvf4);
fprintf('El valor de ft^3/min a m^3/s: %f \n',tvf5);

end

end