# Solve a set of N coupled algebraic equations with "Solve"?

Posted 1 year ago
1066 Views
|
2 Replies
|
1 Total Likes
|
 Hello everyone. I'm attempting to solve a set of N coupled algebraic equations using "Solve". I've successfully done it for a small value of N (2~3 coupled equations, for example), simply by typing the equations as: Solve[{eq1},{eq2},{eq3},{x1,x2,x3}]; however, it's just impracticable when N is high. That being said, I tried to define an array with all my variables: v = Array[t,n] = {t,t,...,t[n]} and, with a loop structure, I tried - with no success - to solve 3 equations. In attachment is what I've done so far.Thank you for you attention. Attachments: Answer
2 Replies
Sort By:
Posted 1 year ago
 Do you mean something like this? n = 4; eqs = DeleteCases[Flatten[Table[ If[i =!= j, \[Eta]^2 (t[i]^2 - w^2) == Product[(t[i] - t[j] - \[Eta])/(t[i] - t[j] + \[Eta]), {j, 1, n}]], {i, 1, n}, {j, i , n}]], Null] Answer
Posted 1 year ago
 Exactly! Thank you so much! Answer
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments