import excel "数据.xlsx", firstrow clear
save data.dta, replace
*=========================== 需要设置 ===========================
//正向指标
global positive_var x1 x2 x3
//负向指标
global negative_var x4 x5
*================================================================
*========================= 后面无需改动 =========================
//所有指标
global all_var $positive_var $negative_var
//年份
qui sum year
global min_year=r(min)
global max_year=r(max)
forvalues year=$min_year / $max_year{
use data.dta, clear
keep if year==`year'
//标准化数据 正向指标
foreach i in $positive_var {
qui sum `i'
gen x_`i'=(`i'-r(min))/(r(max)-r(min))
replace x_`i'=0.00001 if x_`i'==0
}
//标准化数据 负向指标
foreach i in $negative_var {
qui sum `i'
gen x_`i'=(r(max)-`i')/(r(max)-r(min))
replace x_`i'=0.00001 if x_`i'==0
}
//计算各指标的比重
foreach i in $all_var {
egen `i'_sum=sum(x_`i')
gen y_`i'=x_`i'/`i'_sum
}
//根据比重计算各分量的信息熵
gen n=_N
foreach i in $all_var {
gen y_lny_`i'=y_`i'*ln(y_`i')
}
//求和
foreach i in $all_var {
egen y_lny_`i'_sum=sum(y_lny_`i')
}
//计算各指标的贡献总量
foreach i in $all_var {
gen E_`i'= -1/ln(n)*y_lny_`i'_sum
}
//计算各指标权重
foreach i in $all_var {
gen d_`i'= 1-E_`i'
}
egen d_sum = rowtotal(d_*)
foreach i in $all_var {
gen W_`i'= d_`i'/d_sum
}
//计算综合得分
foreach i in $all_var {
gen Score_`i'= x_`i'*W_`i'
}
egen Score=rowtotal(Score_*)
keep id year $all_var Score
save data_`year', replace
}
clear
forvalues i= $min_year / $max_year {
append using data_`i'
rm data_`i'.dta
}
sort id year
save 结果.dta, replace
//其中数据中的Score列就是计算出来的综合指标
熵值法_stata熵权法_熵权法stata_熵值法stata_state熵值法_面板数据熵值法stata代
版权申诉
5星 · 超过95%的资源 82 浏览量
2021-09-10
22:30:12
上传
评论 24
收藏 91KB RAR 举报
心梓
- 粉丝: 787
- 资源: 8061
最新资源
- STM32单片机FPGA毕设电路原理论文报告位标器动平衡测试系统中相位测量的实现
- STM32单片机FPGA毕设电路原理论文报告卫星天线的单片机快速对星系统
- STM32单片机FPGA毕设电路原理论文报告微型机与单片机串行通信的实现
- 戴尔Windowshello驱动程序
- STM32单片机FPGA毕设电路原理论文报告微型机单片机两级温度控制系统
- STM32单片机FPGA毕设电路原理论文报告微型地图里程测量仪的研制
- STM32单片机FPGA毕设电路原理论文报告微弱生理信号在多通道数据采集系统中的研究与实现
- 易打标-专业版-条码标签打印软件
- STM32单片机FPGA毕设电路原理论文报告微机原理与单片机课程体系改革
- STM32单片机FPGA毕设电路原理论文报告微机控制晶闸管投切电容器无功补偿装置
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
- 1
- 2
- 3
- 4
- 5
- 6
前往页