Mathematica计算洛伦兹曲线的Theil指数