Hello Everyone! I'm trying to solve a system of non-linear equations using the 'Solve' function in Mathematica 10.0 (code and code file of which are attached herewith). However, the function is not able to solve them. It is running for 2 hours and nothing happened. I have double-checked my equations and I have used space for multiplication.
e1 = Subscript[k, 1] po2^(1/2) cv - Subscript[k, -1] cos -
Subscript[k, 7] ccs cos == 0;
e2 = Subscript[k, 2] pch4 cv - Subscript[k, -2] cch4s -
Subscript[k, 3] cch4s cv + Subscript[k, -3] cch3s chs == 0;
e3 = Subscript[k, 3] cch4s cv - Subscript[k, -3] cch3s chs -
Subscript[k, 4] cch3s cv + Subscript[k, -4] cch2s chs == 0;
e4 = Subscript[k, 4] cch3s cv - Subscript[k, -4] cch2s chs -
Subscript[k, 5] cch2s cv + Subscript[k, -5] cchs chs == 0;
e5 = Subscript[k, 5] cch2s cv - Subscript[k, -5] cchs chs -
Subscript[k, 6] cchs cv + Subscript[k, -6] ccs chs == 0;
e6 = Subscript[k, 6] cchs cv - Subscript[k, -6] ccs chs -
Subscript[k, 7] ccs cos == 0;
e7 = Subscript[k, 7] ccs cos - Subscript[k, 9] ccos +
Subscript[k, -9] pco cv == 0;
e8 = Subscript[k, 8] chs^2 - Subscript[k, 10] ch2s +
Subscript[k, -10] ph2 cv == 0;
e9 = Subscript[k, 3] cch4s cv - Subscript[k, -3] cch3s chs +
Subscript[k, 4] cch3s cv - Subscript[k, -4] cch2s chs +
Subscript[k, 5] cch2s cv - Subscript[k, -5] cchs chs +
Subscript[k, 6] cchs cv - Subscript[k, -6] ccs chs -
Subscript[k, 8] chs^2 == 0;
e10 = 6 cv + cos + cch4s + cch3s + cch2s + cchs + ccs + 4 chs +
2 ch2s + ccos == ct;
Solve[{e1, e2, e3, e4, e5, e6, e7, e8, e9, e10}, {cos, cch4s, cch3s,
cch2s, cchs, ccs, ccos, ch2s, chs, cv}]
Attachments: