1 files changed, 12 insertions, 0 deletions
diff --git a/629/CH2/EX2.4/example2_4.sce b/629/CH2/EX2.4/example2_4.sce
new file mode 100644
index 000000000..95a035738
--- /dev/null
+++ b/629/CH2/EX2.4/example2_4.sce
@@ -0,0 +1,12 @@
+clear
+clc
+//Example 2.4 CAPILLARY RISE IN A TUBE
+d=1.6*10^-3; //[m]
+A=%pi*d^2/4; //area[m^2]
+Gamma=9790; //[N/m^3]
+sigma=0.073; //[N/m]
+//Force balance, Ft-W=0, W=Gamma*Δh*A, theta=0°(assume)
+theta=0;
+Ft=sigma*%pi*d*cosd(theta) //surface tension force [N]
+delh=Ft*10^3/(Gamma*A) //Δh[mm]
+printf("\n The height above the reservoir level, the water rises in a glass tube = %.1f mm.\n",delh)
+\ No newline at end of file