Solve[D[0.59375*Log[1+0.42174*x]+0.395833*Log[1-0.272*x]+0.010417*Log[1-x],x]==0,x]