Function series_phi(myRent, myF_max)
    
    'myRent is the Rent parameter of the circuit
    'myF_max is the maximum fan-out of the circuit [Column-W in the spreadsheet]
    
    Dim iLoop As Integer
    Dim dblSum As Double
    
    iF_max = myF_max
    dblSum = 0#
    
    For iLoop = 1 To myF_max
        dblSum = dblSum + ((iLoop ^ myRent) / ((iLoop ^ 2) * (iLoop + 1)))
    Next iLoop
    
    series_phi = dblSum		'Returns the value of phi(p, f_max)

    
End Function