Question: How to get values of equation group?

q1.mw

This equations should have numerical solution, but they can’t be calculated. The result is too long, and include ‘RootOf’

It just like this:

> t := 15000; S := solve({n = b+2*c+f+2*g, (a+b+c)/(a+b+c+p+q+f+g) = 5*(1/10), q^2-3.47*p*10^27*t^(3/2)*e^(-10.97*10^4/t) = 0, n*b-(2.407*a*10^21*8)*t^(3/2)*exp(-18.27*10^4/t) = 0, n*c-(1/2)*(2.407*b*10^21*5)*t^(3/2)*exp(-32.035*10^4/t) = 0, n*f-(2.407*q*10^21*(1/2))*t^(3/2)*exp(-16.85*10^4/t) = 0, n*g-(4*f*2.407)*10^21*t^(3/2)*e^(-34.32*10^4/t) = 0, a+b+c+p+q+n+f+g-.73*10^28/t = 0}, {a, b, c, f, g, n, p, q});

What should I do if I want to get the value of these equations, please help me, thank you!

Please Wait...