vector диполя
IPR исправлен. cosI добавлен