Question: Equation's solution2

Also g1 and g2 are costants. I need the expression of  T,that solves the equation,  in function of  x1, P, g1, g2 because later I've to use this expression in Fortran. However I find some mistakes in the equation. The correct equation is funz=0

Thanks

funz:=T->{x1*g1*1.197*log10(7.74439-1473.686/(T+198.463))*[P-log(7.74439-1473.686/(T+198.463))]*exp[(0.00662*P*(0.1696-3154.69/T^1.6-(1.58*10^9)/T^4.2))/T]}/{T*exp[(0.00662*P*(0.1696-3154.69/T^1.6-(1.58*10^9)/T^4.2))/T]}+{(1-x1)*g2*0.291*log10[8.07126-1730.63/(T+233.426)]*[P-log10[8.07126-1730.63/(T+233.426)]]*exp[(0.0022*P*(0.131-5523.13/T^1.6-(3.79*10^9)/T^4.2))/T]}/{T*exp[(0.0022*P*(0.131-5523.13/T^1.6-(3.79*10^9)/T^4.2))/T]}-P

Please Wait...