SystemOpen@Export["C3H8_CH4_1_1.xls",Table[{p,x/.FindRoot[6.67222*1.95092*Log[1+0.21977*(p*0.5/x)^(1/1.95092)]45.39602*1.01257*Log[1+1.41285*
-4
10
*(p*0.5/(1-x))^(1/1.01257)],{x,0.01}]},{p,2,100,2}]~Prepend~{p,x}]
FindRoot::lstol:The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits of working precision to meet these tolerances.

FindRoot::lstol:The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits of working precision to meet these tolerances.

FindRoot::lstol:The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits of working precision to meet these tolerances.

General::stop:Further output of FindRootlstol will be suppressed during this calculation.
