initial commit / add all books

11 files changed, 170 insertions, 0 deletions

diff --git a/680/CH4/EX4.01/4_01.sce b/680/CH4/EX4.01/4_01.sce
new file mode 100755
index 000000000..668a51aee
--- /dev/null
+++ b/680/CH4/EX4.01/4_01.sce
@@ -0,0 +1,16 @@
+//Problem 4.01:

+

+//initializing the variables:

+mdt = 0.15; // in kg/sec

+v = 420; // in m/sec

+

+//calculation:

+vxin = v

+vxout = 0

+vyin = 0

+vyout = v

+Fxgc = mdt*(vxout - vxin)

+Fygc = mdt*(vyout - vyin)

+

+printf("\n\nResult\n\n")

+printf("\n The x-direction supporting force is %.1f N and The y-direction supporting force is %.1f N",Fxgc,Fygc)
\ No newline at end of file
diff --git a/680/CH4/EX4.02/4_02.sce b/680/CH4/EX4.02/4_02.sce
new file mode 100755
index 000000000..7d8c664ea
--- /dev/null
+++ b/680/CH4/EX4.02/4_02.sce
@@ -0,0 +1,18 @@
+//Problem 4.02:

+

+//initializing the variables:

+mdt = 0.15; // in kg/sec

+v = 420; // in m/sec

+

+//calculation:

+vxin = v

+vxout = 0

+vyin = 0

+vyout = v

+Fxgc = mdt*(vxout - vxin)

+Fygc = mdt*(vyout - vyin)

+Fres = (Fxgc^2 + Fygc^2)^0.5

+theta = (atan(Fygc/Fxgc))*180/%pi + 180

+

+printf("\n\nResult\n\n")

+printf("\n resultant supporting force is %.1f N and direction is %.0f degree",Fres,theta)
\ No newline at end of file
diff --git a/680/CH4/EX4.03/4_03.sce b/680/CH4/EX4.03/4_03.sce
new file mode 100755
index 000000000..4ad40d089
--- /dev/null
+++ b/680/CH4/EX4.03/4_03.sce
@@ -0,0 +1,13 @@
+//Problem 4.03:

+

+//initializing the variables:

+rb = 10000; // in lb/h

+rair = 20000; // in lb/h

+rm = 2000; // in lb/h

+

+//calculation:

+mdtin = rb + rair + rm

+mdtout = mdtin

+

+printf("\n\nResult\n\n")

+printf("\n the product gases exit the incinerator at %.0f lb/h",mdtout)
\ No newline at end of file
diff --git a/680/CH4/EX4.04/4_04.sce b/680/CH4/EX4.04/4_04.sce
new file mode 100755
index 000000000..b892a5a56
--- /dev/null
+++ b/680/CH4/EX4.04/4_04.sce
@@ -0,0 +1,25 @@
+//Problem 4.04:

+

+//initializing the variables:

+r1 = 5000; // in scfm

+r2 = 3000; // in scfm

+T1 = 60; // in deg F

+T2 = 70; // in deg F

+Ti = 2000; // in F

+To = 180; // in F

+MWchcl = 112.5; 

+MWair = 29;

+

+//calculation:

+//convert scfm to acfm using Charle's law

+R1 = r1*(460 + T2)/(460 + T1)

+R2 = r2*(460 + T2)/(460 + T1)

+ndt1 = R1/387

+ndt2 = R2/387

+mdt1 = ndt1*MWchcl*60

+mdt2 = ndt2*MWair*60

+mdtin = mdt1 + mdt2

+mdtout = mdtin

+

+printf("\n\nResult\n\n")

+printf("\n products exit the cooler at %.0f lb/h",mdtout)
\ No newline at end of file
diff --git a/680/CH4/EX4.05/4_05.sce b/680/CH4/EX4.05/4_05.sce
new file mode 100755
index 000000000..2af33c734
--- /dev/null
+++ b/680/CH4/EX4.05/4_05.sce
@@ -0,0 +1,14 @@
+//Problem 4.05:

+

+//initializing the variables:

+e1 = 0.65; 

+e2 = 0.98;

+mdtin = 76; // in lb

+

+//calculation:

+mdtout1 = (1 - e1)*mdtin

+mdtout2 = (1 - e2)*mdtout1

+E = 1 - mdtout2/mdtin

+

+printf("\n\nResult\n\n")

