Question

The research is to be carried out to analyse the performance of evaporative cooler model with simple surfaces and honeycomb structured using R 290/R410 c with blend mixture. it is to be tested over the 25% load, 50% load, 75% load and 100% load conditions....
First propose a unique arrangement for the testing rig. and then formulate a mathematical model using fortran 77 performe simulation of the system and validate the results using available standard results......

coding is to be done in the Fortran 77 only. no other software will be entertained...

Answer 1

"Determination of the outlet state of an R134a throttle"

"Known Information"
T_1=50 [C]; P_1=700 [kPa]; Vel_1=15 [m/s]; A_1=0.0110 [m^2]
{P_2=300 [kPa]}

m_dot_1=m_dot_2   "mass balance"  
m_dot_1=A_1*Vel_1/v_1   "relation between mass flowrate and fluid velocity"
m_dot_2=A_2*Vel_2/v_2
A_2=A_1   "inlet and outlet areas are equal"

"Steady-state energy balance with no heat or power terms"
m_dot_1*(h_1+Vel_1^2/2*convert(m^2/s^2,kJ/kg))=m_dot_2*(h_2+Vel_2^2/2*convert(m^2/s^2,kJ/kg))

v_1=volume(R134a,T=T_1,P=P_1); h_1=enthalpy(R134a,T=T_1,P=P_1)
v_2=volume(R134a,T=T_2,P=P_2); h_2=enthalpy(R134a,T=T_2,P=P_2)

$TabStops 0.5 2 in

"!2-D interpolation"

"This example uses the Interpolate2D function to return values of compressor power and mass flow rate as a function of the evaporator and condenser saturation temperatures. The compressor map data are in the Lookup table."   

P$='Power'
M$='m_dot'
P[1]=interpolate2d('compressormap', P$, T_cond,T_evap,T_cond=TC[1],T_evap=TE[1])    "[W]"
m_dot[1]=interpolate2d('compressormap', M$, T_cond,T_evap,T_cond=TC[1],T_evap=TE[1])    "[lb_m/hr]"

TE[1]=27.5 [°F]     "saturation temperature in the evaporator"
TC[1]=85 [°F]     "saturation temperature in the condensor"

"The plot window provides a plot of Power vs saturated evaporator temperature for different saturated condensing temperatures. The interpolated value of power is shown on the plot with a red square. "

$TabWidth 1 cm