1 files changed, 12 insertions, 0 deletions
diff --git a/1367/CH20/EX20.4/20_4.sce b/1367/CH20/EX20.4/20_4.sce
new file mode 100755
index 000000000..3a1c5349a
--- /dev/null
+++ b/1367/CH20/EX20.4/20_4.sce
@@ -0,0 +1,12 @@
+//Determine PBR ratio
+//Ex:20.4
+clc;
+clear;
+close;
+p_mg=1.74;//density of magnesium in gm/cm^3
+p_mgo=3.65;//density of magnesium oxide in gm/cm^3
+m_mg=24;//mol wt ogf mg
+m_mgo=40.3;//mol wt of mgo
+PBR=(m_mgo/p_mgo)/(m_mg/p_mg);
+disp(PBR,"PBR = ");
+printf("Since PBR < 1. So porous film will form which will be non protective");
+\ No newline at end of file