I had a problem where I had to solve a series of equations where some of the variables can take multiple value such as shown below
c[0]={0.0871817, 0.0850908, 0.0826321}
c[3]={0.0874968, 0.0857884, 0.0838024}
d[0]={2.23049*10^-6, 6.46928*10^-6, 0.0000128172}
d[1]={2.04172*10^-6, 5.90291*10^-6, 0.0000116484}
d[2]={1.86443*10^-6, 5.37164*10^-6, 0.0000105544}
And I'd like to solve for conc[1] and conc[2]
d[0]*(c[0] - conc[1]) = d[1]*(conc[1] - conc[2])
d[1]*(conc[1] - conc[2]) = d[2]*(conc[2] - c[3])
So I used Solve in such way
Solve[Thread[d[0]*(c[0] - conc[1]) == d[1]*(conc[1] - conc[2])] &&
Thread[d[1]*(conc[1] - conc[2]) == d[2]*(conc[2] - c[3])], {conc[1],
conc[2]}]
which didn't gave me the right answer. I wonder if this is a legit approach or there's any other way to do it? I had a similar question yesterday that prompt me to use Thread for this kind of problems https://mathematica.stackexchange.com/questions/97054/solve-equation-with-a-variable-of-multiple-value I'm not sure if this method fit for my current problem.
Thanks for reading and let me know if you have any questions or suggestions!
conc[ ]
supposed to be?Lists? Reals? $\endgroup$