(function(){ var Opgiven,OPress; var RTgiven,RTemp; var DesignPreGiven,DesignPreUse; var DesignKpa; var AtmPreGiven,AtmPreUse; var SetPgiven,SetPuse; var Area,AreaV; var Valvesize; var OutletPressGiven,OutletPressUse; var PressIn,PressOut; var Fac1,Fac2,Fac3,Fac4; var Cpcv; var TheoPRflow; var MolW; var ComZ; var NoofP; var Concn; var Selected; var HighSize,HighNo; var SurfaceA; var Height,HeightUse; var Diameter,DiameterUse; var HeightW; var HeatW; var FlowCap; var FFactor; var RTgiven,RTemp; var LatentH,Latent; var ActulFlow; var OverPress; var TempIn,TempInUse; var TableFlow; var HexaneFlow; var FinalRequiredFlow; NoofP=fieldname101; MolW=fieldname73; ComZ=fieldname99; FFactor=fieldname36; /*Convert Atm pressure */ AtmPreGiven=fieldname92; if(fieldname93=="bar a") AtmPreUse=AtmPreGiven; if(fieldname93=="kpa a") AtmPreUse=AtmPreGiven*0.01; if(fieldname93=="psi a") AtmPreUse=AtmPreGiven*0.0689476; if(fieldname93=="kg/cm2 a") AtmPreUse=AtmPreGiven*0.980665; /* Convert Design Pressure */ DesignPreGiven=fieldname90; if(fieldname91=="bar g") DesignPreUse=DesignPreGiven; if(fieldname91=="kPa g") DesignPreUse=DesignPreGiven/100; if(fieldname91=="psi g") DesignPreUse=DesignPreGiven*0.0689476; if(fieldname91=="kg/cm2 g") DesignPreUse=DesignPreGiven*0.980665; if(fieldname91=="mm WC") DesignPreUse=DesignPreGiven*9.80665/100000; DesignKpa=PREC(DesignPreUse*100,2); /* Convert Height*/ Height=fieldname57; if(fieldname58=="ft") HeightUse=Height; if(fieldname58=="m") HeightUse=Height*3.28084; /* Convert Diameter*/ Diameter=fieldname14; if(fieldname16=="ft") DiameterUse=Diameter; if(fieldname16=="m") DiameterUse=Diameter*3.28084; /* Height for Wetted Area*/ if(HeightUse=>30) HeightW=30; if(HeightUse<30) HeightW=HeightUse; SurfaceA=Math.PI*DiameterUse*HeightW*0.092903; /* Heat Input Caculation for fluid data available */ if(AND(SurfaceA<18.6,DesignKpa<=103.4)) HeatW=63150*SurfaceA; if(AND(SurfaceA>=18.6,SurfaceA<93,DesignKpa<=103.4)) HeatW=224200*POW(SurfaceA,0.566); if(AND(SurfaceA>=93,SurfaceA<260,DesignKpa<=103.4)) HeatW=630400*POW(SurfaceA,0.338); if(AND(SurfaceA>=260,DesignKpa>7,DesignKpa<=103.4)) HeatW=43200*POW(SurfaceA,0.82); if(AND(SurfaceA>=260,DesignKpa<=7)) HeatW=4129700; /* Relieving Temp. of Vapor*/ RTgiven=fieldname66; if(fieldname67=="K") RTemp=RTgiven; if(fieldname67=="°C") RTemp=RTgiven+273.15; if(fieldname67=="°F") RTemp=(RTgiven-32)/1.8+273.15; /* Convert Latent Heat to KJ/kg */ if(fieldname54=="Btu/lb") LatentH=fieldname53; if(fieldname54=="Kcal/kg") LatentH=fieldname53*1.7987962167; if(fieldname54=="kJ/kg") LatentH=fieldname53/2.326; Latent=LatentH*2.326*1000; /* Flow Capacity when fluid data available*/ FlowCap=906.6*HeatW*FFactor/Latent*POW(RTemp/MolW,0.5); /* Flow Capacity when fluid data not available or similar to Hexane*/ /* Table of Venting Flow Rate*/ if(SurfaceA<=2) TableFlow=608; if(AND(SurfaceA>2,SurfaceA<=3)) TableFlow=913; if(AND(SurfaceA>3,SurfaceA<=4)) TableFlow=1217; if(AND(SurfaceA>4,SurfaceA<=5)) TableFlow=1521; if(AND(SurfaceA>5,SurfaceA<=6)) TableFlow=1825; if(AND(SurfaceA>6,SurfaceA<=7)) TableFlow=2130; if(AND(SurfaceA>7,SurfaceA<=8)) TableFlow=2434; if(AND(SurfaceA>8,SurfaceA<9)) TableFlow=2738; if(AND(SurfaceA>9,SurfaceA<=11)) TableFlow=3347; if(AND(SurfaceA>11,SurfaceA<=13)) TableFlow=3955; if(AND(SurfaceA>13,SurfaceA<=15)) TableFlow=4563; if(AND(SurfaceA>15,SurfaceA<=17)) TableFlow=5172; if(AND(SurfaceA>17,SurfaceA<=19)) TableFlow=5780; if(AND(SurfaceA>19,SurfaceA<=22)) TableFlow=6217; if(AND(SurfaceA>22,SurfaceA<=25)) TableFlow=6684; if(AND(SurfaceA>25,SurfaceA<=30)) TableFlow=7411; if(AND(SurfaceA>30,SurfaceA<=35)) TableFlow=8086; if(AND(SurfaceA>35,SurfaceA<=40)) TableFlow=8721; if(AND(SurfaceA>40,SurfaceA<=45)) TableFlow=9322; if(AND(SurfaceA>45,SurfaceA<=50)) TableFlow=9895; if(AND(SurfaceA>50,SurfaceA<=60)) TableFlow=10971; if(AND(SurfaceA>60,SurfaceA<=70)) TableFlow=11971; if(AND(SurfaceA>70,SurfaceA<=80)) TableFlow=12911; if(AND(SurfaceA>80,SurfaceA<=90)) TableFlow=13801; if(AND(SurfaceA>90,SurfaceA<=110)) TableFlow=15461; if(AND(SurfaceA>110,SurfaceA<=130)) TableFlow=15751; if(AND(SurfaceA>130,SurfaceA<=150)) TableFlow=16532; if(AND(SurfaceA>150,SurfaceA<=175)) TableFlow=17416; if(AND(SurfaceA>175,SurfaceA<=200)) TableFlow=18220; if(AND(SurfaceA>200,SurfaceA<=230)) TableFlow=19102; if(AND(SurfaceA>230,SurfaceA<=260)) TableFlow=19910; /* Venting capacity based on design pressure and surface area when fluid data not available */ if(AND(SurfaceA<260,DesignKpa<=103.4)) HexaneFlow=TableFlow*FFactor; if(AND(SurfaceA>=260,DesignKpa<=7)) HexaneFlow=19910*FFactor; if(AND(SurfaceA>=260,DesignKpa>7,DesignKpa<=103.4)) HexaneFlow=208.2*FFactor*POW(SurfaceA,0.82); /* Final Flow Rate for Comparision with Actual Flow */ if(fieldname123=="Yes") FinalRequiredFlow=FlowCap; if(fieldname123=="No") FinalRequiredFlow=HexaneFlow; /* Pressure Relief Valve*/ /* Convert Set Pressure */ SetPgiven=fieldname94; if(fieldname95=="bar g") SetPuse=SetPgiven; if(fieldname95=="kpa g") SetPuse=SetPgiven*0.01; if(fieldname95=="psi g") SetPuse=SetPgiven*0.0689476; if(fieldname95=="kg/cm2 g") SetPuse=SetPgiven*0.980665; if(fieldname95=="mm WC") SetPuse=SetPgiven*9.80665/100000; /* Convert Outlet Pressure */ OutletPressGiven=fieldname97; if(fieldname98=="bar a") OutletPressUse=OutletPressGiven; if(fieldname98=="kpa a") OutletPressUse=OutletPressGiven*0.01; if(fieldname98=="psi a") OutletPressUse=OutletPressGiven*0.0689476; if(fieldname98=="kg/cm2 a") OutletPressUse=OutletPressGiven*0.980665; /* Temp at device inlet*/ TempIn=fieldname143; if(fieldname144=="K") TempInUse=TempIn; if(fieldname144=="°C") TempInUse=TempIn+273.15; if(fieldname144=="°F") TempInUse=(TempIn-32)/1.8+273.15; /* % OverPressure */ OverPress=fieldname140; /*Inlet pressure of the EM Vent*/ PressIn=(SetPuse*(1+OverPress/100)+AtmPreUse)*100; /*Outlet pressure of the EM Vent*/ PressOut=OutletPressUse*100; /* Valve Area Calc*/ Cpcv=fieldname71; Valvesize=fieldname100; Area=Math.PI/4*POW(Valvesize*2.54,2); /*Emergency Vent Theoriticle Flow*/ Fac1=POW(PressOut/PressIn,2/Cpcv); Fac2=POW(PressOut/PressIn,(Cpcv+1)/Cpcv); TheoPRflow=125.15*PressIn*Area*POW(1/(MolW*ComZ*TempInUse)*(Cpcv/(Cpcv-1))*(Fac1-Fac2),0.5)*NoofP; ActulFlow=TheoPRflow*fieldname114; if(ActulFlow*NoofP>FinalRequiredFlow) Concn=NoofP+" No of "+Valvesize+" Inch size of Valve is adequate."; if(ActulFlow*NoofP