R'(t)=R(t)/(tan(t)*(n-(1-n)*(2cos(t)+(cos(t))^2)))