3 files changed, 34 insertions, 0 deletions
diff --git a/3785/CH1/EX1.1/Ex1_1.sce b/3785/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..cadc32351
--- /dev/null
+++ b/3785/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,10 @@
+// Example 1_1
+clc;funcprot(0);
+// Given data
+h_avg=3800;// The ocean's average depth in m
+deltaT=1;// The increase in ocean temperature in K
+alpha=1.6*10^-4;// The average thermal expansion coefficient in K^-1
+
+// Calculation
+deltah=alpha*deltaT*h_avg;// The rise in sea level in m
+printf('\nThe rise in sea level is %0.3f m',deltah);
diff --git a/3785/CH1/EX1.2/Ex1_2.sce b/3785/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..a38ac94ba
--- /dev/null
+++ b/3785/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,13 @@
+// Example 1_2
+clc;funcprot(0);
+// Given data
+T=98.6;// Temperature in °F
+p=1.0133*10^5;// Pressure in N/m^2
+M=32;// The molecular weight of oxygen 
+R=8.3143*10^3;// Universal gas constant in J/kg.K
+O=20/100;// The maximum oxygen concentration in oxygenated blood in %
+
+// Calculation
+rho=(p*M)/(R*(273.15+((5/9)*(T-32))));// Density in kg/m^3
+rho_O2=O*rho;// The partial density of blood oxygen in kg/m^3
+printf("\nThe partial density of oxygen in blood at this concentration is %0.4f kg/m^3",rho_O2);
diff --git a/3785/CH1/EX1.3/Ex1_3.sce b/3785/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..4d544e7ea
--- /dev/null
+++ b/3785/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,11 @@
+// Example 1_3
+clc;funcprot(0);
+// Given data
+// From table 1.6
+// Conversion between EES and SI units
+ft=3.048*10^-1;// Conversion of EES uint of foot to SI unit value(m)
+acre=4.048*10^3;// Conversion of EES uint of acre to SI unit value(m^2)
+
+// Calculation
+acreft=1*acre*ft;// m^3
+printf("\n%0.0f cubic meters of water are there in one acre-foot",acreft);