mathematica运行好一天了还算不出来！！求大神解救

Solve[r == Abs[3*Cos[Pi*n1] + n1*Sin[Pi*n1]*1 I - (Sin[Pi*n1]*4 I)/n1]^2/ Abs[5*Cos[n1*Pi] + n1*Sin[n1*Pi]*1 I + (Sin[n1*Pi]*4 I)/n1]^2, n1, Method -> Reduce]