+printf("\n overall fractional efficiency is %.3f",E)
\ No newline at end of file
diff --git a/680/CH4/EX4.06/4_06.sce b/680/CH4/EX4.06/4_06.sce
new file mode 100755
index 000000000..cf9c65813
--- /dev/null
+++ b/680/CH4/EX4.06/4_06.sce
@@ -0,0 +1,15 @@
+//Problem 4.06:

+

+//initializing the variables:

+e1 = 0.65; 

+e2 = 0.98;

+mdtin = 76; // in lb

+

+//calculation:

+mdtout1 = (1 - e1)*mdtin

+mdtout2 = (1 - e2)*mdtout1

+E = 1 - mdtout2/mdtin

+perE = E*100

+

+printf("\n\nResult\n\n")

+printf("\n overall fractional efficiency at percent basis is %.1f percent",perE)
\ No newline at end of file
diff --git a/680/CH4/EX4.07/4_07.sce b/680/CH4/EX4.07/4_07.sce
new file mode 100755
index 000000000..89453e345
--- /dev/null
+++ b/680/CH4/EX4.07/4_07.sce
@@ -0,0 +1,14 @@
+//Problem 4.07:

+

+//initializing the variables:

+mdt1 = 1000; // in lb/min

+mdt2 = 1000; // in lb/min

+mdt3 = 200; // in lb/min

+

+//calculation:

+mdt5 = mdt1 + mdt2 - mdt3

+mdt6 = mdt2

+mdt = mdt5 - mdt6

+

+printf("\n\nResult\n\n")

+printf("\n amount of water lost by evaporation is %.0f lb/min",mdt)
\ No newline at end of file
diff --git a/680/CH4/EX4.09/4_09.sce b/680/CH4/EX4.09/4_09.sce
new file mode 100755
index 000000000..5676fc343
--- /dev/null
+++ b/680/CH4/EX4.09/4_09.sce
@@ -0,0 +1,14 @@
+//Problem 4.09:

+

+//initializing the variables:

+m = 1800; // in kg

+v = 40; // in km/h

+F = 5000; // in N

+

+//calculation:

+KE1 = (1/2)*m*(v*5/18)^2

+KE2 = 0;

+s = KE1/F

+

+printf("\n\nResult\n\n")

+printf("\n distance the car will travel before it comes to a stop is %.1f m",s)
\ No newline at end of file
diff --git a/680/CH4/EX4.10/4_10.sce b/680/CH4/EX4.10/4_10.sce
new file mode 100755
index 000000000..ed4c54504
--- /dev/null
+++ b/680/CH4/EX4.10/4_10.sce
@@ -0,0 +1,12 @@
+//Problem 4.10:

+

+//initializing the variables:

+m = 2000; // in lb

+d = 1200; // in ft

+

+//calculation:

+PE = m*d/2

+PEbtu = PE/778.17

+

+printf("\n\nResult\n\n")

+printf("\n the change in potential energy is %.0f Btu",PEbtu)
\ No newline at end of file
diff --git a/680/CH4/EX4.11/4_11.sce b/680/CH4/EX4.11/4_11.sce
new file mode 100755
index 000000000..cf9d068ee
--- /dev/null
+++ b/680/CH4/EX4.11/4_11.sce
@@ -0,0 +1,15 @@
+//Problem 4.11:

+

+//initializing the variables:

+m = 2000; // in lb

+v1 = 8; // in ft/s

+v2 = 30; // in ft/s

+

+//calculation:

+KE1 = m*v1^2/(2*32.2)

+KE2 = m*v2^2/(2*32.2)

+delKE = KE1 - KE2

+delKEbtu = delKE/778.17

+

+printf("\n\nResult\n\n")

+printf("\n the change in Kinetic energy is %.3f Btu",delKEbtu)
\ No newline at end of file
diff --git a/680/CH4/EX4.12/4_12.sce b/680/CH4/EX4.12/4_12.sce
new file mode 100755
index 000000000..5799ad350
--- /dev/null
+++ b/680/CH4/EX4.12/4_12.sce
@@ -0,0 +1,14 @@
+//Problem 4.12:

+

+//initializing the variables:

+r = 500000; // in gpm

+e = 0.30;

+d = 3000; // in ft

+

+//calculation:

+mdt = r*0.00378*1000/60 // in kg/sec

+delPE = mdt*9.8*d*0.3048

+P = e*delPE

+

+printf("\n\nResult\n\n")

+printf("\n actual power output is %.2E W",P)
\ No newline at end of file