1 files changed, 18 insertions, 0 deletions
diff --git a/2417/CH6/EX6.31/Ex6_31.sce b/2417/CH6/EX6.31/Ex6_31.sce
new file mode 100755
index 000000000..3409ecb82
--- /dev/null
+++ b/2417/CH6/EX6.31/Ex6_31.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+printf("\t\t\tProblem Number 6.31\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.31 (page no. 275) 
+// Solution
+
+//data given
+T1=800+273; //Celsius temperature converted to Kelvin //initial temperature
+T2=500+273; //Celsius temperature converted to Kelvin //final temperature
+p2=1; //atm //absolute final pressure
+p1=5; //atm //absolute initial pressure
+//A gas expands isentropically
+//From the equation,
+//T2/T1=((p2/p1)^((k-1)/k));
+//rearranging,
+k=inv(1-((log(T2/T1)/log(p2/p1)))); //k=cp/cv //Ratio of specific heats
+printf("Ratio of specific heats (k) is %f\n",k);