6 files changed, 105 insertions, 0 deletions
diff --git a/2504/CH2/EX2.1/2_1.sce b/2504/CH2/EX2.1/2_1.sce
new file mode 100755
index 000000000..1b370f4ea
--- /dev/null
+++ b/2504/CH2/EX2.1/2_1.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+clear
+r= 4
+l1= 4 //units
+l2= 10 //units
+//CALCULATIONS
+sxy= (4/r)
+sxy1= l1^2
+sxy2= l2^2
+//RESULTS
+printf ('x^2+4*y^2 = %.f ',sxy)
+printf ('\n x^2+4*y^2 = %.f ',sxy1)
+printf ('\n x^2+4*y^2 = %.f ',sxy2)
diff --git a/2504/CH2/EX2.3/2_3.sce b/2504/CH2/EX2.3/2_3.sce
new file mode 100755
index 000000000..a8acf0281
--- /dev/null
+++ b/2504/CH2/EX2.3/2_3.sce
@@ -0,0 +1,28 @@
+clc
+//initialisation of variables
+clear
+vo= 10 //ft/sec
+a= 0.5 //ft^-1
+b= 1 //ft
+x= -2 //ft
+y= 2 //ft
+b1= 2
+a1= 3/5 //ft
+//CALCULATIONS
+Vx= vo/(a*x^2+b)
+Vy= -2*a*b*vo*x*y/(a*x^2+b)^2
+V= sqrt(Vx^2+Vy^2)
+fx= -2*a*b^2*vo^2*x/(a*x^2+b)^3
+fy= 2*a*b^2*vo^2*y*(b-a*x^2)/(a*x^2+b)^4
+f= sqrt(fx^2+fy^2)
+r= b1^2/a1
+f1= f*r
+//RESULTS
+printf ('Vx = %.2f ft/sec',Vx)
+printf ('\n Vx = %.2f ft/sec',Vy)
+printf ('\n V = %.2f ft/sec',V)
+printf ('\n fx = %.2f ft/sec^2',fx)
+printf ('\n fy = %.2f ft/sec^2',fy)
+printf ('\n f = %.2f ft/sec^2',f)
+printf ('\n r = %.2f in the present case',r)
+printf ('\n f1 = %.2f ft/sec^2',f1)
diff --git a/2504/CH2/EX2.4/2_4.sce b/2504/CH2/EX2.4/2_4.sce
new file mode 100755
index 000000000..7e471cd19
--- /dev/null
+++ b/2504/CH2/EX2.4/2_4.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+clear
+r= 1/5
+b1= 2 //ft
+a1= 3/5 //ft
+//CALCULATIONS
+r= (a1*b1)^2*r
+//RESULTS
+printf ('ratio of resultant forces acting on coorresponding fluid elements = %.2f ',r)
diff --git a/2504/CH2/EX2.5/2_5.sce b/2504/CH2/EX2.5/2_5.sce
new file mode 100755
index 000000000..451fae2ac
--- /dev/null
+++ b/2504/CH2/EX2.5/2_5.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+clear
+vos= 70 //ft/sec
+as= 78 //ft
+am= 72 //ft
+ls1= 6 //ft
+lm= 2 //ft
+um= 386 //ft/sec
+us= 372 //ft/sec
+dm= 0.4
+//CALCULATIONS
+vom= vos*as*ls1*um/(am*lm*us)
+Ds= dm*(am/as)*(us/um)^2
+//RESULTS
+printf ('Air speed = %.f ft/sec',vom)
+printf ('\n Ds = %.3f lbf',Ds)
diff --git a/2504/CH2/EX2.6/2_6.sce b/2504/CH2/EX2.6/2_6.sce
new file mode 100755
index 000000000..56d92a38f
--- /dev/null
+++ b/2504/CH2/EX2.6/2_6.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+clear
+vom= 236 //ft/sec
+as= 0.072 //ft
+am= 62.4 //ft
+ls1= 2 //ft
+lm= 8 //ft
+um= 248 //ft/sec
+us= 3.86 //ft/sec
+r= 0.4/3.3
+//CALCULATIONS
+voh= vom*as*ls1*um/(am*lm*us)
+Ds= r*(as/am)*(um/us)^2*(ls1/lm)*(lm-ls1)
+//RESULTS
+printf ('Air speed = %.2f ft/sec',voh)
+printf ('\n Drag force = %.3f lbf',Ds)
diff --git a/2504/CH2/EX2.7/2_7.sce b/2504/CH2/EX2.7/2_7.sce
new file mode 100755
index 000000000..f53db92d5
--- /dev/null
+++ b/2504/CH2/EX2.7/2_7.sce
@@ -0,0 +1,19 @@
+clc
+//initialisation of variables
+clear
+To1= 540 //R
+po3= 12.6 //lbf/in^2
+l3= 3 //ft
+po1= 14.7 //lbf/in^2
+l1= 1 //ft
+vo1= 500 //ft/sec
+r= 0.83
+P1= 1 //lbf/in^2
+//CALCULATIONS
+To3= To1*(po3*l3/(po1*l1))^r
+Vo3= vo1*sqrt(To3/To1)
+P3= P1*po3*l3/(po1*l1)
+//RESULTS
+printf ('To3 = %.f R',To3)
+printf ('\n Vo3 = %.f ft/sec',Vo3)
+printf ('\n P3 = %.2f lbf/ft',P3)