Combustion Project Extra Credit (Ethanol)

Combustion Project Extra Credit (Ethanol) -...

Info iconThis preview shows pages 1–7. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: #X8.596#D#D#$###"Combustion Project" # function HowMuchFuelproducts(pta) if (pta>1) then HowMuchFuelProducts = 0 else HowMuchFuelProducts = 1-pta endif end e function PhaseofFuel(x) if (x = 100) then PhaseofFuel = -235310 else PhaseofFuel = -277690 endif end e "Ethanol: C2H5OH" C = 2 H = 6 O = 1 O nO2_r100% = C + H/4 - O/2 n "Extra Credit" "phi = .5" phi = p_v/p_g p_g = Pressure(water,T=T_air,x=1) omega = .622*(p_v/(p-p_v)) omega = m_dot_v/m_dot_air m_dot_air = nO2r*32 + 3.76*28*nN2r nH2Or = m_dot_v/18.02 n T_air = 305 T_fuel = 295 T_ref = 298 p = 1 pta = 1 nfuelr = 1 nfuelp = HowMuchFuelProducts(pta) nO2r = nO2_r100%*pta x = quality(ethanol,T=T_fuel,P=p) h_fuelformation = PhaseofFuel(x) h "C" nfuelr*C = nCO2p + nfuelp*C n "H" nfuelr*H + nH2Or*2 = nH2Op*2 + nfuelp*H n "O" nfuelr*O + nO2r*2 +nH2Or = nCO2p*2 + nH2Op + nfuelp*O + nO2p*2 n "N" nN2r*2 = nN2p*2 nN2r = 3.76*nO2r n "Energy Equation" " h_fuelr = h_fuelformation + enthalpy(C2H5OH, T=T_fuel) - enthalpy(C2H5OH,T=T_ref) h_fuelp = h_fuelformation + enthalpy(C2H5OH,T=T_p) - enthalpy(C2H5OH,T=T_ref) h_O2r = 0 + enthalpy(O2,T=T_air) - enthalpy(O2,T=T_ref) h_O2p = 0 + enthalpy(O2,T=T_p) - enthalpy(O2,T=T_ref) h_N2r = 0 + enthalpy(N2,T=T_air) - enthalpy(N2,T=T_ref) h_N2p = 0 + enthalpy(N2,T=T_p) - enthalpy(N2,T=T_ref) h_CO2p = -393520 + enthalpy(CO2,T=T_p) - enthalpy(CO2,T=T_ref) h_H2Or = -241820 + enthalpy(H2O,T=T_air) - enthalpy(H2O,T=T_ref) h_H2Op = -241820 + enthalpy(H2O,T=T_p) - enthalpy(H2O,T=T_ref) h 0 = (nfuelr*h_fuelr) + (nO2r*h_O2r) + (nN2r*h_N2r) + (nH2Or*h_H2Or) - (nCO2p*h_CO2p) - (nH2Op*h_H2Op) - (nO2p*h_O2p) - (nN2p*h_N2p) - (nFuelp*h_fuelp) {$ID$ #2406: For use in the Department of Mechanical Engineering, Iowa State University Zibrowski}######(,h&T5&?################il#7[?&6A_p&?# #############?OpD&hOpD[hs####*#&#G#&#i#&#p#&#&#8##&##w#########q? OpD&hOpD&hs#######&###/#R#&#t#&#{#&##&#########&? OpD}hOpD&hs######[#&#E#&##&####&# X## #######&? OpD&hOpD&hs##### X## X#. X#A X#T X#v X#} X# #######&?OpD0hOpD&hs####<#&#C#X#R####&##&#. #] #& #######&?OpD&hOpD&hs####m&#w&##[#& # #0########&? OpD&hOpD&hs####(##0#&#8#/#@#&#D#&#N#&#R#&#\########&? OpD&hOpD&hs####Btu/lbm##m#9#m#H#m#k#m##m#7########&? OpD&hOpD&hs####9#m#]#m##m##m##m##m#>#m#E########&? OpD&hOpD&hs####m#m#[#m##m###m#>#m##m###m#&########&? OpD&hOpD&hs#####m#m##m##m###m#;#m###m#&########&? OpD&hOpD&hs#####m# #m#~#m#,#m#L#m#i#m##m#########?OpD&hOpDhs#####0##T## &##T##&##W ##}#########&?OpD[hOpD&hs#######&# #&##&#*##B#0#6##>########[?OpD&hOpDhs####^##n#0#r#T#|#&#&#T#}#&#&#W ##########/?OpDXhOpDhs####psiaU[#######u##+]#######?##########/?...
View Full Document

Page1 / 40

Combustion Project Extra Credit (Ethanol) -...

This preview shows document pages 1 - 7. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online