4 files changed, 56 insertions, 0 deletions
diff --git a/1268/CH10/EX10.1/10_1.sce b/1268/CH10/EX10.1/10_1.sce
new file mode 100644
index 000000000..ba85ad71b
--- /dev/null
+++ b/1268/CH10/EX10.1/10_1.sce
@@ -0,0 +1,16 @@
+clc;
+disp("Example 10.1")
+G=50 // in kg/m^2/s
+L=100 // length in m
+d=0.075 // diameter in m
+T=298 // in kelvin
+mew=1e-5 //viscosity
+p=1.1e5 // pressure of air
+m=16 // molecular mass
+Re=d*G/mew
+f=0.0014+(0.125/(Re^0.32))
+p1=(2*f*L*G*G*8314*T/(d*m)+(p^2))^0.5
+disp(p1,"Pressure is ")
+disp(" Pascals")
+printf("Pressure is %.2f Pa\n",p1);
+
diff --git a/1268/CH10/EX10.2/10_2.sce b/1268/CH10/EX10.2/10_2.sce
new file mode 100644
index 000000000..2fbcea3e6
--- /dev/null
+++ b/1268/CH10/EX10.2/10_2.sce
@@ -0,0 +1,18 @@
+clc;
+disp("Example 10.2")
+G=50 // in kg/m^2/s
+L=1000 // length in m
+d=0.075 // diameter in m
+T=298 // in kelvin
+mew=1e-5 //viscosity
+p2=1.1e5 // pressure of air
+m=16 // molecular mass
+Re=d*G/mew
+f=0.0014+(0.125/(Re^0.32))
+p1=(2*f*L*G*G*8314*T/(d*m)+(p2^2))^0.5
+if((p1/p2)>1) then
+    p1=(2*f*L*G*G*8314*T/(d*m)+(p2^2)+(2*G*G*8314*T*log(p1/p2)/m))^0.5
+end
+disp(p1,"Pressure is ")
+disp(" Pascals")
+
diff --git a/1268/CH10/EX10.3/10_3.sce b/1268/CH10/EX10.3/10_3.sce
new file mode 100644
index 000000000..b56f298ad
--- /dev/null
+++ b/1268/CH10/EX10.3/10_3.sce
@@ -0,0 +1,10 @@
+clc;
+disp("Example 10.3")
+ratio=5 // of the two pressures
+T=293 // inn K
+gama=1.4
+M=29 // molecular weight
+r=8314 // gas constant
+y=(ratio^((gama-1)/gama))-1
+w=r*T*gama*y/(M*(gama-1))
+disp(w,"Work done is ")
diff --git a/1268/CH10/EX10.4/10_4.sce b/1268/CH10/EX10.4/10_4.sce
new file mode 100644
index 000000000..7a037d117
--- /dev/null
+++ b/1268/CH10/EX10.4/10_4.sce
@@ -0,0 +1,12 @@
+clear;
+disp("Example 10.4")
+T=298 // temperature in K
+R=8314 // gas constant
+M=29 // molecular weight
+ratio=6 // of pressures
+gama = 1.4;
+y=(ratio^((gama-1)/gama))-1
+w=r*T*gama*y/(M*(gama-1))
+massrate=300/360
+power=massrate*w
+disp(power,"The power drawn is ")