18 files changed, 122 insertions, 0 deletions
diff --git a/2021/CH15/EX15.1/EX15_1.pdf b/2021/CH15/EX15.1/EX15_1.pdf
new file mode 100755
index 000000000..33b273b6b
--- /dev/null
+++ b/2021/CH15/EX15.1/EX15_1.pdf
diff --git a/2021/CH15/EX15.1/EX15_1.sce b/2021/CH15/EX15.1/EX15_1.sce
new file mode 100755
index 000000000..e09698926
--- /dev/null
+++ b/2021/CH15/EX15.1/EX15_1.sce
@@ -0,0 +1,17 @@
+//Finding of Velocities
+//Given
+T1=293;
+T2=293;
+P1=40;
+P2=35;
+R=287;
+A1=30*10^-4;
+A2=15*10^-4;
+Q=0.15;
+//To Find
+rho1=P1/(R*T1);
+V1=Q/(A1*rho1*10000);
+rho2=P2/(R*T2);
+V2=Q/(A2*rho2*10000);
+disp("Velocity at Section-1 ="+string(V1)+" m/sec");
+disp("Velocity at Section-2 ="+string(V2)+" m/sec");
diff --git a/2021/CH15/EX15.2/EX15_2.pdf b/2021/CH15/EX15.2/EX15_2.pdf
new file mode 100755
index 000000000..0276e4777
--- /dev/null
+++ b/2021/CH15/EX15.2/EX15_2.pdf
diff --git a/2021/CH15/EX15.2/EX15_2.sce b/2021/CH15/EX15.2/EX15_2.sce
new file mode 100755
index 000000000..7d1cc6ae6
--- /dev/null
+++ b/2021/CH15/EX15.2/EX15_2.sce
@@ -0,0 +1,9 @@
+//Finding of Speed of Sound waves
+//Given
+k=1.4;
+R=287;
+T=293;
+//To Find
+C=sqrt(k*R*T);
+C1=C*(18/5);
+disp("Speed of Sound waves ="+string(C1)+" Km/hr");
diff --git a/2021/CH15/EX15.3/EX15_3.pdf b/2021/CH15/EX15.3/EX15_3.pdf
new file mode 100755
index 000000000..ebe43f34a
--- /dev/null
+++ b/2021/CH15/EX15.3/EX15_3.pdf
diff --git a/2021/CH15/EX15.3/EX15_3.sce b/2021/CH15/EX15.3/EX15_3.sce
new file mode 100755
index 000000000..50065ac48
--- /dev/null
+++ b/2021/CH15/EX15.3/EX15_3.sce
@@ -0,0 +1,12 @@
+//Finding of Mach Number
+//Given
+k=1.4;
+R=287;
+T=288;
+V=900;
+//To Find
+C=sqrt(k*R*T);
+C1=C*(18/5);
+disp("Speed of Sound waves ="+string(C1)+" Km/hr");
+M=V/C1;
+disp("Mach Number = "+string(M)+" No units");
diff --git a/2021/CH15/EX15.4/EX15_4.pdf b/2021/CH15/EX15.4/EX15_4.pdf
new file mode 100755
index 000000000..a37227162
--- /dev/null
+++ b/2021/CH15/EX15.4/EX15_4.pdf
diff --git a/2021/CH15/EX15.4/EX15_4.sce b/2021/CH15/EX15.4/EX15_4.sce
new file mode 100755
index 000000000..dc30e0942
--- /dev/null
+++ b/2021/CH15/EX15.4/EX15_4.sce
@@ -0,0 +1,11 @@
+//Finding of Speed
+//Given
+k=1.4;
+R=287;
+T=233;
+M=1.8;
+//To Find
+C=sqrt(k*R*T);
+C1=C*(18/5);
+V=C1*M;
+disp("Speed of Aeroplane ="+string(V)+" Km/hr");
diff --git a/2021/CH15/EX15.5/EX15_5.pdf b/2021/CH15/EX15.5/EX15_5.pdf
new file mode 100755
index 000000000..af44a9e6c
--- /dev/null
+++ b/2021/CH15/EX15.5/EX15_5.pdf
diff --git a/2021/CH15/EX15.5/EX15_5.sce b/2021/CH15/EX15.5/EX15_5.sce
new file mode 100755
index 000000000..b3f8c73e5
--- /dev/null
+++ b/2021/CH15/EX15.5/EX15_5.sce
@@ -0,0 +1,12 @@
+//Finding of Velocity of Projectile
+//Given
+theta=30;
+k=1.4;
+R=287;
+T=268;
+//To Find
+Ma=sin(theta);
+C=sqrt(k*R*T);
+V=Ma*C;
+disp("Velocity of Projectile ="+string(V)+" m/sec");
+
diff --git a/2021/CH15/EX15.6/EX15_6.pdf b/2021/CH15/EX15.6/EX15_6.pdf
new file mode 100755
index 000000000..f440f26fd
--- /dev/null
+++ b/2021/CH15/EX15.6/EX15_6.pdf
diff --git a/2021/CH15/EX15.6/EX15_6.sce b/2021/CH15/EX15.6/EX15_6.sce
new file mode 100755
index 000000000..ada5ea2fa
--- /dev/null
+++ b/2021/CH15/EX15.6/EX15_6.sce
@@ -0,0 +1,12 @@
+//Finding of Mach Number and Mach Angle
+//Given
+k=1.4;
+R=287;
+T=263;
+V=1200;
+//To Find
+C=sqrt(k*R*T);
+Ma=V/C;
+alpha=asind(1/Ma);
+disp("Mach Number ="+string(Ma)+" No units");
+disp("Mach Angle ="+string(alpha)+" Degrees");
diff --git a/2021/CH15/EX15.7/EX15_7.pdf b/2021/CH15/EX15.7/EX15_7.pdf
new file mode 100755
index 000000000..e95d9b262
--- /dev/null
+++ b/2021/CH15/EX15.7/EX15_7.pdf
diff --git a/2021/CH15/EX15.7/EX15_7.sce b/2021/CH15/EX15.7/EX15_7.sce
new file mode 100755
index 000000000..ed8142058
--- /dev/null
+++ b/2021/CH15/EX15.7/EX15_7.sce
@@ -0,0 +1,21 @@
+//Finding of Mach's Number
+//Given
+k=1.4;
+R=287;
+T=273;
+T1=273-15;
+v=900;
+p1=8*10^4;
+//To Find
+V=v*(5/18);
+C=sqrt(k*R*T);
+Ma=V/C;
+ps=p1*((1+((k-1)/2)*Ma^2)^(k/(k-1)));
+Ps=ps*10^-4;
+Ts=T1*((1+((k-1)/2)*Ma^2));
+rho=ps/(R*T);
+t=Ts-T;
+disp("Mach Number ="+string(Ma)+" No Units");
+disp("Density ="+string(rho)+" Kg/m^3");
+disp("Pressure ="+string(Ps)+" N/cm^2");
+disp("Temperature ="+string(t)+" celcius")
diff --git a/2021/CH15/EX15.8/EX15_8.pdf b/2021/CH15/EX15.8/EX15_8.pdf
new file mode 100755
index 000000000..baec1bf3f
--- /dev/null
+++ b/2021/CH15/EX15.8/EX15_8.pdf
diff --git a/2021/CH15/EX15.8/EX15_8.sce b/2021/CH15/EX15.8/EX15_8.sce
new file mode 100755
index 000000000..b849a0af0
--- /dev/null
+++ b/2021/CH15/EX15.8/EX15_8.sce
@@ -0,0 +1,12 @@
+//Finding of velocity at the outlet of a nozzle
+//Given
+k=1.4;
+P1=294.3;
+P2=137.34;
+T1=303;
+R=287;
+//To Find
+rho=P1/(R*T1);
+V2=sqrt((2*k/(k-1))*(P1/rho)*(1-(P2/P1)^((k-1)/k)));
+disp("velocity at the outlet of a nozzle ="+string(V2)+" m/sec");
+
diff --git a/2021/CH15/EX15.9/EX15_9.pdf b/2021/CH15/EX15.9/EX15_9.pdf
new file mode 100755
index 000000000..b02a3a371
--- /dev/null
+++ b/2021/CH15/EX15.9/EX15_9.pdf
diff --git a/2021/CH15/EX15.9/EX15_9.sce b/2021/CH15/EX15.9/EX15_9.sce
new file mode 100755
index 000000000..d1ece5c0d
--- /dev/null
+++ b/2021/CH15/EX15.9/EX15_9.sce
@@ -0,0 +1,16 @@
+//Finding of Mass Flow Rate
+//Given
+D1=0.4;
+D2=0.2;
+P1=27.468*10^4;
+P2=25.506*10^4;
+T1=293;
+k=1.4;
+R=287;
+//To Find
+A1=(%pi/4)*D1^2;
+A2=(%pi/4)*D2^2;
+rho1=P1/(R*T1);
+rho2=((rho1^(1.4)*P2)/P1)^(1/1.4);
+m=rho2*A2*sqrt((2*k/(k-1))*(P1/rho1)*(1-(P2/P1)^((k-1/k)))/(1-(P2/P1)^(2/k))*(A2/A1)^2);
+disp("Mass Flow Rate ="+string(m)+" Kg/sec");