initial commit / add all books

7 files changed, 110 insertions, 0 deletions

diff --git a/557/CH9/EX9.1/1.sce b/557/CH9/EX9.1/1.sce
new file mode 100755
index 000000000..0e448e662
--- /dev/null
+++ b/557/CH9/EX9.1/1.sce
@@ -0,0 +1,11 @@
+clc;funcprot(0); //Example 9.1

+

+//Initializing the variables

+Vp = 10;

+LpByLm = 20;

+rhoPbyRhoM = 1;

+muPbymuM = 1;

+//Calculations

+Vm = Vp*LpByLm*rhoPbyRhoM*muPbymuM;

+ 

+disp(Vm, 'Mean water tunnel flow velocity (m/s):'); 
\ No newline at end of file
diff --git a/557/CH9/EX9.2/2.sce b/557/CH9/EX9.2/2.sce
new file mode 100755
index 000000000..fa24834b2
--- /dev/null
+++ b/557/CH9/EX9.2/2.sce
@@ -0,0 +1,12 @@
+funcprot(0);clc; //Example 9.2 

+

+//Initializing the variables

+Vp = 3;

+LpByLm = 30;

+rhoPbyRhoM = 1;

+muPbymuM = 1;

+

+//Calculations

+Vm = Vp*LpByLm*rhoPbyRhoM*muPbymuM;

+ 

+disp(Vm, 'Mean water tunnel flow velocity (m/s):');
\ No newline at end of file
diff --git a/557/CH9/EX9.3/3.sce b/557/CH9/EX9.3/3.sce
new file mode 100755
index 000000000..50810ce13
--- /dev/null
+++ b/557/CH9/EX9.3/3.sce
@@ -0,0 +1,17 @@
+funcprot(0);clc; //Example 9.3 

+

+//Initializing the variables

+Vp = 100;

+cP = 340;

+cM = 295;

+rhoM = 7.7;

+rhoP = 1.2;

+muM = 1.8*10^-5;

+muP = 1.2*10^-5;

+

+//Calculations

+Vm = Vp*(cM/cP);

+LmByLp = 1/((Vm/Vp)*(muM/muP)*(rhoM/rhoP));

+FmByFp = (rhoM/rhoP)*(Vm/Vp)^2*(LmByLp)^2;

+

+disp(FmByFp*100, "Percentage ratio of forces (%):",Vm, 'Mean wind tunnel flow velocity(m/s) :');
\ No newline at end of file
diff --git a/557/CH9/EX9.4/4.sce b/557/CH9/EX9.4/4.sce
new file mode 100755
index 000000000..82dd2860b
--- /dev/null
+++ b/557/CH9/EX9.4/4.sce
@@ -0,0 +1,18 @@
+funcprot(0);clc; //Example 9.4 

+

+//Initializing the variables

+function[Z] =pLossRatio(RatRho,RatMu,RatL)

+    Z = RatRho*RatMu^2*RatL^2;

+endfunction   

+

+//Calculations

+//Case (a) : water is used

+RatRho = 1;

+RatMu = 1;

+RatL = 10;

+disp(pLossRatio(RatRho,RatMu,RatL), "(a)Ratio of pressure losses between the model and the prototype if water is used ");

+

+RatRho = 1000/1.23;

+RatMu = 1.8*10^-5/10^-3;

+

+disp(pLossRatio(RatRho,RatMu,RatL), "(b)Ratio of pressure losses between the model and the prototype if air is used ");
\ No newline at end of file
diff --git a/557/CH9/EX9.5/5.sce b/557/CH9/EX9.5/5.sce
new file mode 100755
index 000000000..cd36b76e0
--- /dev/null
+++ b/557/CH9/EX9.5/5.sce
@@ -0,0 +1,13 @@
+funcprot(0);clc; //Example 9.5 

+

+//Initializing the variables

+scale = 1/50;

+ratArea = scale^2;

+Qp = 1200;

+

+//Calculations

+LmByLp = sqrt(ratArea);

+VmByVp = sqrt(LmByLp);

+Qm = Qp*ratArea*VmByVp;

+

+disp(Qm, "Water flow rate (m3/s ):");
\ No newline at end of file
diff --git a/557/CH9/EX9.6/6.sce b/557/CH9/EX9.6/6.sce
new file mode 100755
index 000000000..ece710dd1
--- /dev/null
+++ b/557/CH9/EX9.6/6.sce
@@ -0,0 +1,16 @@
+funcprot(0);clc; //Example 9.6 

+

+//Initializing the variables

+Qa = 2;

+Na = 1400;

+rhoA = 0.92;

+rhoS = 1.3;

+DaByDs = 1;

+dPa = 200;

+

+//Calculations

+Ns = Na*(rhoA/rhoS)*(DaByDs);

+Qs = Qa*(Ns/Na);

+dPs = dPa *(rhoS/rhoA)*(Ns/Na)^2*(1/DaByDs)^2;

+

+ disp(dPs,"Pressure rise(N/m2 ) :",Qs, "Flow rate (m3/s):",Ns,"Fan test speed (rev/s):");
\ No newline at end of file
diff --git a/557/CH9/EX9.8/8.sce b/557/CH9/EX9.8/8.sce
new file mode 100755
index 000000000..5c786da0b
--- /dev/null
+++ b/557/CH9/EX9.8/8.sce
@@ -0,0 +1,23 @@
+funcprot(0);clc; //Example 9.8 

+

+//Initializing the variables

+V = 300 ;// Volume rate

+w = 3;

+d = 65;

+l = 30;

+scaleH = 30/1000/18;

+scaleV = 1/60;

+ZmByZr = 1/60;

+LmByLr = 1/600;

+rho = 1000;

+mu = 1.14*10^-3;

+

+//Calculations

+Vr = V/(w*d); 

+Vm =Vr*sqrt(ZmByZr);

+m = (w*d*scaleH*scaleV)/(d*scaleH + 2*w*scaleV);

+Rem = rho*Vm*m/mu;

+TmByTr = LmByLr*sqrt(1/ZmByZr);

+Tm = 12.4*60*TmByTr;

+

+disp(Tm, "Tidal Period (minutes):");
\ No newline at end of file