12.07.2015 Views

Heavy metal adsorption on iron oxide and iron oxide-coated silica ...

Heavy metal adsorption on iron oxide and iron oxide-coated silica ...

Heavy metal adsorption on iron oxide and iron oxide-coated silica ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

181Next iCsDim fSorbCalc As Double, fSorbCalcO As DoubleDim fHours As DoublefHours = fTime(nCBC) + 24#fSorbCalcO = fSorbPred(nCBC)DofSorbCalc = 0#For j = 1 To nPSDflnfSeries = 0#titer = 1#DofA = flier A 2fA = Exp(-fD * fA * fPi A 2 * fHours / fRad(j) A 2) / fAflnfSeries = flnfSeries + fAflier = flier + 1#Loop Until fA < fTol * flnfSeries Or fA = 0#fMass(j) = (fCs * fDen) * (1# - 6# / fPi A 2 * flnfSeries)fMass(j) = fMass(j) * fVol(j)fSorbCalc = fSorbCalc + fMass(j)Next jfSorbCalc = (fSorbCalc + fCs * fDen) / fDenIf Abs(fSorbCalc - fSorbCalcO) / fSorbCalc < fTol / 10# ThenExit DoElsefSorbCalcO = fSorbCalcfHours = fHours + 24#End IfLoopCells(9, 7) = fHours / 24# / 365#Cells(10, 7) = fSorbCalcEnd Functi<strong>on</strong>

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!