Chris@16: // Copyright 2004 The Trustees of Indiana University. Chris@16: Chris@16: // Distributed under the Boost Software License, Version 1.0. Chris@16: // (See accompanying file LICENSE_1_0.txt or copy at Chris@16: // http://www.boost.org/LICENSE_1_0.txt) Chris@16: Chris@16: // Authors: Douglas Gregor Chris@16: // Andrew Lumsdaine Chris@16: #ifndef BOOST_GRAPH_BRANDES_BETWEENNESS_CENTRALITY_HPP Chris@16: #define BOOST_GRAPH_BRANDES_BETWEENNESS_CENTRALITY_HPP Chris@16: Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: #include Chris@16: Chris@16: namespace boost { Chris@16: Chris@16: namespace detail { namespace graph { Chris@16: Chris@16: /** Chris@16: * Customized visitor passed to Dijkstra's algorithm by Brandes' Chris@16: * betweenness centrality algorithm. This visitor is responsible for Chris@16: * keeping track of the order in which vertices are discovered, the Chris@16: * predecessors on the shortest path(s) to a vertex, and the number Chris@16: * of shortest paths. Chris@16: */ Chris@16: template Chris@16: struct brandes_dijkstra_visitor : public bfs_visitor<> Chris@16: { Chris@16: typedef typename graph_traits::vertex_descriptor vertex_descriptor; Chris@16: typedef typename graph_traits::edge_descriptor edge_descriptor; Chris@16: Chris@16: brandes_dijkstra_visitor(std::stack& ordered_vertices, Chris@16: WeightMap weight, Chris@16: IncomingMap incoming, Chris@16: DistanceMap distance, Chris@16: PathCountMap path_count) Chris@16: : ordered_vertices(ordered_vertices), weight(weight), Chris@16: incoming(incoming), distance(distance), Chris@16: path_count(path_count) Chris@16: { } Chris@16: Chris@16: /** Chris@16: * Whenever an edge e = (v, w) is relaxed, the incoming edge list Chris@16: * for w is set to {(v, w)} and the shortest path count of w is set to Chris@16: * the number of paths that reach {v}. Chris@16: */ Chris@16: void edge_relaxed(edge_descriptor e, const Graph& g) Chris@16: { Chris@16: vertex_descriptor v = source(e, g), w = target(e, g); Chris@16: incoming[w].clear(); Chris@16: incoming[w].push_back(e); Chris@16: put(path_count, w, get(path_count, v)); Chris@16: } Chris@16: Chris@16: /** Chris@16: * If an edge e = (v, w) was not relaxed, it may still be the case Chris@16: * that we've found more equally-short paths, so include {(v, w)} in the Chris@16: * incoming edges of w and add all of the shortest paths to v to the Chris@16: * shortest path count of w. Chris@16: */ Chris@16: void edge_not_relaxed(edge_descriptor e, const Graph& g) Chris@16: { Chris@16: typedef typename property_traits::value_type weight_type; Chris@16: typedef typename property_traits::value_type distance_type; Chris@16: vertex_descriptor v = source(e, g), w = target(e, g); Chris@16: distance_type d_v = get(distance, v), d_w = get(distance, w); Chris@16: weight_type w_e = get(weight, e); Chris@16: Chris@16: closed_plus combine; Chris@16: if (d_w == combine(d_v, w_e)) { Chris@16: put(path_count, w, get(path_count, w) + get(path_count, v)); Chris@16: incoming[w].push_back(e); Chris@16: } Chris@16: } Chris@16: Chris@16: /// Keep track of vertices as they are reached Chris@16: void examine_vertex(vertex_descriptor w, const Graph&) Chris@16: { Chris@16: ordered_vertices.push(w); Chris@16: } Chris@16: Chris@16: private: Chris@16: std::stack& ordered_vertices; Chris@16: WeightMap weight; Chris@16: IncomingMap incoming; Chris@16: DistanceMap distance; Chris@16: PathCountMap path_count; Chris@16: }; Chris@16: Chris@16: /** Chris@16: * Function object that calls Dijkstra's shortest paths algorithm Chris@16: * using the Dijkstra visitor for the Brandes betweenness centrality Chris@16: * algorithm. Chris@16: */ Chris@16: template Chris@16: struct brandes_dijkstra_shortest_paths Chris@16: { Chris@16: brandes_dijkstra_shortest_paths(WeightMap weight_map) Chris@16: : weight_map(weight_map) { } Chris@16: Chris@16: template Chris@16: void Chris@16: operator()(Graph& g, Chris@16: typename graph_traits::vertex_descriptor s, Chris@16: std::stack::vertex_descriptor>& ov, Chris@16: IncomingMap incoming, Chris@16: DistanceMap distance, Chris@16: PathCountMap path_count, Chris@16: VertexIndexMap vertex_index) Chris@16: { Chris@16: typedef brandes_dijkstra_visitor visitor_type; Chris@16: visitor_type visitor(ov, weight_map, incoming, distance, path_count); Chris@16: Chris@16: dijkstra_shortest_paths(g, s, Chris@16: boost::weight_map(weight_map) Chris@16: .vertex_index_map(vertex_index) Chris@16: .distance_map(distance) Chris@16: .visitor(visitor)); Chris@16: } Chris@16: Chris@16: private: Chris@16: WeightMap weight_map; Chris@16: }; Chris@16: Chris@16: /** Chris@16: * Function object that invokes breadth-first search for the Chris@16: * unweighted form of the Brandes betweenness centrality algorithm. Chris@16: */ Chris@16: struct brandes_unweighted_shortest_paths Chris@16: { Chris@16: /** Chris@16: * Customized visitor passed to breadth-first search, which Chris@16: * records predecessor and the number of shortest paths to each Chris@16: * vertex. Chris@16: */ Chris@16: template Chris@16: struct visitor_type : public bfs_visitor<> Chris@16: { Chris@16: typedef typename graph_traits::edge_descriptor edge_descriptor; Chris@16: typedef typename graph_traits::vertex_descriptor Chris@16: vertex_descriptor; Chris@16: Chris@16: visitor_type(IncomingMap incoming, DistanceMap distance, Chris@16: PathCountMap path_count, Chris@16: std::stack& ordered_vertices) Chris@16: : incoming(incoming), distance(distance), Chris@16: path_count(path_count), ordered_vertices(ordered_vertices) { } Chris@16: Chris@16: /// Keep track of vertices as they are reached Chris@16: void examine_vertex(vertex_descriptor v, Graph&) Chris@16: { Chris@16: ordered_vertices.push(v); Chris@16: } Chris@16: Chris@16: /** Chris@16: * Whenever an edge e = (v, w) is labelled a tree edge, the Chris@16: * incoming edge list for w is set to {(v, w)} and the shortest Chris@16: * path count of w is set to the number of paths that reach {v}. Chris@16: */ Chris@16: void tree_edge(edge_descriptor e, Graph& g) Chris@16: { Chris@16: vertex_descriptor v = source(e, g); Chris@16: vertex_descriptor w = target(e, g); Chris@16: put(distance, w, get(distance, v) + 1); Chris@16: Chris@16: put(path_count, w, get(path_count, v)); Chris@16: incoming[w].push_back(e); Chris@16: } Chris@16: Chris@16: /** Chris@16: * If an edge e = (v, w) is not a tree edge, it may still be the Chris@16: * case that we've found more equally-short paths, so include (v, w) Chris@16: * in the incoming edge list of w and add all of the shortest Chris@16: * paths to v to the shortest path count of w. Chris@16: */ Chris@16: void non_tree_edge(edge_descriptor e, Graph& g) Chris@16: { Chris@16: vertex_descriptor v = source(e, g); Chris@16: vertex_descriptor w = target(e, g); Chris@16: if (get(distance, w) == get(distance, v) + 1) { Chris@16: put(path_count, w, get(path_count, w) + get(path_count, v)); Chris@16: incoming[w].push_back(e); Chris@16: } Chris@16: } Chris@16: Chris@16: private: Chris@16: IncomingMap incoming; Chris@16: DistanceMap distance; Chris@16: PathCountMap path_count; Chris@16: std::stack& ordered_vertices; Chris@16: }; Chris@16: Chris@16: template Chris@16: void Chris@16: operator()(Graph& g, Chris@16: typename graph_traits::vertex_descriptor s, Chris@16: std::stack::vertex_descriptor>& ov, Chris@16: IncomingMap incoming, Chris@16: DistanceMap distance, Chris@16: PathCountMap path_count, Chris@16: VertexIndexMap vertex_index) Chris@16: { Chris@16: typedef typename graph_traits::vertex_descriptor Chris@16: vertex_descriptor; Chris@16: Chris@16: visitor_type Chris@16: visitor(incoming, distance, path_count, ov); Chris@16: Chris@16: std::vector Chris@16: colors(num_vertices(g), color_traits::white()); Chris@16: boost::queue Q; Chris@16: breadth_first_visit(g, s, Q, visitor, Chris@16: make_iterator_property_map(colors.begin(), Chris@16: vertex_index)); Chris@16: } Chris@16: }; Chris@16: Chris@16: // When the edge centrality map is a dummy property map, no Chris@16: // initialization is needed. Chris@16: template Chris@16: inline void Chris@16: init_centrality_map(std::pair, dummy_property_map) { } Chris@16: Chris@16: // When we have a real edge centrality map, initialize all of the Chris@16: // centralities to zero. Chris@16: template Chris@16: void Chris@16: init_centrality_map(std::pair keys, Centrality centrality_map) Chris@16: { Chris@16: typedef typename property_traits::value_type Chris@16: centrality_type; Chris@16: while (keys.first != keys.second) { Chris@16: put(centrality_map, *keys.first, centrality_type(0)); Chris@16: ++keys.first; Chris@16: } Chris@16: } Chris@16: Chris@16: // When the edge centrality map is a dummy property map, no update Chris@16: // is performed. Chris@16: template Chris@16: inline void Chris@16: update_centrality(dummy_property_map, const Key&, const T&) { } Chris@16: Chris@16: // When we have a real edge centrality map, add the value to the map Chris@16: template Chris@16: inline void Chris@16: update_centrality(CentralityMap centrality_map, Key k, const T& x) Chris@16: { put(centrality_map, k, get(centrality_map, k) + x); } Chris@16: Chris@16: template Chris@16: inline void Chris@16: divide_centrality_by_two(std::pair, dummy_property_map) {} Chris@16: Chris@16: template Chris@16: inline void Chris@16: divide_centrality_by_two(std::pair keys, Chris@16: CentralityMap centrality_map) Chris@16: { Chris@16: typename property_traits::value_type two(2); Chris@16: while (keys.first != keys.second) { Chris@16: put(centrality_map, *keys.first, get(centrality_map, *keys.first) / two); Chris@16: ++keys.first; Chris@16: } Chris@16: } Chris@16: Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality_impl(const Graph& g, Chris@16: CentralityMap centrality, // C_B Chris@16: EdgeCentralityMap edge_centrality_map, Chris@16: IncomingMap incoming, // P Chris@16: DistanceMap distance, // d Chris@16: DependencyMap dependency, // delta Chris@16: PathCountMap path_count, // sigma Chris@16: VertexIndexMap vertex_index, Chris@16: ShortestPaths shortest_paths) Chris@16: { Chris@16: typedef typename graph_traits::vertex_iterator vertex_iterator; Chris@16: typedef typename graph_traits::vertex_descriptor vertex_descriptor; Chris@16: Chris@16: // Initialize centrality Chris@16: init_centrality_map(vertices(g), centrality); Chris@16: init_centrality_map(edges(g), edge_centrality_map); Chris@16: Chris@16: std::stack ordered_vertices; Chris@16: vertex_iterator s, s_end; Chris@16: for (boost::tie(s, s_end) = vertices(g); s != s_end; ++s) { Chris@16: // Initialize for this iteration Chris@16: vertex_iterator w, w_end; Chris@16: for (boost::tie(w, w_end) = vertices(g); w != w_end; ++w) { Chris@16: incoming[*w].clear(); Chris@16: put(path_count, *w, 0); Chris@16: put(dependency, *w, 0); Chris@16: } Chris@16: put(path_count, *s, 1); Chris@16: Chris@16: // Execute the shortest paths algorithm. This will be either Chris@16: // Dijkstra's algorithm or a customized breadth-first search, Chris@16: // depending on whether the graph is weighted or unweighted. Chris@16: shortest_paths(g, *s, ordered_vertices, incoming, distance, Chris@16: path_count, vertex_index); Chris@16: Chris@16: while (!ordered_vertices.empty()) { Chris@16: vertex_descriptor w = ordered_vertices.top(); Chris@16: ordered_vertices.pop(); Chris@16: Chris@16: typedef typename property_traits::value_type Chris@16: incoming_type; Chris@16: typedef typename incoming_type::iterator incoming_iterator; Chris@16: typedef typename property_traits::value_type Chris@16: dependency_type; Chris@16: Chris@16: for (incoming_iterator vw = incoming[w].begin(); Chris@16: vw != incoming[w].end(); ++vw) { Chris@16: vertex_descriptor v = source(*vw, g); Chris@16: dependency_type factor = dependency_type(get(path_count, v)) Chris@16: / dependency_type(get(path_count, w)); Chris@16: factor *= (dependency_type(1) + get(dependency, w)); Chris@16: put(dependency, v, get(dependency, v) + factor); Chris@16: update_centrality(edge_centrality_map, *vw, factor); Chris@16: } Chris@16: Chris@16: if (w != *s) { Chris@16: update_centrality(centrality, w, get(dependency, w)); Chris@16: } Chris@16: } Chris@16: } Chris@16: Chris@16: typedef typename graph_traits::directed_category directed_category; Chris@16: const bool is_undirected = Chris@16: is_convertible::value; Chris@16: if (is_undirected) { Chris@16: divide_centrality_by_two(vertices(g), centrality); Chris@16: divide_centrality_by_two(edges(g), edge_centrality_map); Chris@16: } Chris@16: } Chris@16: Chris@16: } } // end namespace detail::graph Chris@16: Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality(const Graph& g, Chris@16: CentralityMap centrality, // C_B Chris@16: EdgeCentralityMap edge_centrality_map, Chris@16: IncomingMap incoming, // P Chris@16: DistanceMap distance, // d Chris@16: DependencyMap dependency, // delta Chris@16: PathCountMap path_count, // sigma Chris@16: VertexIndexMap vertex_index Chris@16: BOOST_GRAPH_ENABLE_IF_MODELS_PARM(Graph,vertex_list_graph_tag)) Chris@16: { Chris@16: detail::graph::brandes_unweighted_shortest_paths shortest_paths; Chris@16: Chris@16: detail::graph::brandes_betweenness_centrality_impl(g, centrality, Chris@16: edge_centrality_map, Chris@16: incoming, distance, Chris@16: dependency, path_count, Chris@16: vertex_index, Chris@16: shortest_paths); Chris@16: } Chris@16: Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality(const Graph& g, Chris@16: CentralityMap centrality, // C_B Chris@16: EdgeCentralityMap edge_centrality_map, Chris@16: IncomingMap incoming, // P Chris@16: DistanceMap distance, // d Chris@16: DependencyMap dependency, // delta Chris@16: PathCountMap path_count, // sigma Chris@16: VertexIndexMap vertex_index, Chris@16: WeightMap weight_map Chris@16: BOOST_GRAPH_ENABLE_IF_MODELS_PARM(Graph,vertex_list_graph_tag)) Chris@16: { Chris@16: detail::graph::brandes_dijkstra_shortest_paths Chris@16: shortest_paths(weight_map); Chris@16: Chris@16: detail::graph::brandes_betweenness_centrality_impl(g, centrality, Chris@16: edge_centrality_map, Chris@16: incoming, distance, Chris@16: dependency, path_count, Chris@16: vertex_index, Chris@16: shortest_paths); Chris@16: } Chris@16: Chris@16: namespace detail { namespace graph { Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality_dispatch2(const Graph& g, Chris@16: CentralityMap centrality, Chris@16: EdgeCentralityMap edge_centrality_map, Chris@16: WeightMap weight_map, Chris@16: VertexIndexMap vertex_index) Chris@16: { Chris@16: typedef typename graph_traits::degree_size_type degree_size_type; Chris@16: typedef typename graph_traits::edge_descriptor edge_descriptor; Chris@16: typedef typename mpl::if_c<(is_same::value), Chris@16: EdgeCentralityMap, Chris@16: CentralityMap>::type a_centrality_map; Chris@16: typedef typename property_traits::value_type Chris@16: centrality_type; Chris@16: Chris@16: typename graph_traits::vertices_size_type V = num_vertices(g); Chris@16: Chris@16: std::vector > incoming(V); Chris@16: std::vector distance(V); Chris@16: std::vector dependency(V); Chris@16: std::vector path_count(V); Chris@16: Chris@16: brandes_betweenness_centrality( Chris@16: g, centrality, edge_centrality_map, Chris@16: make_iterator_property_map(incoming.begin(), vertex_index), Chris@16: make_iterator_property_map(distance.begin(), vertex_index), Chris@16: make_iterator_property_map(dependency.begin(), vertex_index), Chris@16: make_iterator_property_map(path_count.begin(), vertex_index), Chris@16: vertex_index, Chris@16: weight_map); Chris@16: } Chris@16: Chris@16: Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality_dispatch2(const Graph& g, Chris@16: CentralityMap centrality, Chris@16: EdgeCentralityMap edge_centrality_map, Chris@16: VertexIndexMap vertex_index) Chris@16: { Chris@16: typedef typename graph_traits::degree_size_type degree_size_type; Chris@16: typedef typename graph_traits::edge_descriptor edge_descriptor; Chris@16: typedef typename mpl::if_c<(is_same::value), Chris@16: EdgeCentralityMap, Chris@16: CentralityMap>::type a_centrality_map; Chris@16: typedef typename property_traits::value_type Chris@16: centrality_type; Chris@16: Chris@16: typename graph_traits::vertices_size_type V = num_vertices(g); Chris@16: Chris@16: std::vector > incoming(V); Chris@16: std::vector distance(V); Chris@16: std::vector dependency(V); Chris@16: std::vector path_count(V); Chris@16: Chris@16: brandes_betweenness_centrality( Chris@16: g, centrality, edge_centrality_map, Chris@16: make_iterator_property_map(incoming.begin(), vertex_index), Chris@16: make_iterator_property_map(distance.begin(), vertex_index), Chris@16: make_iterator_property_map(dependency.begin(), vertex_index), Chris@16: make_iterator_property_map(path_count.begin(), vertex_index), Chris@16: vertex_index); Chris@16: } Chris@16: Chris@16: template Chris@16: struct brandes_betweenness_centrality_dispatch1 Chris@16: { Chris@16: template Chris@16: static void Chris@16: run(const Graph& g, CentralityMap centrality, Chris@16: EdgeCentralityMap edge_centrality_map, VertexIndexMap vertex_index, Chris@16: WeightMap weight_map) Chris@16: { Chris@16: brandes_betweenness_centrality_dispatch2(g, centrality, edge_centrality_map, Chris@16: weight_map, vertex_index); Chris@16: } Chris@16: }; Chris@16: Chris@16: template<> Chris@16: struct brandes_betweenness_centrality_dispatch1 Chris@16: { Chris@16: template Chris@16: static void Chris@16: run(const Graph& g, CentralityMap centrality, Chris@16: EdgeCentralityMap edge_centrality_map, VertexIndexMap vertex_index, Chris@16: param_not_found) Chris@16: { Chris@16: brandes_betweenness_centrality_dispatch2(g, centrality, edge_centrality_map, Chris@16: vertex_index); Chris@16: } Chris@16: }; Chris@16: Chris@16: template Chris@16: struct is_bgl_named_params { Chris@16: BOOST_STATIC_CONSTANT(bool, value = false); Chris@16: }; Chris@16: Chris@16: template Chris@16: struct is_bgl_named_params > { Chris@16: BOOST_STATIC_CONSTANT(bool, value = true); Chris@16: }; Chris@16: Chris@16: } } // end namespace detail::graph Chris@16: Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality(const Graph& g, Chris@16: const bgl_named_params& params Chris@16: BOOST_GRAPH_ENABLE_IF_MODELS_PARM(Graph,vertex_list_graph_tag)) Chris@16: { Chris@16: typedef bgl_named_params named_params; Chris@16: Chris@16: typedef typename get_param_type::type ew; Chris@16: detail::graph::brandes_betweenness_centrality_dispatch1::run( Chris@16: g, Chris@16: choose_param(get_param(params, vertex_centrality), Chris@16: dummy_property_map()), Chris@16: choose_param(get_param(params, edge_centrality), Chris@16: dummy_property_map()), Chris@16: choose_const_pmap(get_param(params, vertex_index), g, vertex_index), Chris@16: get_param(params, edge_weight)); Chris@16: } Chris@16: Chris@16: // disable_if is required to work around problem with MSVC 7.1 (it seems to not Chris@16: // get partial ordering getween this overload and the previous one correct) Chris@16: template Chris@16: typename disable_if, Chris@16: void>::type Chris@16: brandes_betweenness_centrality(const Graph& g, CentralityMap centrality Chris@16: BOOST_GRAPH_ENABLE_IF_MODELS_PARM(Graph,vertex_list_graph_tag)) Chris@16: { Chris@16: detail::graph::brandes_betweenness_centrality_dispatch2( Chris@16: g, centrality, dummy_property_map(), get(vertex_index, g)); Chris@16: } Chris@16: Chris@16: template Chris@16: void Chris@16: brandes_betweenness_centrality(const Graph& g, CentralityMap centrality, Chris@16: EdgeCentralityMap edge_centrality_map Chris@16: BOOST_GRAPH_ENABLE_IF_MODELS_PARM(Graph,vertex_list_graph_tag)) Chris@16: { Chris@16: detail::graph::brandes_betweenness_centrality_dispatch2( Chris@16: g, centrality, edge_centrality_map, get(vertex_index, g)); Chris@16: } Chris@16: Chris@16: /** Chris@16: * Converts "absolute" betweenness centrality (as computed by the Chris@16: * brandes_betweenness_centrality algorithm) in the centrality map Chris@16: * into "relative" centrality. The result is placed back into the Chris@16: * given centrality map. Chris@16: */ Chris@16: template Chris@16: void Chris@16: relative_betweenness_centrality(const Graph& g, CentralityMap centrality) Chris@16: { Chris@16: typedef typename graph_traits::vertex_iterator vertex_iterator; Chris@16: typedef typename property_traits::value_type centrality_type; Chris@16: Chris@16: typename graph_traits::vertices_size_type n = num_vertices(g); Chris@16: centrality_type factor = centrality_type(2)/centrality_type(n*n - 3*n + 2); Chris@16: vertex_iterator v, v_end; Chris@16: for (boost::tie(v, v_end) = vertices(g); v != v_end; ++v) { Chris@16: put(centrality, *v, factor * get(centrality, *v)); Chris@16: } Chris@16: } Chris@16: Chris@16: // Compute the central point dominance of a graph. Chris@16: template Chris@16: typename property_traits::value_type Chris@16: central_point_dominance(const Graph& g, CentralityMap centrality Chris@16: BOOST_GRAPH_ENABLE_IF_MODELS_PARM(Graph,vertex_list_graph_tag)) Chris@16: { Chris@16: using std::max; Chris@16: Chris@16: typedef typename graph_traits::vertex_iterator vertex_iterator; Chris@16: typedef typename property_traits::value_type centrality_type; Chris@16: Chris@16: typename graph_traits::vertices_size_type n = num_vertices(g); Chris@16: Chris@16: // Find max centrality Chris@16: centrality_type max_centrality(0); Chris@16: vertex_iterator v, v_end; Chris@16: for (boost::tie(v, v_end) = vertices(g); v != v_end; ++v) { Chris@16: max_centrality = (max)(max_centrality, get(centrality, *v)); Chris@16: } Chris@16: Chris@16: // Compute central point dominance Chris@16: centrality_type sum(0); Chris@16: for (boost::tie(v, v_end) = vertices(g); v != v_end; ++v) { Chris@16: sum += (max_centrality - get(centrality, *v)); Chris@16: } Chris@16: return sum/(n-1); Chris@16: } Chris@16: Chris@16: } // end namespace boost Chris@16: Chris@16: #endif // BOOST_GRAPH_BRANDES_BETWEENNESS_CENTRALITY_HPP