diff options
Diffstat (limited to '2144/CH3/EX3.1/ex3_1.sce')
| -rwxr-xr-x | 2144/CH3/EX3.1/ex3_1.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/2144/CH3/EX3.1/ex3_1.sce b/2144/CH3/EX3.1/ex3_1.sce new file mode 100755 index 000000000..5c6db5d52 --- /dev/null +++ b/2144/CH3/EX3.1/ex3_1.sce @@ -0,0 +1,23 @@ +// Exa 3.1
+clc;
+clear;
+close;
+// Given data
+P = 2.15 * 10^5;// in N/m^2
+T = 20;// in degree C
+T = T + 273;// in K
+V = 0.20;// in m^3
+R = 0.2927;// in kJ/kg-K
+R = R * 10^3;// in J/kg-K
+m = (P*V)/(T*R);//in kg
+Q = 20*10^3;// in J
+C_v = 0.706*10^3;// in J/kg-K
+theta = Q/(m*C_v);// in degree C
+T = T - 273;// in degree C
+T1 = theta + T;// new temp. in degree C
+disp(T1,"New temperature in degree C is");
+T1 = T1 + 273;// in K
+T = T + 273;// in K
+P2 = P * (T1/T);// in N/m^2
+P2 = P2 * 10^-3;// in kN/m^2
+disp(P2,"New pressure in kN/m^2 is");
|