
<!--
function compute(data,CurrentDate)
{
  var f=document.effectivesolubility;

    
  var esoutput = 0;
  var mf = 0;
  var mwoil = 0;
  var mw = 0;
  var sol = 0;
  var rsol = 0;
  var sum = 0;
  var summf = 0;
  var note = "";
  mchemical = new Array(4);
  var SiteName = "";
  var SiteDate = "";
  var date = new Date();
  var Ent = new Array();

  var fuel = "0";
  var chemical = "0";

  if (data=="noexample" || data=="save")
    { 

     SiteName = f.site.value;
     if (CurrentDate) {SiteDate = ShortDate(date); f.date.value=SiteDate;} 
     else {SiteDate = f.date.value;}


     if (data=="save")
     {
      //display the cookie message
      window.open('../../home/storage.html','storage','width=620,height=400,resizable');
      return;


      /*
      //save data for future use
      SiteName = f.site.value;
      SiteDate = f.date.value;

      //store the data in an array for saving to cookie
      Ent[0] = SiteDate;
      Ent[1] = SiteName;

      //create the id cookie
      save("id",Ent);


      //store the chemical name
      Ent[0] = f.chemical.selectedIndex;
      save ("ch",Ent);
 
      //store the fuel name
      Ent[0] = f.fuel.selectedIndex;
      save ("fu",Ent);
      */

     }
   }

  if (data=="example")
   {
    SiteDate = ShortDate(date);
    SiteName = "Example Effective Solubility";

    f.fuel.selectedIndex = 0;
    f.chemical.selectedIndex = 0;
   }

   if (data=="restore")
     {
      //display the cookie message
      window.open('../../home/storage.html','storage','width=620,height=400,resizable');
      return;

      /*
      //recover each value from the cookie
      SiteDate = restore("id","date");
      SiteName = restore("id","site");
      f.chemical.selectedIndex = restore('ch','chemical');
      f.fuel.selectedIndex = restore('fu','fuel');
      */
     }


  if (data=="example" || data=="restore")
    {
      f.date.value = SiteDate;
      f.site.value = SiteName;
    }

  f.fuel.selectedIndex = CheckSelection (f.fuel); 
  fuel = f.fuel.options[f.fuel.selectedIndex].value;
  chemical = f.chemical.options[f.chemical.selectedIndex].value;

  if (data=="clear")
    {
     f.site.value = "";
     f.date.value = "";

     f.massfraction.value = "";
     f.esoutput.value = "";
     f.outsol.value = "";
     f.AvgMw.value = "";
     f.note.value = "";
     f.chemical.selectedIndex = -1;
     f.fuel.selectedIndex = -1;
    
     return;
    }
   


  if (chemical=="totalBTEX") 
    {
     //if a fuel was defined sum all the btex effective solubilities
     if (fuel!="other")
      {
        mchemical[0] = "benzene";
        mchemical[1] = "toluene";
        mchemical[2] = "ethylbenzene";
        mchemical[3] = "totalxylene";
        
        for (i=0 ; i<4 ; i++)
          {
             sol = solubility(mchemical[i]);
             mw = mole(mchemical[i]);
             mf = composition(fuel,mchemical[i]);
             mwoil = fuelmw(fuel);
             summf = summf + mf
             sum = sum + mf*(mwoil/mw)*sol;
          }
          f.massfraction.value = summf*100;
          f.AvgMw.value = mwoil;
          f.outsol.value = "*";
          f.esoutput.value = Num2String(sum,3,-10,10,-6,6);
       }
      else
       {
         //can not do this if a specific fuel was not selected
         f.massfraction.value = "*";
         f.outsol.value = "*";
         f.esoutput.value = "pick another fuel"
       }
      }  
   else
       { 

         if (fuel=="other")
           {
             //let the user enter a mass fraction instead of using the internal data
             mf = Input(f.massfraction.value);
             mf = mf/100
             note = "User specified mass fraction"
             //let the user enter the average molecular weight
             mwoil = parseFloat(f.AvgMw.value)
             if (isNaN(mwoil)) {mwoil=105; f.AvgMw.value=Num2String(105,3,-15,15,-6,6);}
           }
         else
           {  
             //get the value from the selected fuel
             mf = composition(fuel,chemical);
             mwoil = fuelmw(fuel);
           }

         //get the solubility for the selected chemical
         sol = solubility(chemical);
 
         //allow for revised solubility
         rsol = sol;
         rsol = parseFloat(f.revisesol.value)
         if (rsol!=sol)
           {
             if (isNaN(rsol)) {rsol=sol; f.revisesol.value = Num2String(sol,3,-15,15,-6,6);}
             else {sol = rsol; f.outsol.value = rsol;}
           }


         //get the molecular weight for the selected chemical
         mw = mole(chemical);
         //note on the fuel type
         note = fuelnote(fuel);

         //adjust average molecular weight to prevent effective solubilities from being greater than
         //the pure compound solubility
         mwoil = mf*mw + (1-mf)*mwoil;

         esoutput = mf*(mwoil/mw)*sol; 

        
         //set the output text boxes
         f.outsol.value = Num2String(sol,3,-15,15,-6,6);
         f.AvgMw.value = Num2String(mwoil,3,-15,15,-6,6);
         f.note.value = note

         if (mf>=0) {f.massfraction.value = Num2String(mf*100,3,-15,15,-6,6);}
         else {f.massfraction.value = "";}

         if (mf<0) {f.esoutput.value = "data not available";}
         else {f.esoutput.value = Num2String(esoutput,3,-10,10,-5,5);}

         //save the revised solubility and mass fraction data
         if (data=='save')
           {
             Ent[0] = mf;
             Ent[1] = rsol;
             Ent[2] = mwoil;
             save('es',Ent);
           }
         }
     
f.revisesol.value = "";

}
//-->
<!-- end es_1.js -->