1 files changed, 12 insertions, 0 deletions
diff --git a/167/CH17/EX17.4/ex4.sce b/167/CH17/EX17.4/ex4.sce
new file mode 100755
index 000000000..614a6ff98
--- /dev/null
+++ b/167/CH17/EX17.4/ex4.sce
@@ -0,0 +1,12 @@
+//ques4
+//Critical Temperature and Pressure in Gas Flow
+clear
+clc
+k=1.289;
+T0=473;//Temp at in K
+Tx=T0*2/(k+1);//Temp in K
+P0=1400//pressure in kPa
+Px=P0*(2/(k+1))^(k/(k-1));//Pressure in kPa
+printf('T* = %.0f K \n',Tx);
+printf(' P* = %.0f kPa \n',Px);
+