I'm trying to transfer the following code from Mathematica to Matlab but I'm having trouble. Can anyone help?
n[x_, z_, T_] = 1/(Exp[x/T]*z + 1)f[x_] = (3/2)*Sqrt[x]eqchem[z_, T_] = 1 == Integrate[f[x]*n[x, z, T], {x, 0, \[Infinity]}, Assumptions -> {T > 0}]zSolution[T_] := z /. FindRoot[Evaluate[eqchem[z, T]], {z, .01}]points = Prepend[Table[{T, -T Log[zSolution[T]]}, {T, 0.1, 5, 0.1}], {0., 1.}] // Re;
Best Answer