1 files changed, 14 insertions, 0 deletions
diff --git a/2126/CH8/EX8.1.39/8_1_39.sce b/2126/CH8/EX8.1.39/8_1_39.sce
new file mode 100755
index 000000000..5eaf14ead
--- /dev/null
+++ b/2126/CH8/EX8.1.39/8_1_39.sce
@@ -0,0 +1,14 @@
+clc
+clear
+
+//Input data
+v1=8 //Intial volume in litres
+P1=0.7 //Intial pressure in MPa
+v2=7.8 //Final volume in litres
+P2=2.7 //Final pressure in MPa
+
+//Calculation
+k=(P2-P1)/(log(v1/v2)) //Bulk modulus of elasticity of a liquid in MPa
+
+//Output
+printf('Bulk modulus of elasticity of a liquid is %3.3f MPa',k)