1 files changed, 19 insertions, 0 deletions
diff --git a/2975/CH27/EX27.6w/Ex27_6w.sce b/2975/CH27/EX27.6w/Ex27_6w.sce
new file mode 100644
index 000000000..f5b034e89
--- /dev/null
+++ b/2975/CH27/EX27.6w/Ex27_6w.sce
@@ -0,0 +1,19 @@
+//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 27_6w
+
+clc;clear;
+//Given Data
+
+p1=150*10^3;   //Value of initial pressure (Unit: Pascal)
+v1=1600*10^-6;   //Value of the volume before being compressed (Unit: m^3)
+v2=400*10^-6;   //Value of the volume after being compressed (Unit: m^3)
+gamma1=1.5;     //Value of ratio Cp/Cv i.e gamma (Unit: unitless)
+
+//Calculation
+
+p2=p1*(v1/v2)^gamma1;   //Calculation of new pressure of the gas (Unit: Pascal) 
+work_done=(p1*v1-p2*v2)/(gamma1-1); //Calculation of the work done by the gas (Unit:Joule)
+
+disp(p2,"The final pressure of the sample gas in adiabatic process is (Unit: Pascal)");
+disp(work_done,"Work done by the gas in an adiabatic process is (Unit: Joule)");