summaryrefslogtreecommitdiff
path: root/1808/CH3/EX3.6/Chapter3_Exampl6.sce
diff options
context:
space:
mode:
Diffstat (limited to '1808/CH3/EX3.6/Chapter3_Exampl6.sce')
-rw-r--r--1808/CH3/EX3.6/Chapter3_Exampl6.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/1808/CH3/EX3.6/Chapter3_Exampl6.sce b/1808/CH3/EX3.6/Chapter3_Exampl6.sce
new file mode 100644
index 000000000..9937b5475
--- /dev/null
+++ b/1808/CH3/EX3.6/Chapter3_Exampl6.sce
@@ -0,0 +1,24 @@
+clc
+clear
+//INPUT DATA
+Th=600;//engine temprature in Degree C
+p3=5;//Pressure of air in bar
+v3=4;//volume of air in m^3
+v43=3;//Isentropic volume expansion
+v23=6;//Isentropic compression ratio
+
+//CALCULATIONS
+p4=p3*(1/(v43));//pressure of carnot cycle
+p1=p4*(1/(v23))^(1.4);//pressure of carnot cycle
+t1=(Th+273)*(1/(v23))^(0.4);//Temperature of carnot cycle
+p2=p1*(v43);//pressure of carnot cycle
+Qs=p3*10^2*v3*log(v43);//heat supplied to the cycle
+Qr=p3*v3*(t1/Th)*log(v43);//Heat rejected by the system
+nc=(((Th+273)-t1)/(273+Th))*100;//Thermal efficiency in percentage
+w=Qs-Qr;//work done in kJ
+pm=w/(17*2*v3*100);//Mean effective pressure in bar
+
+//OUTPUT
+printf('(a)The pressure of carnot cycle is %3.3f bar \n temperature of carnot cycle is %3.4f K \n (b)Heat supplied to the cycle %3.2f kJ \n (c)Thermal efficiency is %3.2f percentage \n (d)Mean effective pressure is %3.4f bar ',p1,t1,Qs,nc,pm)
+
+