1 files changed, 23 insertions, 0 deletions
diff --git a/3814/CH2/EX2.5/Ex2_25.sce b/3814/CH2/EX2.5/Ex2_25.sce
new file mode 100644
index 000000000..c75b8d5f3
--- /dev/null
+++ b/3814/CH2/EX2.5/Ex2_25.sce
@@ -0,0 +1,23 @@
+//Example Non 2.5 Determine the pressure at the end of the artery when the head is//
+clc
+Bh=1.8   //in m
+Ah=2.4   // in m
+rhoHg=13.6
+gHg=1000
+Hhg=0.212
+rhoBlood=1
+gBlood=1000
+gama=1000*9.8
+z1=0
+z2=2.4
+
+//Calculation
+hBlood=(rhoHg*gHg*Hhg)/(rhoBlood*gBlood)
+P2=(hBlood+(z1-z2))*gama
+//when the head is 1.8m below the heart
+z3=0
+z4=-1.8
+P3=(hBlood+(z3-z4))*gama
+printf("hBlood=%f m\n",hBlood);
+printf("P2=%f pa\n",P2);
+printf("P3=%f pa\n",P3);