p_rの計算式を修正