搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  经济发展质量指标.xlsx
资料下载链接地址: https://bbs.pinggu.org/a-3951589.html
附件大小:
10.77 KB   举报本内容
各位大佬求求了!!运行到刚开头红色部分提示variable not found,反正就是进行不下去!!**熵权法
** step 1 指标的标准化处理
global positive_var "第一产业增加值指数 第二产业增加值指数 第三产业增加值指数 人均国内生产总值 第三产业对GDP的贡献率 技术市场成交额占GDP比重 万人专利申请授权数 城镇登记失业率 城镇单位就业人员平均工资 每万人医疗机构床位数 工业污染源治理投资/GDP 治理废水项目完成投资/GDP 治理固体废物项目完成投资/GDP 单位GDP电耗"
global negative_var "居民消费价格指数 工业生产者出厂价格指数 二氧化硫排放量/GDP"
global all_var $positive_var$negative_var
foreach i of $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
}

** step 2 计算指标的比重
foreach i in $all_var {
egen `i'_sum=sum(x_`i')
gen y_`i'=x_`i'/`i'_sum
}

**step3 计算指标信息熵
gen n=_N
foreach i in $all_var {
gen y_lny`i'=y_`i'*ln(y_`i')
replace y_lny_`i'=0 if x_`i'==0
}

**step4 求和
foreach i in $all_var {
egen y_lny_`i'_sum = sum(y_lny_`i')
}

**step5 计算各指标的贡献总量,熵值ej
foreach i in $all_var {
gen E_`i'=-1/ln(n)*y_lny_`i'_sum
}

**step6 计算各指标的权重,差异系数d
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
}
egen W= rowtotal(W_*)

**step7 计算指标综合得分
foreach i in $all_var {
gen Score_`i' = x_`i'*W_`i
}
egen Score= rowtotal(Score_*)




    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

GMT+8, 2026-1-27 17:10