summaryrefslogtreecommitdiff
path: root/746/CH12/EX12.03
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:38:01 +0530
committerprashantsinalkar2017-10-10 12:38:01 +0530
commitf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (patch)
treeeb72842d800ac1233e9d890e020eac5fd41b0b1b /746/CH12/EX12.03
parent7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (diff)
downloadScilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.gz
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.bz2
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.zip
updated the code
Diffstat (limited to '746/CH12/EX12.03')
-rwxr-xr-x746/CH12/EX12.03/12_03.sce29
1 files changed, 0 insertions, 29 deletions
diff --git a/746/CH12/EX12.03/12_03.sce b/746/CH12/EX12.03/12_03.sce
deleted file mode 100755
index 23bf28dac..000000000
--- a/746/CH12/EX12.03/12_03.sce
+++ /dev/null
@@ -1,29 +0,0 @@
-//mass and area//
-pathname=get_absolute_file_path('12.03.sce')
-filename=pathname+filesep()+'12.03-data.sci'
-exec(filename)
-//Saturation pressure(in psia):
-p0=p1*(1+(k-1)/2*M1^2)^(k/(k-1))
-//Checking for choking:
-x=pb/p0;
-if(x>0.528)
- //Not choked
-else
- //choked
-end
-//As there is choking:
-Mt=1;
-//Velocity at entry:
-V1=M1*sqrt(k*R*(T1+460)*32.2)
-//Density at the entry(in lbm/ft^3):
-d1=p1/(R*(T1+460))*144
-//Mass flow rate(in lbm/sec):
-m=d1*V1*A1
-//Finding the valueof A1/A*;
-A=1/M1*((1+(k-1)/2*M1^2)/(1+(k-1)/2))^((k+1)/(2*(k-1)))
-//For choked flow, At=A*
-At=A1/A
-printf("\n\nRESULTS\n\n")
-printf("\n\nMach number at throat: %.3f\n\n",Mt)
-printf("\n\nMass flow rate: %.3f lbm/sec\n\n",m)
-printf("\n\nArea at throat: %.3f ft^2\n\n",At)