У меня есть вектор значений, для которого после серии преобразований, как показано ниже, я хочу найти наименьшее положительное значение z, такое, что z * v является целочисленным вектором в пределах некоторой предельной ошибки, а именно плюс или минус 0,05
library(circular)
v<-c(13.2,15.7,22.78,28.36,34.08,37.85,41.66)
v<-rad(v)
v<-4*sin(v)^2/154.2
Я пытался генерировать случайные значения и оценивать их, но я хочу знать, может ли быть более эффективный способ.
Заранее спасибо