熵值法计算代码（stata），可直接使用。