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