1 files changed, 18 insertions, 0 deletions
diff --git a/1571/CH8/EX8.10/Chapter8_Example10.sce b/1571/CH8/EX8.10/Chapter8_Example10.sce
new file mode 100755
index 000000000..f45f36acb
--- /dev/null
+++ b/1571/CH8/EX8.10/Chapter8_Example10.sce
@@ -0,0 +1,18 @@
+clc
+clear
+
+//INPUT
+p1=76;//inital pressure in cm
+t1=290;//inital temperature in K
+y=1.4;//coefficent of expansion
+dv=2;//ratio of inital to fianl volume when air expands isothermally 
+dv1=2;//ratio of inital to final volume when air expands adiabatically
+
+//CALCULATIONS
+p2=p1/dv;//final pressure when air expands isothermally in cm of hg
+t2=t1;//final temperature when air expands isothermally in K
+t3=t2*(1/dv1)^(y-1);//temprature when air expands adiabatically in K
+p3=p2*(1/dv1)^(y);//final pressure when air expands adiabatically in mm of hg
+
+//OUTPUT
+mprintf('final pressure when air expands isothermally in cm of hg %3.2f mm of hg \n final temperature when air expands isothermally is %3.2f K \n temprature when air expands adiabatically is %3.2f K \n final pressure when air expands adiabatically is %3.2f mm of hg',p2,t2,t3,p3)