initial commit / add all books

1 files changed, 37 insertions, 0 deletions

diff --git a/172/CH12/EX12.1/ex1.sce b/172/CH12/EX12.1/ex1.sce
new file mode 100755
index 000000000..334158848
--- /dev/null
+++ b/172/CH12/EX12.1/ex1.sce
@@ -0,0 +1,37 @@
+//ques1

+//Standard brayton cycle

+clc

+clear

+//1-Inlet for compressor

+//2-Exit for compressor

+//T-Temperature at a state

+//P-Pressure at a state

+T1=288.2;//K

+P2=1000;//kPa

+P1=100;//kPa

+k=1.4;

+T2=T1*(P2/P1)^(1-1/k);//K

+Cp=1.004;//Specific heat at constant pressure in kJ/kg

+wc=Cp*(T2-T1);//compressor work in kJ/kg;

+printf('Temperature T2 = %.1f K\n',T2);

+printf(' Compressor work = %.1f kJ/kg \n',wc);

+//3-Turbine Inlet

+//4-Turbine Exit

+P4=P1;

+P3=P2;

+T3=1373.2;//K

+T4=T3*(P4/P3)^(1-1/k);//K

+wt=Cp*(T3-T4);

+wnet=wt-wc;

+printf(' Temperature T3 = %.1f K\n',T3);

+printf(' Temperature T4 = %.1f K\n',T4);

+printf(' Turbine work = %.1f kJ/kg\n',wt);

+printf(' Net work = %.1f kJ/kg\n',wt-wc);

+//2-Also high temperature heat exchanger Inlet

+//3-(-do-) Exit

+qh=Cp*(T3-T2);//Heat of source in kJ/kg

+//4-high temp heat exchanger inlet

+//1-(-do-) Exit

+ql=Cp*(T4-T1);//Heat of sink in kJ/kg

+nth=wnet/qh;

+printf(' Thermal Efficiency of cycle = %.1f percent',nth*100);
\ No newline at end of file