1 files changed, 16 insertions, 0 deletions
diff --git a/2417/CH6/EX6.23/Ex6_23.sce b/2417/CH6/EX6.23/Ex6_23.sce
new file mode 100755
index 000000000..1761aa117
--- /dev/null
+++ b/2417/CH6/EX6.23/Ex6_23.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+printf("\t\t\tProblem Number 6.23\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.23 (page no. 265) 
+// Solution
+
+//data
+deltaS=0.4386; //change in entropy //Unit:kJ/K
+T2=273+425; //Celsius temperature converted to kelvin //initial temperature
+cv=0.8216; //specific heat at constant volume //kJ/kg*K
+m=1.5; //mass //kg
+//Now,
+//deltas=m*cv*log(T2/T1); 
+T1=T2/(exp(deltaS/(m*cv))) //initial temperature //unit:K
+printf("The initial temperature of the process is %f K or %f C\n",T1,T1-273)