P=(Subscript[Q, r])(R/2)((R/2)-r)jwC+(R/2)(Subscript[Q, r])+(Subscript[Q, r])((R/2)-r)