1 files changed, 14 insertions, 0 deletions
diff --git a/1019/CH5/EX5.21/Example_5_21.sce b/1019/CH5/EX5.21/Example_5_21.sce
new file mode 100644
index 000000000..80ce60377
--- /dev/null
+++ b/1019/CH5/EX5.21/Example_5_21.sce
@@ -0,0 +1,14 @@
+//Example 5.21
+clear;
+clc;
+
+//Given
+delHtrans=13.4;//latent heat of fusion in J g^-1
+delVm=0.0126;//change in volume due to transition in cm^3 g^-1
+T=368.5;//temperature in K
+
+//To determine the increase in the transition point between 2 forms of sulphur for increase in atmospheric pressure
+a=(delHtrans*10)/(T*delVm*1.01325);//a=(delP/delT)
+b=a^(-1);//b=(delT/delP)
+mprintf('The transition point between 2 forms of sulphur should be increased by %f K atm^-1',b);
+//end
+\ No newline at end of file