1 files changed, 16 insertions, 0 deletions
diff --git a/2762/CH3/EX3.1.1/3_1_1.sce b/2762/CH3/EX3.1.1/3_1_1.sce
new file mode 100755
index 000000000..80d14caec
--- /dev/null
+++ b/2762/CH3/EX3.1.1/3_1_1.sce
@@ -0,0 +1,16 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 3
+//Example 3.1-1
+//Principles of Momentum Transfer and Applications
+//given data
+rho=1.137;
+mu=1.9e-5;
+Dp=0.042;
+v0=23;
+Re=(Dp*v0*rho)/mu
+//from the mentioned graph,
+Cd=0.47;//drag coefficient as seen from the graph
+Ap=(%pi*Dp*Dp)/4;//surface area of sphere
+Fd=Cd*(v0*v0/2)*rho*Ap;//drag force
+mprintf("drag coefficient= %f",Cd)
+mprintf("drag force= %f N",Fd)