Почему Вы после преобразований интегрируете от 0 до R*cos(fi)? Там же будет просто от 0 до R.