Manipulate[
  (Pi*(d/2)^2*c*e^3*Rb^2)*((3*(1 - e)*0.0728*Cos[t])/(e*L*Rb)+9800*Sin[p]))/((1 - e)^2*0.00089),
     {{L, 0.07, "wick length"}, 0.01, 0.1},
     {{d, 0.0068, "wick diameter"},0.001, 0.008},
     {c, 1/60, 1/30},
     {{e, 0.5, "porosity"}, 0.3, 0.9},
     {{Rb, 0.0001, "fiber radius"}, 0.00001, 0.0002},
     {{t, 70*(Pi/180), "contact angle"},0, Pi/2},
     {{p, Pi/2, "wick orientation"}, 0, Pi/2}]