diff options
Diffstat (limited to '746/CH11')
-rwxr-xr-x | 746/CH11/EX11.01/11_01.sce | 19 | ||||
-rwxr-xr-x | 746/CH11/EX11.03/11_03.sce | 19 | ||||
-rwxr-xr-x | 746/CH11/EX11.04/11_04.sce | 22 |
3 files changed, 0 insertions, 60 deletions
diff --git a/746/CH11/EX11.01/11_01.sce b/746/CH11/EX11.01/11_01.sce deleted file mode 100755 index 073540f56..000000000 --- a/746/CH11/EX11.01/11_01.sce +++ /dev/null @@ -1,19 +0,0 @@ -//Change//
-pathname=get_absolute_file_path('11.01.sce')
-filename=pathname+filesep()+'11.01-data.sci'
-exec(filename)
-//Density of air at entry:
-d1=p1*10^3/R/T1
-//Area(in m^2):
-A=m/d1/V1
-//Change in enthalpy of air(in kJ/kg):
-dh=cp*(T2-T1)
-//Change in internal energy of air(in kJ/kg):
-du=cv*(T2-T1)
-//Change in entropy(in kJ/(kg-K)):
-ds=cp*log(T2/T1)-R/1000*log(p2/p1)
-printf("\n\nRESULTS\n\n")
-printf("\n\nDuct Area: %.3f m^2\n\n",A)
-printf("\n\nChange in enthalpy of air: %.3f kJ/kg\n\n",dh)
-printf("\n\nChange in internal energy of air:%.3f kJ/kg\n\n",du)
-printf("\n\nChange in entropy: %.3f kg-K\n\n",ds)
diff --git a/746/CH11/EX11.03/11_03.sce b/746/CH11/EX11.03/11_03.sce deleted file mode 100755 index cc4eee914..000000000 --- a/746/CH11/EX11.03/11_03.sce +++ /dev/null @@ -1,19 +0,0 @@ -//Speed of sound// -pathname=get_absolute_file_path('11.03.sce') -filename=pathname+filesep()+'11.03-data.sci' -exec(filename) -//Values of altitude(in m): -Al=0:1000:15000 -[nAl mAl]=size(Al); -//Values of temperature at given altitudes(in K): -T=[288.2 281.7 275.2 268.7 262.2 255.7 249.2 242.7 236.2 229.7 223.3 216.8 216.7 216.7 216.7 216.7]; -[nT mT]=size(T); -//Values of speed of sound at these altitudes(in m/sec): -j=1:mT; -c=sqrt(k*R*T(j)) -//Speed of sound at sea level(in m/sec): -c1=sqrt(k*R*T(1)) -plot(c,Al) -xtitle('Variation of sound speed with altitude','Speed of sound(m/sec)','Altitude(m)') -printf("\n\nRESULTS\n\n") -printf("\n\nSpeed of sound at sea level: %.3f m/sec\n\n",c1) diff --git a/746/CH11/EX11.04/11_04.sce b/746/CH11/EX11.04/11_04.sce deleted file mode 100755 index 350f4dc6e..000000000 --- a/746/CH11/EX11.04/11_04.sce +++ /dev/null @@ -1,22 +0,0 @@ -//pressure and change//
-pathname=get_absolute_file_path('11.04.sce')
-filename=pathname+filesep()+'11.04-data.sci'
-exec(filename)
-//Mach number at entry:
-M1=V1/sqrt(k*R*T1)
-//Stagnation pressure at entry(in kPa):
-p01=p1*(1+(k-1)/2*M1^2)^(k/(k-1))
-//Stagnation temperature at entry(in K):
-T01=T1*(1+(k-1)/2*M1^2)
-//Static pressure at exit(in kPa):
-p2=p02/(1+(k-1)/2*M2^2)^(k/(k-1))
-//Temperature at exit(in K):
-T2=T02/(1+(k-1)/2*M2^2)
-//Change in entropy(in kJ/kg-K):
-ds=cp*log(T2/T1)-R/1000*log(p2/p1)
-printf("\n\nRESULTS\n\n")
-printf("\n\nStagnation pressure at entry: %.3f kPa\n\n",p01)
-printf("\n\nStagnation temperature at entry: %.3f K\n\n",T01)
-printf("\n\nStatic pressure at exit: %.3f kPa\n\n",p2)
-printf("\n\nTemperature at exit: %.3f K\n\n",T2)
-printf("\n\nChange in entropy: %.3f kJ/kg-K\n\n",ds)
|