The Stack Overflow podcast is back! Listen to an interview with our new CEO.

New answers tagged


There is a bug in the imaginary part in the equation: Tan@z-(value[[1]]+I start[[2]]) Change this and it will work, except when FindRoot does not converge.


A simplified version using indexed variables rather than subscripts. The result will become more complicated and take significantly longer to evaluate as n increases. Clear["Global`*"] Format[c[i_]] := Subscript[c, i] Format[w[i_]] := Subscript[w, i] n = 2; (eqns = q c[# - 1] - q c[#] + e (c[# - 1]*c[#]) + e (c[# + 1] - c[#]) - v c[#] + w[#] == 0 ...

Top 50 recent answers are included