hplnoz= new Array(60.,115.,230.,460.,920.); var numhpl=24; lplnoz= new Array(50.,100.,200.,400.); var numlpl=16; function roundoff(value, precision) { var result; value = "" + value //convert value to string precision = parseInt(precision); var whole = "" + Math.round(value * Math.pow(10, precision)); var decPoint = whole.length - precision; if(decPoint != 0) { result = whole.substring(0, decPoint); result += "."; result += whole.substring(decPoint, whole.length); } else { result = whole; } return result; } function flowrate(flowind,noz) { var i,flow,flowpt; var na=noz.length; flow=0.0; flowpt=flowind; for (i=0;i>=1; } return flow; } var rhof; //make this a global function densityratio(press,temp) { var rhob; rhof=NX19RHOF(temp,press,0.57,0.5,1.0); rhob=NX19RHOB(temp,press,0.57,0.5,1.0); return rhof/rhob; } function flowtable(press,temp,dia,loop) { var i,nn,drat,area; var vel,macfh,massf,mmscfd; var noz; drat=densityratio(press,temp); area=Math.PI*dia*dia/576.; document.writeln(""); document.writeln(""); document.writeln("

"); document.writeln("MRF "+loop+" Flow Rates
"); document.writeln("For a meter with ID=",roundoff(dia,3)," inches at P=",roundoff(press,1)); document.writeln(" psig, T=",roundoff(temp,1)," F
"); document.writeln("

"); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); if (loop=="HPL") { nn=numhpl; noz=hplnoz; } else { if (loop=="LPL") { nn=numlpl; noz=lplnoz; } } for (i=1;i"); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); document.writeln(""); } document.writeln("
PointVelocity(ft/s)MACF/HMassFlow(lb/min)MMSCF/D
",i,"",roundoff(vel,2),"",roundoff(macfh,1),"",roundoff(massf,1),"",roundoff(mmscfd,1),"
"); document.writeln("

The above values are for estimating purposes only.
"); document.writeln("Southwest Research Institute

"); }