3 files changed, 67 insertions, 0 deletions
diff --git a/2504/CH13/EX13.1/13_1.sce b/2504/CH13/EX13.1/13_1.sce
new file mode 100755
index 000000000..d738a4125
--- /dev/null
+++ b/2504/CH13/EX13.1/13_1.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+clear
+nop= 0.88
+nom= 0.88
+Pm= 75 //hp
+p= 3000 //lb/in^2
+d= 54.5 //lbm/ft^3
+u= 1.05*10^-4
+d1= 0.5 //in
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+nt= (7/11)*nop*nom
+pp= Pm/nt
+Q= nop*pp*550/(p*144)
+Re= 4*d*Q/(%pi*u*(d1/12)*g)
+//RESULTS
+printf ('n trans = %.3f ',nt)
+printf ('\n Input power = %.f hp',pp)
+printf ('\n Flow rate = %.3f ft^3/sec',Q)
+printf ('\n Reynolds Number = %.1e ',Re)
diff --git a/2504/CH13/EX13.2/13_2.sce b/2504/CH13/EX13.2/13_2.sce
new file mode 100755
index 000000000..34b0ef017
--- /dev/null
+++ b/2504/CH13/EX13.2/13_2.sce
@@ -0,0 +1,27 @@
+clc
+//initialisation of variables
+clear
+lc= 0.25
+a= 90 //degrees
+p= 3000 //lb/in^2
+g= 32.2 //ft/sec^2
+d1= 0.5 //in
+Q= 0.171 //ft^3/sec
+d= 54.5 //lbm/ft^3
+n1= 2 
+n2= 6
+lc1= 0.9
+nop= 0.88
+nom= 0.88
+//CALCULATIONS
+P1= 4*p*144/11
+P2= 8*d*Q^2*(n1*lc+n2*lc1)/(%pi^2*(d1/12)^4*g)
+pt= P1+P2
+dpm= (p*144-pt)
+ntrans= nop*nom*dpm/(p*144)
+//RESULTS
+printf ('Frictional pressure drop = %.2e lbf/ft^2',P1) 
+printf ('\n Extra Frictional pressure drop = %.2e lbf/ft^2',P2) 
+printf ('\n Total pressure drop = %.2e lbf/ft^2',pt)
+printf ('\n Motor pressure drop = %.2e lbf/ft^2',dpm)
+printf ('\n Overall transmission coefficiency = %.3f',ntrans)
diff --git a/2504/CH13/EX13.3/13_3.sce b/2504/CH13/EX13.3/13_3.sce
new file mode 100755
index 000000000..be3ea7184
--- /dev/null
+++ b/2504/CH13/EX13.3/13_3.sce
@@ -0,0 +1,19 @@
+clc
+//initialisation of variables
+clear
+bip= 135 //degrees
+bop= 150 //degrees
+bot= 140 //degrees
+bos= 137 //degrees
+r= 1.8
+r1= 1.8
+r2= 0.7
+r3= 0.95
+//CALCULATIONS
+R= (1+(cotd(bip)/cotd(bos)))*r^2-r1*(cotd(bop)/cotd(bos))
+R1= r2*r3^2*(1+(cotd(bip)/cotd(bos)))-(cotd(bot)/cotd(bos))
+R2= (R1-R)/(R-1)
+//RESULTS
+printf ('R1 = %.2f',R) 
+printf ('\n R2 = %.2f',R1) 
+printf ('\n Torque ratio = %.2f',R2)